PurloinedHeart
Joined: 04 Apr 2008
Posts: 209
Location: Canada
|
 Posted: Mon Jun 16, 2008 1:07 am Post subject: [Dead] Yet Another Media Player! |
 |
|
Dead due to lack of intrest
Portable Player
For those who can't install winamp on the school's computer
V 1.0
http://www.autohotkey.net/~PurloinedHeart/Stop.zip
| Code: |
#NoTrayIcon
SetBatchLines -1
Gui, Color, 0
Gui, -Caption
Gui, Font, S15
Gui, Add, Text, x2 y0 gAbout cRed s50, ©
Gui, Add, Text, x185 y0 gMinimize cRed, -
Gui, Add, Text, x195 y0 gRollUD cRed, µ
Gui, Add, Text, x210 y0 gGuiClose cRed, x
Gui, Font, S10
Gui, Add, Text, cWhite x20 y5 h25 w162 gMoveWindow vCurrentSong cBlue
Gui, Add, Picture, x13 y36 gBackButton, Back.PNG
Gui, Add, Picture, x43 y36 gPlayButton , Play.PNG
Gui, Add, Picture, x72 y36 gPauseButton, Pause.PNG
Gui, Add, Picture, x102 y36 gStopButton , Stop.PNG
Gui, Add, Picture, x131 y35 gForwardButton, Forward.PNG
Gui, Add, Slider, x161 y35 w50 h20 AltSubmit gSliderVolume vVolume, 100
Gui, Font, s7
Gui, Add, ListView, -Hdr x18 w194 h220 gPlaySong, Name
Gui, Add, Button, gAdd, Add
Gui, Show, w230 h330, Portable Player
return
MoveWindow: ;Thanks to SKAN
PostMessage, 0xA1, 2,,, A
Return
About:
Msgbox, Made by:`nAbhishek Regmi
return
Minimize:
Gui, Minimize
return
RollUD:
SetBatchLines 20
Roll := 25
Unroll := 330
if Up != 1
{
Up++
Loop 305
{
Unroll--
Gui, Show, w230 h%Unroll%
}
}
else
{
Up--
Loop 305
{
Roll++
Gui, Show, w230 h%Roll%
}
}
SetBatchLines -1
return
BackButton:
;Finish me!
return
PlayButton:
;Finish Me!
GuiControl,, CurrentSong, [Song title :S]
return
PauseButton:
;Finish Me!
return
StopButton:
Soundplay, \
GuiControl,, CurrentSong
return
ForwardButton:
;Finish Me!
return
SliderVolume:
SoundSet, %Volume%
return
Add:
FileSelectFile, Files, M 3, ,, (*.wav; *.mp3; *.ogg)
if Files =
return
Loop, Parse, Files, `n
{
if A_Index = 1
Directory = %A_LoopField%
else
LV_Add("",A_LoopField)
}
return
PlaySong:
LV_GetText(SPlay, A_EventInfo)
SoundPlay, %Directory%/%SPlay%
GuiControl,, CurrentSong, %SPlay%
return
GuiClose:
ExitApp |
Last edited by PurloinedHeart on Sun Jul 06, 2008 10:57 pm; edited 3 times in total |
|
FAQ
Search
Memberlist
Register
Profile
Log in to check your private messages
Log in
