Sign in to follow this  
Followers 0
Thatsgreat2345

Length Of Song

4 posts in this topic

Yes I know their are other topics and i was looking at them but they didnt help me cuz lazy cats thingy was down and the whole mcisendstring larry made didnt work for mp3's so does anyone have any suggestions using DLL calls but which DLLs?

heres my code

#NoTrayIcon
#include <GuiConstants.au3>
GuiCreate("Music Player", 309, 76,(@DesktopWidth-309)/2, (@DesktopHeight-76)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
GUISetBkColor (0x000000)
$Play = GuiCtrlCreateButton("Play", 10, 10, 50, 20)
$Song = GuiCtrlCreateButton("Search", 70, 10, 50, 20)
$Mute = GuiCtrlCreateButton("Mute", 130, 10, 50, 20)
$stop = GuiCtrlCreateButton("Stop", 190, 10, 50, 20)
$exit = GuiCtrlCreateButton("Exit", 250, 10, 50, 20)
$slider = GUICtrlCreateSlider (150,50,100,40)
GUICtrlSetData($Slider,100)
GUICtrlSetLimit ($Slider,100,0)
$Label_8 = GuiCtrlCreateLabel("Thatsgreat2345", 10, 50, 80, 20)
GUICtrlSetColor(-1,0xff0000)
GUICtrlSetResizing (-1,$GUI_DOCKLEFT)
GuiSetState()
func stop()
    while 1
    sleep(100)
wend
endfunc
Do
  $msg = GUIGetMsg ()
   Select
   Case   $msg = $stop
       soundplay("C:\exit.mp3")
Case $msg = $Song
    $playsong=FileOpenDialog ("Choose music", "", "Musicfiles(*.mp3;*.wma;*.wav;*.wave;*.mid;*)")
Case $msg = $play
    Soundplay ($playsong)
Case $msg = $Mute
    send("{VOLUME_MUTE}")
Case $msg = $slider
    SoundSetWaveVolume (GUICtrlRead($slider))
    
      Case $msg = $exit
         exit
   EndSelect
Until $msg = $GUI_EVENT_CLOSE

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

Haven't bothered to upload a newer version, but here's some UDFs I made some while ago..

They do work with SoundPlay so they shouldn't be all that difficult to use. Good luck.

Edit : files deleted... get them http://www.autoitscript.com/fileman/users/Helge/udfs.htm#sound instead.

Edited by Helge

Share this post


Link to post
Share on other sites

Haven't bothered to upload a newer version, but here's some UDFs I made some while ago..

They do work with SoundPlay so they shouldn't be all that difficult to use. Good luck.

Sound.au3

Sound_test.au3

Mwuahaha... nothing like bringing posts from 7 months ago back from the dead. In case anyone else needs this, try:

#include <extprop.au3>
$path = FileOpenDialog("Select a file to read attributes",@ScriptDir,"All (*.*)")
$prop = _GetExtProperty($path,21)
ConsoleWrite("Duration: "&$prop&@CRLF)

Get extprop.au3 from:

http://www.autoitscript.com/forum/index.php?showtopic=25859


AutoIt Scripts:Aimbot: Proof of Concept - PixelSearching Aimbot with several search/autoshoot/lock-on techniques.Sliding Toolbar - Add a nice Sliding Toolbar to your next script. Click the link to see an animation of it in action!FontInfo UDF - Get list of system fonts, or search to see if a particular font is installed.Get Extended Property UDF - Retrieve a files extended properties (e.g., video/image dimensions, file version, bitrate of song/video, etc)

Share this post


Link to post
Share on other sites

Hi Simucal,

I like your func. Works great! :D

I use it to get a printable playlist of mp3 CDs with Nr., songname, length ...

So long,

Mega


Scripts & functions Organize Includes Let Scite organize the include files

Yahtzee The game "Yahtzee" (Kniffel, DiceLion)

LoginWrapper Secure scripts by adding a query (authentication)

_RunOnlyOnThis UDF Make sure that a script can only be executed on ... (Windows / HD / ...)

Internet-Café Server/Client Application Open CD, Start Browser, Lock remote client, etc.

MultipleFuncsWithOneHotkey Start different funcs by hitting one hotkey different times

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