FAQFAQ   SearchSearch   UsergroupsUsergroups   RegisterRegister   ProfileProfile    Log inLog in   RSS Feed

Winamp Integration - Predixis MusicMagic script?

 
Post new topic   Reply to topic    Salling Software Forums Forum Index -> Salling Clicker for Windows
View previous topic :: View next topic  
Author Message
wusman
Newbie


Joined: 04 Dec 2005
Posts: 1

PostPosted: Sun Dec 04, 2005 9:37 am    Post subject: Winamp Integration - Predixis MusicMagic script? Reply with quote

Hi everyone,

I've been playing around with the Winamp control and was wondering if anyone thinks it would be possible to integrate the new MusicMagic mix creator into the Winamp control as well, ie. as in when choosing an artist, have a context option to "create mix" based on MusicMagic's functionality.

I did find the following active winamp script on the Predixis forum, but I'm not sure how to start using this : (link below)

[url]http://forums.predixis.com/index.php?showtopic=445&st=0&#entry2762[/url]

Text :

[code:1]''''''''''''''''''''''''''''''''''''''''''''''''
'
' Predixis MusicMagic Mixer Integration for Winamp
'
' beta 1 - Andy Baker (http://www.andybak.net - MMMscript@andybak.net)
'
' Requires Shane's ActiveWinamp plugin: http://activewinamp.sourceforge.net/
' Save into your Active Winamp scripts folder as 'playlist_MusicMagic.vbs'
'
' Currently hardcoded to look for MusicMagic 1.1 in the registry
' Requires licenced version of MMM with the API server turned on in options
' and set to listen on the default port (10002)
'
'
''''''''''''''''''''''''''''''''''''''''''''''''

Set http = CreateObject("Microsoft.XmlHttp")

Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")

query = "select * from Win32_Process where Name='MusicMagicMixer.exe'"
Set wmiProcesses = GetObject("winmgmts:").ExecQuery(query)

If wmiProcesses.count < 1 Then
path = WshShell.RegRead ("HKLM\SOFTWARE\Predixis\MusicMagic Mixer\1.1\InstallDir")
MMMapp = """" & path & "\MusicMagicMixer.exe"""
WshShell.Run MMMapp, 7, False
' Msgbox ("open!")
End if

x = Playlist.GetSelection

track = x(1).Filename

http.open "GET", "http://localhost:10002/api/mix?song=" & URLEncode(track), FALSE
http.send ""
Playlist.Clear
myArray = Split(http.responseText,vbLf, -1, vbtextcompare)
For Each item in myArray
set ps = LoadItem(CStr(item))
ps.enqueue
Next

Play

quit

Function URLEncode(text)
Dim i, acode, char, translate
translate = True
URLEncode = text
For i = Len(URLEncode) To 1 Step -1
acode = Asc(Mid(URLEncode, i, 1))
if (acode = 32) or (acode >= 48 and acode <= 57) or (acode >= 65 and acode <= 90) or (acode >= 97 and acode <= 122) Then
translate = False
End If
if acode = 32 Then
' replace space with "+"
URLEncode = Mid(URLEncode, 1, i-1) & "+" & Mid(URLEncode, i+1, len(URLEncode))
translate = False
End If
if translate = True Then
' replace punctuation chars with "%hex"
URLEncode = Left(URLEncode, i - 1) & "%" & Hex(acode) & Mid(URLEncode, i + 1)
End If
Next
End Function
[/code:1]

Any ideas ?? Would be a fantastic enhancement ...
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Salling Software Forums Forum Index -> Salling Clicker for Windows All times are GMT + 2 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum


Powered by phpBB © 2001, 2005 phpBB Group