TECH Posted January 31, 2010 Share Posted January 31, 2010 I need some help. Im trying to create a tooltip that will show what music I am listening to. I.e. if Im listening to Boom Boom Pow by B.E.P. I want the music to show in a tootip in the left corner. I already got the top corner part but I need to create a ??variable?? to show what song Im listening to. Any help will be greatly appreciated. Thnx Link to comment Share on other sites More sharing options...
James Posted January 31, 2010 Share Posted January 31, 2010 Wow, you narrowed that down well.... What music player do you use? James Blog - Seriously epic web hosting - Twitter - GitHub - Cachet HQ Link to comment Share on other sites More sharing options...
TECH Posted January 31, 2010 Author Share Posted January 31, 2010 (edited) Wow, you narrowed that down well....What music player do you use?Jameswow sarcasm nicei use WMP V 11 Edited January 31, 2010 by TECH Link to comment Share on other sites More sharing options...
James Posted January 31, 2010 Share Posted January 31, 2010 (edited) Dim $objWMP = ObjCreate("WMPlayer.OCX") If @error Then MsgBox(0, @ScriptName, "Erm... Problem!") EndIf Dim $last, $new $last = _WMP_GetSongName() While 1 If $last <> $new Then $new = _WMP_GetSongName() $last = $new TrayTip(@ScriptName, $new & " - " & _WMP_GetSongArtist(), 10) EndIf WEnd Func _WMP_GetSongName() Local $firstMedia = $objWMP.mediaCollection.getAll().item(0) $objWMP.currentMedia = $firstMedia Return $objWMP.CurrentMedia.Name EndFunc ;==>_WMP_GetSongName Func _WMP_GetSongArtist() Local $firstMedia = $objWMP.mediaCollection.getAll().item(0) $objWMP.currentMedia = $firstMedia Return $objWMP.CurrentMedia.getItemInfo("artist") EndFunc That's a start... Edited January 31, 2010 by JamesBrooks Blog - Seriously epic web hosting - Twitter - GitHub - Cachet HQ Link to comment Share on other sites More sharing options...
TECH Posted February 2, 2010 Author Share Posted February 2, 2010 Dim $objWMP = ObjCreate("WMPlayer.OCX") If @error Then MsgBox(0, @ScriptName, "Erm... Problem!") EndIf Dim $last, $new $last = _WMP_GetSongName() While 1 If $last <> $new Then $new = _WMP_GetSongName() $last = $new TrayTip(@ScriptName, $new & " - " & _WMP_GetSongArtist(), 10) EndIf WEnd Func _WMP_GetSongName() Local $firstMedia = $objWMP.mediaCollection.getAll().item(0) $objWMP.currentMedia = $firstMedia Return $objWMP.CurrentMedia.Name EndFunc ;==>_WMP_GetSongName Func _WMP_GetSongArtist() Local $firstMedia = $objWMP.mediaCollection.getAll().item(0) $objWMP.currentMedia = $firstMedia Return $objWMP.CurrentMedia.getItemInfo("artist") EndFunc That's a start... haha thnx... now just to figure out how to change the song or get what song from a playlist hmmm.... are their any really good tuts that you know of or have done?? Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now