ls78
Joined: 03 May 2006
Posts: 44
|
 Posted: Sun Sep 14, 2008 1:47 pm Post subject: Album Scroller, select album by its cover. |
 |
|
background
hey this is the very first one of the few hundred music related script i have made for my own purpose ,now i thought il share it.
this basic i have far better versions with , alphabetical search , play by just scanning the cd barcode ect ,these may be released later when i got more time.
what is it ?
this simply a basic script for scrolling through all your albums ...providing they are mp3s and in standard windows music folder format , including having the album cover jpeg along with the mp3s.
how does it work ?
[img=http://img221.imageshack.us/img221/2016/albumscrolldsdje3.th.jpg]
what you need ?
you need you make a txt file with all you music directories and call it "musiclist.txt"
eg
E:\My Music\artist\Away From The Sun
E:\My Music\artist2\album name
-------------------------------------------------
-------------------------------------------------
-------------------------------------------------
i have a script to do this but is not great stuctured or would make much sense. therefore i have not included it.
enjoy
cheers for checking this out
| Code: |
;ALBUM SCROLL EXAMPLE for winamp
;by luke
;july 2008
; CONTROLS
; Mouse wheelup : move up album covers
; Mouse wheeldown : move down album covers
; Mouse middle button : play
; BEFORE use , you need to.......
; !! (1) please make a standard unknown cover image called "no.jpg"
; (2) make your music list this scripts looks for "musiclist.txt"
;----------------------------------------------
; help section not required if working ok !!
IfNotExist %A_WorkingDir%\musiclist.txt
{
msgbox , you need to make a musiclist text file !eg ,`nE:\My Music\artist1\ABLUM`nE:\My Music\artist2\ABLUM `nE:\My Music\artist3\ABLUM
return
}
IfNotExist %A_WorkingDir%\nocover.jpg
{
SplashTextOn, 300, 50, !, no "no cover" jpg found Downloading image. Please wait...
URLDownloadToFile http://img165.imageshack.us/img165/3126/nofh2.jpg, nocover.jpg
URLDownloadToFile http://www.autohotkey.net/~corr/ahk.bmp, ahk.bmp
SplashTextOff
}
;-------------------------------------------------------------------------------------
#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.
Gui, Add, Picture, x6 y10 w240 h210 V3,
Gui, Add, Text, x6 y230 w240 h70 v2, Text
Gui, Show, x131 y91 h310, ALBUM SCROLL
WinSet,Transparent, 240,ALBUM SCROLL
inifile= mainconfig.ini ;this stores the the txt line varible
IniWrite, 3,%inifile%, picontrol, count
start:
loopr =
Iniread, lineno, %inifile%, picontrol, count ;read the starting line number from .ini
FileReadLine, line, musiclist.txt, %lineno%
rty = %Line%
;*********************artist / album text*********************************************
StringSplit, Fieldr, rty, \
GuiControl, ,2,ARTIST:%Fieldr3%`nALBUM:%Fieldr4% ; this simply puts the artist text
;*********************search for jpegs*********************************************
{
Loop, %rty%\*.jpg, ,1 ; Recurse into subfolders for .jpgs
loopr = %A_LoopFileFullPath%
if loopr =
{
GuiControl, ,3, nocover.jpg ;if no jpg cover is found set a default picture.
}
else
GuiControl, ,3,%loopr% ;if jpg cover is found set the cover picture
}
return
;***************************************************************************
wheelUP::
endp := Add (1 + lineno) ; add one to the current line
IniWrite, %endp%,%inifile%, picontrol, count ; write the count to the ini file
goto,start ; reload
return
wheeldown::
endp := Add (lineno - 1) ; take one from the current line
IniWrite, %endp%,%inifile%, picontrol, count ; write the count to the ini file
goto,start ; reload
return
MButton::
sleep,500
run, c:\program files\winamp\winamp.exe "%rty%" ; play the album in winamp ect.
return
GuiClose:
ExitApp
|
|
|
FAQ
Search
Memberlist
Register
Profile
Log in to check your private messages
Log in
