Sign in to follow this  
Followers 0
Evil_Has_Survived

Gui

40 posts in this topic

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

Share this post


Link to post
Share on other sites



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 :think:

Share this post


Link to post
Share on other sites

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 :think: 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

Share this post


Link to post
Share on other sites

#4 ·  Posted (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 by thatsgreat2345

Share this post


Link to post
Share on other sites

thsnaks you god I going to bed soon :think:


Thanks in advance

Share this post


Link to post
Share on other sites

I feel so stupid im tired but need to fix this, I shink that i have a while statement for a func is incorrect

#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

Share this post


Link to post
Share on other sites

yeah your problem is you never made a mute checkbox...

Share this post


Link to post
Share on other sites

#8 ·  Posted (edited)

rename $mute to $Checkboxmute and take the while loop out of the mute function maybe

Edited by slightly_abnormal

Share this post


Link to post
Share on other sites

hm I did that but...

#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

Share this post


Link to post
Share on other sites

ive noticed for some reason that GUIsetonevent isnt working for checkboxes, thus is why i use Select and endselect

Share this post


Link to post
Share on other sites

can you show me how I could add that in my script then please


Thanks in advance

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

#13 ·  Posted (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. :think: thanks

Edited 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

Share this post


Link to post
Share on other sites

#14 ·  Posted (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

#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 by thatsgreat2345

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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 :think:


[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

Share this post


Link to post
Share on other sites

in mine or his? upload ur script with pic

Share this post


Link to post
Share on other sites

yours, as you can see slider will not move

#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

Share this post


Link to post
Share on other sites

where are you trying to make the picture?

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0