THESCRIPTERIST Posted April 28, 2006 Posted April 28, 2006 I want the picture to cover the whole GUI with all the keys working, I put the simple windows picture on the slider, so you can see that all the keys work except for the slider [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 try this expandcollapse popup#include <GuiConstants.au3> #include <File.au3> If Not FileExists (@ProgramFilesDir & "\Thatsgreat2345\") Then DirCreate(@ProgramFilesDir & "\Thatsgreat2345\") EndIf ;--------------------------------------GUI START-------------------------------------------------------- $GUI = GUICreate("Music Player V 1.1", 450, 400, 192, 125) GUICtrlCreatePic(@Systemdir & "\oobe\images\mslogo.jpg",0,0,450,400) GUICtrlSetState(-1,$GUI_DISABLE) $List = GuiCtrlCreateList("", 150, 220, 275, 175) $Add = GuiCtrlCreateButton("Add", 60, 240, 60, 20,$BS_ICON) $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--------
THESCRIPTERIST Posted April 28, 2006 Posted April 28, 2006 to-shay, your great but how..... did you do it, ill try looking into your updated code and see whats different about it [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 u simply just disable it.... GUICtrlCreatePic(@Systemdir & "\oobe\images\mslogo.jpg",0,0,450,400) GUICtrlSetState(-1,$GUI_DISABLE)
THESCRIPTERIST Posted April 28, 2006 Posted April 28, 2006 (edited) nice I just figured that out thanksI see that you very Very great with GUI, one last question for now if you don't mine, might you happen to know how to use this My Webpageif you do may you explain, I would really be gratefulI think I have to make one then put it in a folder with my script, and put that dll in, and then in my script I have to add a line of code 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
taurus905 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 THESCRIPTERIST,Try puttingGUICtrlSetState(-1, $GUI_DISABLE); Disable so Buttons Work with Background Imageafter your 'GUICtrlCreatePic' function. I hope this works for you.taurus905 "Never mistake kindness for weakness."-- Author Unknown --"The highest point to which a weak but experienced mind can rise is detecting the weakness of better men."-- Georg Lichtenberg --Simple Obfuscator (Beta not needed.), Random names for Vars and Funcs
Thatsgreat2345 Posted April 28, 2006 Posted April 28, 2006 a little late taurus but yeha ill take a look at it later SCRIPT, doing my homework right now, ill just update this post when i download it
THESCRIPTERIST Posted April 28, 2006 Posted April 28, 2006 a little late taurus but yeha ill take a look at it later SCRIPT, doing my homework right now, ill just update this post when i download itthanks [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
Evil_Has_Survived Posted April 28, 2006 Author Posted April 28, 2006 hi im having a problem, ok the picture is working now I can move sliders and what not, but I don't like how you can see the blue still can you set the botton on top of the background. becuase when the background is on you can still see a bit pf blue, or set the background on top of the botton if that helps 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) GUICtrlCreatePic(@DesktopDir & "\MusicPlayer\images\picture1.bmp",-1,0, 800,750) GUICtrlSetState(-1,$GUI_DISABLE) $Input = GuiCtrlCreateInput("Drag And Drop Media files here.", 512, 10, 210, 20) $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") 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 Thanks in advance
taurus905 Posted April 28, 2006 Posted April 28, 2006 hi im having a problem, ok the picture is working now I can move sliders and what not, but I don't like how you can see the blue still can you set the botton on top of the background. becuase when the background is on you can still see a bit pf blue, or set the background on top of the botton if that helpsEvil_Has_Survived,I am not exactly sure what you mean, but try this as an example:Download the attached 'flag_eagle.bmp' and put it on your desktop. Then run this script.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) GUICtrlCreatePic(@DesktopDir & "/flag+eagle.bmp",-1,0, 800,750) GUICtrlSetState(-1,$GUI_DISABLE) $Input = GuiCtrlCreateInput("Drag And Drop Media files here.", 512, 10, 210, 20) $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,$BS_BITMAP) GUICtrlSetImage(-1,@DesktopDir & "/flag+eagle.bmp"); Assign Key Bitmap $Buttonnext = GUICtrlCreateButton("next", 120, 0, 60, 20,$BS_BITMAP) GUICtrlSetImage(-1,@DesktopDir & "/flag+eagle.bmp"); Assign Key Bitmap $Buttonplay = GuiCtrlCreateButton("Play", 60, 0, 60, 20,$BS_BITMAP) GUICtrlSetImage(-1,@DesktopDir & "/flag+eagle.bmp"); Assign Key Bitmap $Buttonstop = GuiCtrlCreateButton("Stop", 0, 20, 60, 20,$BS_BITMAP) GUICtrlSetImage(-1,@DesktopDir & "/flag+eagle.bmp"); Assign Key Bitmap $Buttonadd = GuiCtrlCreateButton("Add", 120, 20, 60, 20,$BS_BITMAP) GUICtrlSetImage(-1,@DesktopDir & "/flag+eagle.bmp"); Assign Key Bitmap $Checkboxmute = GUICtrlCreateCheckbox("Mute", 200, 20, 60, 20) $Bottonhitkast = GUICtrlCreateButton("HitKast", 60, 20, 60, 20,$BS_BITMAP) GUICtrlSetImage(-1,@DesktopDir & "/flag+eagle.bmp"); Assign Key Bitmap $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") 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;==>openIf this looks better to you, then you would need to create bitmaps that are the right size for your buttons with the labels on them, such as, Previous, Next, Play, Stop, etc.I think it would look really cool. taurus905flag_eagle.bmp "Never mistake kindness for weakness."-- Author Unknown --"The highest point to which a weak but experienced mind can rise is detecting the weakness of better men."-- Georg Lichtenberg --Simple Obfuscator (Beta not needed.), Random names for Vars and Funcs
JØhñ ï§ §¢rïþ�ïñg ¥ðµr mðm Posted April 28, 2006 Posted April 28, 2006 I have been dieing to post for Evil_has_survived, im 15 to but honestly is it that hard, look this is my first post, and well test this and see the results 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) GUICtrlCreatePic(@CommonFilesDir & "\oobe\images\mslogo.jpg",50,50, 200,50) $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") GuictrlsetonEvent($Bottonhitkast,"open") GuictrlsetonEvent($Checkboxmute,"Mute") GuictrlsetonEvent($Buttonprevious,"previous") GuictrlsetonEvent($Buttonnext,"next1") GuiSetState() 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() send("{VOLUME_MUTE}") endfunc func previous() send("{MEDIA_PREV}") endfunc Func next1() send("{MEDIA_NEXT}") endfunc had to rename the func next to next1 becuase it though that next was a command Hi, I have been with autoit since MsgBox(4096, "I registered", "I have been with the autoit forums since 4/27/2006", 10)My hobbys, partying, messing up computers, throwing things, riding to places i shouldntMy qoutes, me?....i always tell the truth......even when i lie, you got small words for a big mouth, im not getting sex but i sure am getting fucked.
Evil_Has_Survived Posted April 28, 2006 Author Posted April 28, 2006 I have been dieing to post for Evil_has_survived, im 15 to but honestly is it that hard, look this is my first post, and well test this and see the resultsexpandcollapse 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) GUICtrlCreatePic(@CommonFilesDir & "\oobe\images\mslogo.jpg",50,50, 200,50) $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") GuictrlsetonEvent($Bottonhitkast,"open") GuictrlsetonEvent($Checkboxmute,"Mute") GuictrlsetonEvent($Buttonprevious,"previous") GuictrlsetonEvent($Buttonnext,"next1") GuiSetState() 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() send("{VOLUME_MUTE}") endfunc func previous() send("{MEDIA_PREV}") endfunc Func next1() send("{MEDIA_NEXT}") endfunchad to rename the func next to next1 becuase it though that next was a commandI love you, you have done everything I needed thanks very Very much Thanks in advance
JØhñ ï§ §¢rïþ�ïñg ¥ðµr mðm Posted April 28, 2006 Posted April 28, 2006 no problem, I was waiting to get admin to allow me to be a member, and I seen your post so i decided to fix well I waited , and nice script, thatsgreat it looks the same Hi, I have been with autoit since MsgBox(4096, "I registered", "I have been with the autoit forums since 4/27/2006", 10)My hobbys, partying, messing up computers, throwing things, riding to places i shouldntMy qoutes, me?....i always tell the truth......even when i lie, you got small words for a big mouth, im not getting sex but i sure am getting fucked.
slightly_abnormal Posted April 29, 2006 Posted April 29, 2006 are you going to collect some more viruses over the weekend?
JØhñ ï§ §¢rïþ�ïñg ¥ðµr mðm Posted April 29, 2006 Posted April 29, 2006 are you going to collect some more viruses over the weekend? you just confused me Hi, I have been with autoit since MsgBox(4096, "I registered", "I have been with the autoit forums since 4/27/2006", 10)My hobbys, partying, messing up computers, throwing things, riding to places i shouldntMy qoutes, me?....i always tell the truth......even when i lie, you got small words for a big mouth, im not getting sex but i sure am getting fucked.
Scriptorectomy Posted April 29, 2006 Posted April 29, 2006 That script is almost thanks so much!!! Scripts are like women, once you get inside them you go for the next one.
JØhñ ï§ §¢rïþ�ïñg ¥ðµr mðm Posted April 29, 2006 Posted April 29, 2006 That script is almost thanks so much!!! No problem I think help should go to *thatsgreat* to becuase he helped *evil*, as im am finding out I don't know if I should add *evils* name here becuase Ive had heard he copyed and pasted, so he didn't really make it, maybe the GUI create if he was lucky , I should be more nice,..........ok sorry getting carryed away Hi, I have been with autoit since MsgBox(4096, "I registered", "I have been with the autoit forums since 4/27/2006", 10)My hobbys, partying, messing up computers, throwing things, riding to places i shouldntMy qoutes, me?....i always tell the truth......even when i lie, you got small words for a big mouth, im not getting sex but i sure am getting fucked.
Thatsgreat2345 Posted April 29, 2006 Posted April 29, 2006 I mean im not saying it should be one or the other but include both, im a believer of open source and thats what autoits been founded on, if no one posted their scripts and took credit all for themselves everyone would be most likely a bunch of n00bs and there wouldnt be a point to have this forum cuz no one would help. Im sure he made the GUI but the code he copied and pasted and edited very little, I was the one editing it mainly but who cares this is a freakin support forum although anything i answered was in the FING HELP FILE
JØhñ ï§ §¢rïþ�ïñg ¥ðµr mðm Posted April 29, 2006 Posted April 29, 2006 I mean im not saying it should be one or the other but include both, im a believer of open source and thats what autoits been founded on, if no one posted their scripts and took credit all for themselves everyone would be most likely a bunch of n00bs and there wouldnt be a point to have this forum cuz no one would help. Im sure he made the GUI but the code he copied and pasted and edited very little, I was the one editing it mainly but who cares this is a freakin support forum although anything i answered was in the FING HELP FILEtrue it is a support forum Hi, I have been with autoit since MsgBox(4096, "I registered", "I have been with the autoit forums since 4/27/2006", 10)My hobbys, partying, messing up computers, throwing things, riding to places i shouldntMy qoutes, me?....i always tell the truth......even when i lie, you got small words for a big mouth, im not getting sex but i sure am getting fucked.
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