Evil_Has_Survived Posted April 27, 2006 Posted April 27, 2006 hm I want to perfrom a simple task but I always add uneeded coding, so say I want a check box if checked it will make the Volume aka sound control set to 0 which means you won't hear anything coming from media files etc, and if check box is not checked then you will be able to hear the sound because volume would equal 100. so maybe #include <GUIConstants.au3> GUICreate("My GUI Checkbox") ; will create a dialog box that when displayed is centered $checkCN = GUICtrlCreateCheckbox ("CHECKBOX 1", 10, 10, 120, 20) GUISetOnEvent($checkCN "MUTE") GUISetState () ; will display an dialog box with 1 checkbox ; Run the GUI until the dialog is closed While 1 $msg = GUIGetMsg() If $msg = $GUI_EVENT_CLOSE Then ExitLoop Wend this won't work I know how I might go about making it but can you give me a example of how you would do it please Thanks in advance
Thatsgreat2345 Posted April 27, 2006 Posted April 27, 2006 well if u wanted it to work in the first place u got to kinda have a mute funciton but when you put this in your script you cant have any GUigetmsg cuz GUisetonevent and GUigetmsg arent friends
Evil_Has_Survived Posted April 27, 2006 Author Posted April 27, 2006 god im so sleepy #include <GUIConstants.au3> GUICreate("My GUI Checkbox") ; will create a dialog box that when displayed is centered $Mute = GUICtrlCreateCheckbox ("Mute1", 10, 10, 120, 20) GUISetState () ; will display an dialog box with 1 checkbox ; Run the GUI until the dialog is closed While 1 $Mute = GUICtrlCreateCheckbox ("Mute1", 10, 10, 120, 20) If MouseClick("left, 2") Then ExitLoop SoundSetWaveVolume(0) Wend yea I know if i click the mouse it will close lol #include <GUIConstants.au3> GUICreate("My GUI Checkbox") ; will create a dialog box that when displayed is centered $Mute = GUICtrlCreateCheckbox ("Mute1", 10, 10, 120, 20) GUISetState () ; will display an dialog box with 1 checkbox ; Run the GUI until the dialog is closed While 1 sleep(100) Wend Func Mute1() $Mute = GUICtrlCreateCheckbox ("Mute1", 10, 10, 120, 20) If mouseclick("left") then SoundSetWaveVolume(0) EndIf MouseClick("left") Then SoundSetWaveVolume(100) endfunc I bet I also know what I have know here to trust me staying up all night and sleeping for one hour then going to school and then staying up to 1033pm is bad lol Thanks in advance
Thatsgreat2345 Posted April 27, 2006 Posted April 27, 2006 (edited) ... dude seriously you forgot the Event this time and your recreating the freaking checkbox, check out send("{VOLUME_MUTE}") but for people Using other versions of windows besides 2000/xp then just set the volume to 0 #include <GUIConstants.au3> opt("GUIOnEventMode",1) GUICreate("My GUI Checkbox"); will create a dialog box that when displayed is centered $Mute = GUICtrlCreateCheckbox ("Mute1", 10, 10, 120, 20) GUISetState () GUISetOnEvent($GUI_EVENT_CLOSE,"quit") while 1 If Guictrlread($Mute) = $GUI_CHECKED Then SoundSetWaveVolume(0) ;or for winxp and 2000 send("{VOLUME_MUTE}") ElseIf GUictrlread($Mute) = $GUI_UNCHECKED Then SoundSetWaveVolume(100) EndIf WEnd func quit() Exit EndFunc Edited April 27, 2006 by thatsgreat2345
Evil_Has_Survived Posted April 27, 2006 Author Posted April 27, 2006 thsnaks you god I going to bed soon Thanks in advance
Evil_Has_Survived Posted April 27, 2006 Author Posted April 27, 2006 I feel so stupid im tired but need to fix this, I shink that i have a while statement for a func is incorrect expandcollapse popup#include <GuiConstants.au3> #include <INet.au3> Opt("GUIoneventmode",1) Opt("OnExitFunc","_write") Global $songname[500] Global $song[500] Global $songGUI[500] Global $number ;If Not IsDeclared('WS_CLIPSIBLINGS') Then Global $WS_CLIPSIBLINGS = 0x04000000 GuiCreate("Media Player", 750, 400,(@DesktopWidth-336)/2, (@DesktopHeight-168)/2,-1,0x00000018) GUISetBkColor(0x313594) $Input = GuiCtrlCreateInput("Drag And Drop Media files here.", 512, 10, 210, 20) GUICtrlSetState(-1,$GUI_ACCEPTFILES) $Listname = GUICtrlCreateListView ( "Playlist|path",512.5, 40, 180, 317.5) _Loadplay() $oIE = ObjCreate("Shell.Explorer.2") $Slider = GuiCtrlCreateSlider(0, 345, 200, 40) $Buttonprevious = GUICtrlCreateButton("previous", 0, 0, 60, 20) $Buttonnext = GUICtrlCreateButton("next", 120, 0, 60, 20) $Buttonplay = GuiCtrlCreateButton("Play", 60, 0, 60, 20) $Buttonstop = GuiCtrlCreateButton("Stop", 0, 20, 60, 20) $Buttonadd = GuiCtrlCreateButton("Add", 120, 20, 60, 20) $Checkboxmute = GUICtrlCreateCheckbox("Mute", 200, 20, 60, 20) $Bottonhitkast = GUICtrlCreateButton("HitKast", 60, 20, 60, 20) $Date = GUICtrlCreateDate("Date1", 200, 0, 190, 20) GUICtrlSetData($Slider,100) GUICtrlSetLimit ($Slider,100,0) GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit") GuiCtrlSetOnEvent($ButtonPlay, "_Play") GuiCtrlSetOnEvent($Buttonstop, "_Stop") GuiCtrlSetOnEvent($Buttonadd, "_Add") GuiSetState() GuictrlsetonEvent($Bottonhitkast,"open") GuictrlsetonEvent($Checkboxmute,"Mute") While 1 SoundSetWaveVolume (GUICtrlRead($slider)) WEnd Func _Exit() Exit EndFunc Func _play() $song = StringSplit (GUICtrlRead($input), "|") if $song[0] = 1 Then SoundPlay($song[1]) Else SoundPlay($song[2]) EndIf EndFunc Func _Stop() SoundPlay ("") EndFunc Func _loadplay() $number = IniRead ( "playlist.ini", "NUMBER", "number", "0" ) If $number > 0 Then For $num=1 to $number $songname[$num] = IniRead ( "playlist.ini", "NAME", "name"&$num, "Not found" ) $song[$num] = IniRead ( "playlist.ini", "PATH", "path"&$num, "Not found" ) $songGUI[$num] = GUICtrlCreateListViewItem ($songname[$num]&"|"&$song[$num],$listname) Next EndIf EndFunc Func _Add() $adder = GUICtrlRead($input) $check = Stringsplit($adder,"|") If $check[0] = 1 Then $name = InputBox("Name","What is the songs name? (***.mp3/***.wma..)") $number=$number+1 GUICtrlCreateListViewItem ($name&"|"&$adder,$listname) IniWrite ( "playlist.ini", "NUMBER", "number",$number) IniWrite ( "playlist.ini", "NAME", "name"&$number,$name) IniWrite ( "playlist.ini", "PATH", "path"&$number,$adder) Else GUICtrlCreateListViewItem ($adder,$listname) EndIf EndFunc Func open() $GUIActiveX = GUICtrlCreateObj($oIE, 2, 40, 500, 300) $oIE.navigate ("http://www.accuradio.com/hits/") EndFunc ;==>open Func Mute() while 1 If Guictrlread($Mute) = $GUI_CHECKED Then SoundSetWaveVolume(0) ;or for winxp and 2000 send("{VOLUME_MUTE}") ElseIf GUictrlread($Mute) = $GUI_UNCHECKED Then SoundSetWaveVolume(100) EndIf sleep(100) wend EndFunc Thanks in advance
Thatsgreat2345 Posted April 27, 2006 Posted April 27, 2006 yeah your problem is you never made a mute checkbox...
slightly_abnormal Posted April 27, 2006 Posted April 27, 2006 (edited) rename $mute to $Checkboxmute and take the while loop out of the mute function maybe Edited April 27, 2006 by slightly_abnormal
Evil_Has_Survived Posted April 27, 2006 Author Posted April 27, 2006 hm I did that but... expandcollapse popup#include <GuiConstants.au3> #include <INet.au3> Opt("GUIoneventmode",1) Opt("OnExitFunc","_write") Global $songname[500] Global $song[500] Global $songGUI[500] Global $number ;If Not IsDeclared('WS_CLIPSIBLINGS') Then Global $WS_CLIPSIBLINGS = 0x04000000 GuiCreate("Media Player", 750, 400,(@DesktopWidth-336)/2, (@DesktopHeight-168)/2,-1,0x00000018) GUISetBkColor(0x313594) $Input = GuiCtrlCreateInput("Drag And Drop Media files here.", 512, 10, 210, 20) GUICtrlSetState(-1,$GUI_ACCEPTFILES) $Listname = GUICtrlCreateListView ( "Playlist|path",512.5, 40, 180, 317.5) _Loadplay() $oIE = ObjCreate("Shell.Explorer.2") $Slider = GuiCtrlCreateSlider(0, 345, 200, 40) $Buttonprevious = GUICtrlCreateButton("previous", 0, 0, 60, 20) $Buttonnext = GUICtrlCreateButton("next", 120, 0, 60, 20) $Buttonplay = GuiCtrlCreateButton("Play", 60, 0, 60, 20) $Buttonstop = GuiCtrlCreateButton("Stop", 0, 20, 60, 20) $Buttonadd = GuiCtrlCreateButton("Add", 120, 20, 60, 20) $mute = GUICtrlCreateCheckbox("mute", 200, 20, 60, 20) $Bottonhitkast = GUICtrlCreateButton("HitKast", 60, 20, 60, 20) $Date = GUICtrlCreateDate("Date1", 200, 0, 190, 20) GUICtrlSetData($Slider,100) GUICtrlSetLimit ($Slider,100,0) GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit") GuiCtrlSetOnEvent($ButtonPlay, "_Play") GuiCtrlSetOnEvent($Buttonstop, "_Stop") GuiCtrlSetOnEvent($Buttonadd, "_Add") GuiSetState() GuictrlsetonEvent($Bottonhitkast,"open") GuictrlsetonEvent($mute,"mute") While 1 SoundSetWaveVolume (GUICtrlRead($slider)) WEnd Func _Exit() Exit EndFunc Func _play() $song = StringSplit (GUICtrlRead($input), "|") if $song[0] = 1 Then SoundPlay($song[1]) Else SoundPlay($song[2]) EndIf EndFunc Func _Stop() SoundPlay ("") EndFunc Func _loadplay() $number = IniRead ( "playlist.ini", "NUMBER", "number", "0" ) If $number > 0 Then For $num=1 to $number $songname[$num] = IniRead ( "playlist.ini", "NAME", "name"&$num, "Not found" ) $song[$num] = IniRead ( "playlist.ini", "PATH", "path"&$num, "Not found" ) $songGUI[$num] = GUICtrlCreateListViewItem ($songname[$num]&"|"&$song[$num],$listname) Next EndIf EndFunc Func _Add() $adder = GUICtrlRead($input) $check = Stringsplit($adder,"|") If $check[0] = 1 Then $name = InputBox("Name","What is the songs name? (***.mp3/***.wma..)") $number=$number+1 GUICtrlCreateListViewItem ($name&"|"&$adder,$listname) IniWrite ( "playlist.ini", "NUMBER", "number",$number) IniWrite ( "playlist.ini", "NAME", "name"&$number,$name) IniWrite ( "playlist.ini", "PATH", "path"&$number,$adder) Else GUICtrlCreateListViewItem ($adder,$listname) EndIf EndFunc Func open() $GUIActiveX = GUICtrlCreateObj($oIE, 2, 40, 500, 300) $oIE.navigate ("http://www.accuradio.com/hits/") EndFunc;==>open Func mute() Guictrlread($mute) = $GUI_CHECKED Then SoundSetWaveVolume(0) ;or for winxp and 2000 send("{VOLUME_MUTE}") GUictrlread($mute) = $GUI_UNCHECKED Then SoundSetWaveVolume(100) EndFunc Thanks in advance
Thatsgreat2345 Posted April 27, 2006 Posted April 27, 2006 ive noticed for some reason that GUIsetonevent isnt working for checkboxes, thus is why i use Select and endselect
Evil_Has_Survived Posted April 27, 2006 Author Posted April 27, 2006 can you show me how I could add that in my script then please Thanks in advance
Thatsgreat2345 Posted April 27, 2006 Posted April 27, 2006 for one on your code u delted the IF statements on the mute, just look in the help files at select endselect im tired or writing code for you when its easy to do and you can look at examples on hte board easily
THESCRIPTERIST Posted April 28, 2006 Posted April 28, 2006 (edited) you know his list box on the right hand side I was wondering if someone can help me I made a script something like that were I want to be able to click on something in the list box and it will open that file or if its a wave it will play the sound. so Example MyListbox -----------------------------------------------------------------------------l C:\Documents and Settings\currentuser\Desktop\music\50Centl l C:\Documents and Settings\currentuser\Desktop\music\Necro l C:\Documents and Settings\currentuser\Desktop\music\DrDre l C:\Documents and Settings\currentuser\Desktop\music\Eminem l -----------------------------------------------------------------------------l so if I click on that file it would open, or say I use his script and push next song it will find what the current selected file is and hit the next one. thanks Edited April 28, 2006 by THESCRIPTERIST [color=#FF0000][b] COMPUTERS ARE MADE OF NUMBERS SUCH AS 1010101110010101010101 AND SCRIPTING IS THE KEY TO THE DOOR door=101010101010101 and so on and the the key=scripting
Thatsgreat2345 Posted April 28, 2006 Posted April 28, 2006 (edited) back when i was a real noob in autoit with a help of some others i made this, although there is no listview it reads from a file which is easy to change to find something in a listview, check out _GUICtrlListFindString in beta help file heeheh with beta theres a _GUICtrlListViewGetNextItem should be even easier expandcollapse popup#include <GuiConstants.au3> #include <File.au3> If Not FileExists (@ProgramFilesDir & "\Thatsgreat2345\") Then DirCreate(@ProgramFilesDir & "\Thatsgreat2345\") EndIf ;--------------------------------------GUI START-------------------------------------------------------- GUICreate("Music Player V 1.1", 450, 400, 192, 125) GUISetCursor (0) GUISetBkColor(0x000000) $List = GuiCtrlCreateList("", 150, 220, 275, 175) $Add = GuiCtrlCreateButton("Add", 60, 240, 60, 20) GUICtrlSetLimit(-1,200); to limit horizontal scrolling $clear = GuiCtrlCreateButton("Clear", 60, 270, 60, 20) $Play = GuiCtrlCreateButton("Play", 10, 10, 50, 20) $Next = GuiCtrlCreateButton("Next", 70, 10, 50, 20) $Mute = GuiCtrlCreateButton("Mute", 190, 10, 50, 20) $stop = GuiCtrlCreateButton("Stop", 250, 10, 50, 20) $exit = GuiCtrlCreateButton("Exit", 310, 10, 50, 20) $previous = GuiCtrlCreateButton("Previous", 130, 10, 50, 20) $slider = GUICtrlCreateSlider (150,50,100,40) GUICtrlSetData($Slider,100) GUICtrlSetLimit ($Slider,100,0) $Label_8 = GuiCtrlCreateLabel("Thatsgreat2345", 10, 50, 80, 20) GUICtrlSetResizing (-1,$GUI_DOCKLEFT) ;opens the playlist and then puts all the songs in the playlist file in the listbox $filehandle = Fileopen(@ProgramFilesDir & "\Thatsgreat2345\Playlist.txt",0) while 1 Local $Line = FileReadLine($filehandle) If @error Then ExitLoop GUICtrlSetData($list, $Line & "|") Wend Fileclose($filehandle) GuiSetState() ;---------------------------------------GUI END--------------------------------------------------------- ;----------------------------------DIM VARS------------------------- Dim $play Dim $Mute dim $stop Dim $exit Dim $slider DIm $msg Dim $playlist Dim $list Dim $file Dim $line DIm $previous dim $playlistpath = @ProgramFilesDir & "\Thatsgreat2345\Playlist.txt" dim $songlistpath = @ProgramFilesDir & "\Thatsgreat2345\song.txt" Global $linenumber = 1 ;--------------DIM END func stop() while 1 sleep(100) wend endfunc;==>stop ;-------------start-------------------- Do $msg = GUIGetMsg () Select ;------------------ STOP MUSIC------------- Case $msg = $stop soundplay("C:\exit.mp3") ;---------------END STOP MUSIC--------- ;--------- PLAY MUSIC --------- Case $msg = $play $line = FileReadLine($playlistpath, $linenumber) FileDelete($songlistpath) ;FileInstall("C:\Documents and Settings\NEON\Desktop\song.txt", $songlistpath) _FileCreate($songlistpath) FileWrite($songlistpath, $line & @CRLF) Soundplay ($line) ;---------END PLAY MUSIC------ ;--------------------------mute--------------- Case $msg = $Mute send("{VOLUME_MUTE}") ;-----------END MUTE-------------- ;------------------volume---------------- Case $msg = $slider SoundSetWaveVolume (GUICtrlRead($slider)) ;-------------END VOLUME--------------- ;-------------------ADD SONG--------------- Case $msg = $ADD $playlist=FileOpenDialog ("Choose music", "", "Musicfiles(*.mp3;*.wma;*.wav;*.wave;*.mid;*)") If not @error Then FileWrite($playlistpath, $playlist & @CRLF) GUICtrlSetData($list, $playlist) Endif ;-----------------END ADD SONG -------------------- ;---------------------CLEAR SONG------------------- case $msg = $clear GUICtrlSetData($list,"") FileDelete($playlistpath) ;FileInstall("C:\Documents and Settings\NEON\Desktop\Playlist.txt", $playlistpath) _FileCreate($playlistpath) ;---------------------- END CLEAR SONG-------------------- ;----------------------NEXT SONG---------------- Case $msg = $Next If $linenumber <> _FileCountLines($playlistpath) Then $linenumber = $linenumber + 1 $line = FileReadLine($playlistpath, $linenumber) FileDelete($songlistpath) _FileCreate($songlistpath) ; FileInstall("C:\Documents and Settings\NEON\Desktop\song.txt", $songlistpath) FileWrite($songlistpath, $line & @CRLF) Soundplay ($line) Endif ;------------------END NEXT SONG----------------------- ;-----------------PREVIOUS SONG-------------- Case $msg = $previous If $linenumber > 1 Then $linenumber = $linenumber - 1 $line = FileReadLine($playlistpath, $linenumber) FileDelete($songlistpath) ; FileInstall("C:\Documents and Settings\NEON\Desktop\song.txt", $songlistpath) _FileCreate($songlistpath) FileWrite($songlistpath, $line & @CRLF) soundplay($line) Endif ;---------------END PREVIOUS SONG---------------------- ;-------------- EXIT----------------------- Case $msg = $exit exit EndSelect Until $msg = $GUI_EVENT_CLOSE ;------------- END EXIT-------- Edited April 28, 2006 by thatsgreat2345
THESCRIPTERIST Posted April 28, 2006 Posted April 28, 2006 ty [color=#FF0000][b] COMPUTERS ARE MADE OF NUMBERS SUCH AS 1010101110010101010101 AND SCRIPTING IS THE KEY TO THE DOOR door=101010101010101 and so on and the the key=scripting
Thatsgreat2345 Posted April 28, 2006 Posted April 28, 2006 for the Double click check out this topic in the GUIhttp://www.autoitscript.com/forum/index.ph...opic=5279&st=15
THESCRIPTERIST Posted April 28, 2006 Posted April 28, 2006 ty, hm im having a problem I set a image right on your music player, and well the keys and everything won't work such as next, play, stop etc i think the picture is over laping [color=#FF0000][b] COMPUTERS ARE MADE OF NUMBERS SUCH AS 1010101110010101010101 AND SCRIPTING IS THE KEY TO THE DOOR door=101010101010101 and so on and the the key=scripting
THESCRIPTERIST Posted April 28, 2006 Posted April 28, 2006 yours, as you can see slider will not move expandcollapse popup#include <GuiConstants.au3> #include <File.au3> If Not FileExists (@ProgramFilesDir & "\Thatsgreat2345\") Then DirCreate(@ProgramFilesDir & "\Thatsgreat2345\") EndIf ;--------------------------------------GUI START-------------------------------------------------------- GUICreate("Music Player V 1.1", 450, 400, 192, 125) GUISetCursor (0) GUISetBkColor(0x000000) $List = GuiCtrlCreateList("", 150, 220, 275, 175) GUICtrlCreatePic(@Systemdir & "\oobe\images\mslogo.jpg",50,50, 200,50) $Add = GuiCtrlCreateButton("Add", 60, 240, 60, 20) GUICtrlSetLimit(-1,200); to limit horizontal scrolling $clear = GuiCtrlCreateButton("Clear", 60, 270, 60, 20) $Play = GuiCtrlCreateButton("Play", 10, 10, 50, 20) $Next = GuiCtrlCreateButton("Next", 70, 10, 50, 20) $Mute = GuiCtrlCreateButton("Mute", 190, 10, 50, 20) $stop = GuiCtrlCreateButton("Stop", 250, 10, 50, 20) $exit = GuiCtrlCreateButton("Exit", 310, 10, 50, 20) $previous = GuiCtrlCreateButton("Previous", 130, 10, 50, 20) $slider = GUICtrlCreateSlider (150,50,100,40) GUICtrlSetData($Slider,100) GUICtrlSetLimit ($Slider,100,0) $Label_8 = GuiCtrlCreateLabel("Thatsgreat2345", 10, 50, 80, 20) GUICtrlSetResizing (-1,$GUI_DOCKLEFT) ;opens the playlist and then puts all the songs in the playlist file in the listbox $filehandle = Fileopen(@ProgramFilesDir & "\Thatsgreat2345\Playlist.txt",0) while 1 Local $Line = FileReadLine($filehandle) If @error Then ExitLoop GUICtrlSetData($list, $Line & "|") Wend Fileclose($filehandle) GuiSetState() ;---------------------------------------GUI END--------------------------------------------------------- ;----------------------------------DIM VARS------------------------- Dim $play Dim $Mute dim $stop Dim $exit Dim $slider DIm $msg Dim $playlist Dim $list Dim $file Dim $line DIm $previous dim $playlistpath = @ProgramFilesDir & "\Thatsgreat2345\Playlist.txt" dim $songlistpath = @ProgramFilesDir & "\Thatsgreat2345\song.txt" Global $linenumber = 1 ;--------------DIM END func stop() while 1 sleep(100) wend endfunc;==>stop ;-------------start-------------------- Do $msg = GUIGetMsg () Select ;------------------ STOP MUSIC------------- Case $msg = $stop soundplay("C:\exit.mp3") ;---------------END STOP MUSIC--------- ;--------- PLAY MUSIC --------- Case $msg = $play $line = FileReadLine($playlistpath, $linenumber) FileDelete($songlistpath) ;FileInstall("C:\Documents and Settings\NEON\Desktop\song.txt", $songlistpath) _FileCreate($songlistpath) FileWrite($songlistpath, $line & @CRLF) Soundplay ($line) ;---------END PLAY MUSIC------ ;--------------------------mute--------------- Case $msg = $Mute send("{VOLUME_MUTE}") ;-----------END MUTE-------------- ;------------------volume---------------- Case $msg = $slider SoundSetWaveVolume (GUICtrlRead($slider)) ;-------------END VOLUME--------------- ;-------------------ADD SONG--------------- Case $msg = $ADD $playlist=FileOpenDialog ("Choose music", "", "Musicfiles(*.mp3;*.wma;*.wav;*.wave;*.mid;*)") If not @error Then FileWrite($playlistpath, $playlist & @CRLF) GUICtrlSetData($list, $playlist) Endif ;-----------------END ADD SONG -------------------- ;---------------------CLEAR SONG------------------- case $msg = $clear GUICtrlSetData($list,"") FileDelete($playlistpath) ;FileInstall("C:\Documents and Settings\NEON\Desktop\Playlist.txt", $playlistpath) _FileCreate($playlistpath) ;---------------------- END CLEAR SONG-------------------- ;----------------------NEXT SONG---------------- Case $msg = $Next If $linenumber <> _FileCountLines($playlistpath) Then $linenumber = $linenumber + 1 $line = FileReadLine($playlistpath, $linenumber) FileDelete($songlistpath) _FileCreate($songlistpath) ; FileInstall("C:\Documents and Settings\NEON\Desktop\song.txt", $songlistpath) FileWrite($songlistpath, $line & @CRLF) Soundplay ($line) Endif ;------------------END NEXT SONG----------------------- ;-----------------PREVIOUS SONG-------------- Case $msg = $previous If $linenumber > 1 Then $linenumber = $linenumber - 1 $line = FileReadLine($playlistpath, $linenumber) FileDelete($songlistpath) ; FileInstall("C:\Documents and Settings\NEON\Desktop\song.txt", $songlistpath) _FileCreate($songlistpath) FileWrite($songlistpath, $line & @CRLF) soundplay($line) Endif ;---------------END PREVIOUS SONG---------------------- ;-------------- EXIT----------------------- Case $msg = $exit exit EndSelect Until $msg = $GUI_EVENT_CLOSE ;------------- END EXIT-------- [color=#FF0000][b] COMPUTERS ARE MADE OF NUMBERS SUCH AS 1010101110010101010101 AND SCRIPTING IS THE KEY TO THE DOOR door=101010101010101 and so on and the the key=scripting
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now