Sign in to follow this  
Followers 0
ghettochild

Cd Loader V.01

14 posts in this topic

#1 ·  Posted (edited)

Hi everybody!

ok this program will load audio cd images to alcohol 120%. The script is a sample you need to know a little about batch and autoit to customize it.

AutoItSetOption("WinTitleMatchMode", 4)

;(----------------------This is a list of the CD's in Inventory----------------------)

$cdloaderdir = "c:\WINNT\CD Loader\"  ;CD Loader installation directory

$trayplaymessage = "Currently Playing..." ;tray tip title message

$playername = "classname=WMPlayerApp"  ;classname of the player used

$forwardhotkey = "{CTRLDOWN}f{CTRLUP}"  ;hotkey for "next track"

$backhotkey = "{CTRLDOWN}b{CTRLUP}"  ;hotkey for "previous track"

$cd1 = "muse - absolution"   ;Name of CD 1

$cd2 = "frou frou - details"   ;Name of CD 2

$cd3 = "kylie minogue - fever"   ;Name of CD 3

$cd4 = "postal service - give up"  ;Name of CD 4

$cd5 = "coldplay - a rush of blood to the head" ;Name of CD 5

$cd6 = "wyclef jean - the carnival"  ;Name of CD 6

;(----------------------This is the start of the loop----------------------)

$loopy = 0

while $loopy = 0

$input = InputBox ( "CD Loader", "Enter a command","","",170,40,0,0)

If @error = 1 Then

exit

;(----------------------Here are the commands for input values----------------------)

elseif $input = "list" Then

MsgBox(0, "CD inventory List", $cd1 & @CRLF & $cd2 & @CRLF & $cd3 & @CRLF & $cd4 & @CRLF & $cd5 & @CRLF & $cd6)

ElseIf $input = "forward" Then

winactivate($playername)

winwait($playername)

send($forwardhotkey)

WinSetState ($playername,"",@SW_MINIMIZE)

ElseIf $input = "next" Then

winactivate($playername)

winwait($playername)

send($forwardhotkey)

WinSetState ($playername,"",@SW_MINIMIZE)

elseif $input = "back" Then

winactivate($playername)

winwait($playername)

send($backhotkey)

WinSetState ($playername,"",@SW_MINIMIZE)

elseif $input = "previous" Then

winactivate($playername)

winwait($playername)

send($backhotkey)

WinSetState ($playername,"",@SW_MINIMIZE)

elseif $input = $cd1 Then

winclose($playername)

run ($cdloaderdir & $cd1 & ".bat","",@SW_HIDE)

winwait("classname=WMPlayerApp")

WinSetState ($playername,"",@SW_MINIMIZE)

TrayTip ($trayplaymessage,$cd1,20,1)

elseif $input = $cd2 Then

winclose($playername)

run ($cdloaderdir & $cd2 & ".bat","",@SW_HIDE)

winwait($playername)

WinSetState ($playername,"",@SW_MINIMIZE)

TrayTip ($trayplaymessage,$cd2,20,1)

elseif $input = $cd3 Then

winclose($playername)

run ($cdloaderdir & $cd3 & ".bat","",@SW_HIDE)

winwait($playername)

WinSetState ($playername,"",@SW_MINIMIZE)

TrayTip ($trayplaymessage,$cd3,20,1)

elseif $input = $cd4 Then

winclose($playername)

run ($cdloaderdir & $cd4 & ".bat","",@SW_HIDE)

winwait($playername)

WinSetState ($playername,"",@SW_MINIMIZE)

TrayTip ($trayplaymessage,$cd4,20,1)

elseif $input = $cd5 Then

winclose($playername)

run ($cdloaderdir & $cd5 & ".bat","",@SW_HIDE)

winwait($playername)

WinSetState ($playername,"",@SW_MINIMIZE)

TrayTip ($trayplaymessage,$cd5,20,1)

elseif $input = $cd6 Then

winclose($playername)

run ($cdloaderdir & $cd6 & ".bat","",@SW_HIDE)

winwait($playername)

WinSetState ($playername,"",@SW_MINIMIZE)

TrayTip ($trayplaymessage,$cd6,20,1)

else

msgbox(48,"CD Loader information","'" & $input & "'" & " was not found in the database")

endif

wend

And here are some of the batch files

@echo off

cd "C:\Program Files\Alcohol Soft\Alcohol 120"

axcmd z: /u

axcmd z: /m:"D:\ISO Folder\Music\Coldplay\Coldplay - A Rush of Blood To The Head.cue"

@echo off

cd "C:\Program Files\Alcohol Soft\Alcohol 120"

axcmd z: /u

axcmd z: /m:"D:\ISO Folder\Music\Kylie Minogue\Kylie Minogue - Fever.nrg"

the batch files are named "artist - album.bat"

There it is! It is simple but really efficient when it comes to size. The batch files are usually held in the same directory as the script but you could put them anywhere you want. (i stored mine in c:\winnt\cd loader) well thats it!

If someone could help me make a ini script for the next version that would be great! well i am working on the installer and it should be out this week!

Ciao!

ghettochild

Edited by ghettochild

Share this post


Link to post
Share on other sites



oh ya! if somebody could help me with those tricky little @comspec commands then i wouldnt have to use batch files. thanks

Share this post


Link to post
Share on other sites

For (example) batch file number 1, you can use this:

$AlcoholDir = @ProgramFilesDir & "\Alcohol Soft\Alcohol 120"

RunWait(@COMSPEC & " /c axcmd z: /u", $AlcoholDir, @SW_HIDE)
RunWait(@COMSPEC & ' /c axcmd z: /m:"D:\ISO Folder\Music\Coldplay\Coldplay - A Rush of Blood To The Head.cue"', $AlcoholDir, @SW_HIDE)

But you can automate your script more; You can make it much shorter.

Share this post


Link to post
Share on other sites

thanks shady! i will incorporate this and put it into the new release tonight.

Share this post


Link to post
Share on other sites

No problem.

Share this post


Link to post
Share on other sites

can anybody help me understand how to use ini files for my variables?

Share this post


Link to post
Share on other sites

#7 ·  Posted (edited)

It's all in the helpfile.

Here it is shown:

$IniFile = @ScriptDir & "\settings.ini"
IniWrite($IniFile, "section", "variable", "value")
$Readvalue = IniRead($IniFile, "section", "variable", "..if value not found..")
Edited by SlimShady

Share this post


Link to post
Share on other sites

i got that muxh but i dont understand anything past that.. could you please give me a few more lines to work off of?

Share this post


Link to post
Share on other sites

past what? :D

In my example $Readvalue will contain the value you wrote using IniWrite.

That's all I can give you.

Share this post


Link to post
Share on other sites

I am posting again because i need to keep that last one as a backup so here is Version .02 thanks to Slimshady

AutoItSetOption("WinTitleMatchMode", 4)

;(----------------------This is a list of the CD's in Inventory----------------------)

$IniFile = @ScriptDir & "\settings.ini"

$cdloaderdir = IniRead($IniFile, "Misc", "cdloaderdir")

$AlcoholDir = @ProgramFilesDir & "\Alcohol Soft\Alcohol 120"

$trayplaymessage = IniRead($IniFile, "Misc", "trayplaymessage")

$playername = IniRead($IniFile, "Misc", "playername")

$nexthotkey = IniRead($IniFile, "Track Movement", "next")

$previoushotkey =IniRead($IniFile, "Track Movement", "previous")

$cd1 = IniRead($IniFile, "CD title information", "cd1")

$cd2 = IniRead($IniFile, "CD title information", "cd2")

$cd3 = IniRead($IniFile, "CD title information", "cd3")

$cd4 = IniRead($IniFile, "CD title information", "cd4")

$cd5 = IniRead($IniFile, "CD title information", "cd5")

$cd6 = IniRead($IniFile, "CD title information", "cd6")

$CD1local =IniRead($IniFile, "cd locations", "CD1local")

$CD2local =IniRead($IniFile, "cd locations", "CD2local")

$CD3local =IniRead($IniFile, "cd locations", "CD3local")

$CD4local =IniRead($IniFile, "cd locations", "CD4local")

$CD5local =IniRead($IniFile, "cd locations", "CD5local")

$CD6local =IniRead($IniFile, "cd locations", "CD6local")

IniWrite($IniFile, "section", "variable", "value")

$Readvalue = IniRead($IniFile, "section", "variable", "..if value not found..")

;(----------------------This is the start of the loop----------------------)

$loopy = 0

while $loopy = 0

$input = InputBox ( "CD Loader", "type here (type list for help)","","",170,40,0,0)

If @error = 1 Then

exit

;(----------------------Here are the commands for input values----------------------)

elseif $input = "list" Then

MsgBox(0, "CD inventory List", $cd1 & @CRLF & $cd2 & @CRLF & $cd3 & @CRLF & $cd4 & @CRLF & $cd5 & @CRLF & $cd6)

ElseIf $input = "forward" Then

winactivate($playername)

winwait($playername)

send($nexthotkey)

WinSetState ($playername,"",@SW_MINIMIZE)

ElseIf $input = "next" Then

winactivate($playername)

winwait($playername)

send($nexthotkey)

WinSetState ($playername,"",@SW_MINIMIZE)

elseif $input = "back" Then

winactivate($playername)

winwait($playername)

send($previoushotkey)

WinSetState ($playername,"",@SW_MINIMIZE)

elseif $input = "previous" Then

winactivate($playername)

winwait($playername)

send($previoushotkey)

WinSetState ($playername,"",@SW_MINIMIZE)

elseif $input = $cd1 Then

winclose($playername)

RunWait(@COMSPEC & " /c axcmd z: /u", $AlcoholDir, @SW_HIDE)

RunWait(@COMSPEC & " /c axcmd z: /m:" & $CD1local, $AlcoholDir, @SW_HIDE)

winwait("classname=WMPlayerApp")

WinSetState ($playername,"",@SW_MINIMIZE)

TrayTip ($trayplaymessage,$cd1,20,1)

elseif $input = $cd2 Then

winclose($playername)

RunWait(@COMSPEC & " /c axcmd z: /u", $AlcoholDir, @SW_HIDE)

RunWait(@COMSPEC & " /c axcmd z: /m:" & $CD2local, $AlcoholDir, @SW_HIDE)

winwait($playername)

WinSetState ($playername,"",@SW_MINIMIZE)

TrayTip ($trayplaymessage,$cd2,20,1)

elseif $input = $cd3 Then

winclose($playername)

RunWait(@COMSPEC & " /c axcmd z: /u", $AlcoholDir, @SW_HIDE)

RunWait(@COMSPEC & " /c axcmd z: /m:" & $CD3local, $AlcoholDir, @SW_HIDE)

winwait($playername)

WinSetState ($playername,"",@SW_MINIMIZE)

TrayTip ($trayplaymessage,$cd3,20,1)

elseif $input = $cd4 Then

winclose($playername)

RunWait(@COMSPEC & " /c axcmd z: /u", $AlcoholDir, @SW_HIDE)

RunWait(@COMSPEC & " /c axcmd z: /m:" & $CD4local, $AlcoholDir, @SW_HIDE)

winwait($playername)

WinSetState ($playername,"",@SW_MINIMIZE)

TrayTip ($trayplaymessage,$cd4,20,1)

elseif $input = $cd5 Then

winclose($playername)

RunWait(@COMSPEC & " /c axcmd z: /u", $AlcoholDir, @SW_HIDE)

RunWait(@COMSPEC & " /c axcmd z: /m:" & $CD5local, $AlcoholDir, @SW_HIDE)

winwait($playername)

WinSetState ($playername,"",@SW_MINIMIZE)

TrayTip ($trayplaymessage,$cd5,20,1)

elseif $input = $cd6 Then

winclose($playername)

RunWait(@COMSPEC & " /c axcmd z: /u", $AlcoholDir, @SW_HIDE)

RunWait(@COMSPEC & " /c axcmd z: /m:" & $CD6local, $AlcoholDir, @SW_HIDE)

winwait($playername)

WinSetState ($playername,"",@SW_MINIMIZE)

TrayTip ($trayplaymessage,$cd6,20,1)

else

msgbox(48,"CD Loader information","'" & $input & "'" & " was not found in the database")

endif

wend

and the ini file NOTE THE INI FILE MUST BE NAMED "settings.ini"

[Track Movement]

next="{CTRLDOWN}f{CTRLUP}"

previous="{CTRLDOWN}b{CTRLUP}"

[CD titles]

CD1=muse - absolution

CD2=frou frou - details

CD3=kylie minogue - fever

CD4=postal service - give up

CD5=coldplay - a rush of blood to the head

cD6=wyclef jean - the carnival

[cd locations]

CD1local="D:\ISO Folder\Music\Coldplay\Coldplay - A Rush of Blood To The Head.cue"

CD2local="D:\ISO Folder\Music\Frou Frou\Frou Frou - Details.nrg"

cD3local="D:\ISO Folder\Music\Kylie Minogue\Kylie Minogue - Fever.nrg"

cD4local="D:\ISO Folder\Music\Postal Service\Postal Service - Give Up.nrg"

CD5local="D:\ISO Folder\Music\Coldplay\Coldplay - A Rush of Blood To The Head.cue"

CD6local="D:\ISO Folder\Music\Wyclef Jean\Wyclef Jean - The Carnival.cue"

[Misc]

cdloaderdir="c:\WINNT\CD Loader\"

trayplaymessage="Currently Playing..."

playername="classname=WMPlayerApp"

alcoholcmd="c:\program files\Alcohol Soft\Alcohol 120\axcmd.exe"

Share this post


Link to post
Share on other sites

hmmm what did i do wrong?

Share this post


Link to post
Share on other sites

how about

if fileexists("settings.ini") == 0 then

; write a default ini file

endif


"I'm not even supposed to be here today!" -Dante (Hicks)

Share this post


Link to post
Share on other sites

the creation and installation stuff comes later. but thanks! right now i just want to know why i get an error when i try this.

the error occurs at the

$cdloaderdir = IniRead($IniFile, "Misc", "cdloaderdir")

Share this post


Link to post
Share on other sites

in case anyone is wondering, use the first code not the second, i still need to wotkout these ini woes

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