Jump to content
Sign in to follow this  

AutoIt Media Player

Recommended Posts

Just because i wanted to listen to all my favorite songs in a row in Windows 2000:

HotkeySet("{ESC}", "myexit")

If not FileExists("amp.ini") Then create()
$loop = IniRead("amp.ini", "loop", "loop", "nan")
$delay = IniRead("amp.ini", "sleep", "delay", "nan")
$looped = IniRead("amp.ini", "sleep", "looped", "nan")
If $loop = "nan" or $delay = "nan" or $looped = "nan" Then Exit
$song = IniReadSection("amp.ini", "songs")

For $i = 1 to $song[0][0] step 1
  If $loop = 1 and $i = $song[0][0] Then
    $i = 1
  If FileExists($song[$i][1]) Then SoundPlay($song[$i][1], 1)

Func create()
  FileWrite("amp.ini", "[loop]" & @CRLF & "loop=0" & @CRLF & "[sleep]" & @CRLF & "delay=2000" & @CRLF & "looped=3000" & @CRLF & "[songs]" & @CRLF & "1=" & @WindowsDir & "\media\ding.wav")

Func myexit()

Run it once, it will create the properly formatted INI, you can edit it from there.

Any questions/comments are appreciated!

Share this post

Link to post
Share on other sites

look at zero's media player that may help you out

[font="Times"] If anyone remembers me, I am back. Maybe to stay, maybe not.----------------------------------------------------------------------------------------------------------[/font][font="Times"]Things I am proud of: Pong! in AutoIt | SearchbarMy website: F.R.I.E.S.A little website that is trying to get started: http://thepiratelounge.net/ (not mine)[/font][font="Times"] ----------------------------------------------------------------------------------------------------------[/font][font="Arial"]The newbies need to stop stealing avatars!!! It is confusing!![/font]

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  

  • Recently Browsing   0 members

    No registered users viewing this page.

  • Create New...