ScrobblerDJ v1.26, Let your music free!!!

Fedaykin- · Post by **Fedaykin-** » Wed Jan 03, 2007 10:09 am

Line 174:

Sub LastArtist(ModeType)

Also, when I try to play a track, I get this error:

Error #1033 - Microsoft VBScript compilation error
Unterminated string constant
n = Instri(input, " ?) <--there should be some funky characters in there
File: "C:\Program Files\MediaMonkey\Scripts\ScrobblerDJ.vbs", Line: 154, Column:35

Error happened during script initilization:
Unterminated string constant

Line 154:

n = InStr(input, "|坑坑?)

trixmoto · Post by **trixmoto** » Wed Jan 03, 2007 10:50 am

Those special characters should not be in the script file. I suggest you try reinstalling the script.

Fedaykin- · Post by **Fedaykin-** » Wed Jan 03, 2007 11:11 am

Thanks for the reply. I reinstalled the script again but the special characters were still there.

For now, I have removed them from the script file but the script doesn't work (obviously).

Perhaps somebody could be so kind as to tell me what belongs in line 154? It would help a great deal. Thanks!

Miki · Post by **Miki** » Wed Jan 03, 2007 1:49 pm

n = InStr(input, "|§|§|§")

Fedaykin- · Post by **Fedaykin-** » Thu Jan 04, 2007 2:33 am

Thanks for the help! It essentially solves the problem, but here's the situation in more detail:

Basically, in my regional settings, I have the language settings set to Chinese for non-unicode programs because I have Chinese songs and like to view Chinese characters. If I disable this option and change it back to English, ScrobblerDJ works. However, the Minilyrics which I have embedded in MM no longer displays the Chinese lyrics for Chinese songs.

Therefore, I either have to give up ScrobblerDJ or the use of Chinese lyrics in minilyrics. Does this sound like a familiar problem to anybody? Also, if this problem can be fixed easily, it would be great as I do not wish to give up either functionality.

Cheers

trixmoto · Post by **trixmoto** » Thu Jan 04, 2007 4:31 am

If you go through all the Scrobbler script files (including the .htm/.hta which contain scripts) and change this "|§|§|§" into a different delimiter (ie: "|*|*|*") then this should stop the conflict (assuming it's the "§" character that is causing the problem). I'm not entirely sure what it's used for though so I wouldn't recommend attempting this unless you have a certain level of scripting knowledge.

Fedaykin- · Post by **Fedaykin-** » Thu Jan 04, 2007 1:32 pm

trixmoto wrote:If you go through all the Scrobbler script files (including the .htm/.hta which contain scripts) and change this "|§|§|§" into a different delimiter (ie: "|*|*|*") then this should stop the conflict (assuming it's the "§" character that is causing the problem). I'm not entirely sure what it's used for though so I wouldn't recommend attempting this unless you have a certain level of scripting knowledge.

<--- Little to no scripting knowledge here

Any idea what the worst thing that could happen could be if I were to "experiment" like this?

psyXonova · Post by **psyXonova** » Thu Jan 04, 2007 2:53 pm

That was a bulky way i created ages ago to separate Artist from Title (they were passed in a single script). Changing that will not harm your library in any way...

Fedaykin- · Post by **Fedaykin-** » Thu Jan 04, 2007 5:11 pm

I will give it a try then. Hopefully it works

stre · Post by **stre** » Fri Jan 05, 2007 9:56 am

Hi there

First of all thx for this wonderful script! I've been using it for several months now. It got that important to me that it now stops me from moving to windows Vista

I know this version of MM is not supported on vista, but everything works fine
until I install this script

I get following error on startup of MM:
Error#429 - Microsoft VBScript Runtime Error
ActiveX component can't create object 'songsdb.sdbapplication'
path to file, line 3 column 0

Any ideas? I tried putting all internet security on lowest but no result...

thx

Fedaykin- · Post by **Fedaykin-** » Fri Jan 05, 2007 12:03 pm

Give this a go:

1) Run regedit.exe
2) Goto HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0
3) Modify key 1201 = 0

Courtesy of trixmoto...found it somewhere else on this site (can't find the thread - I saved this in a .txt file).

Cheers

Guest · Post by **Guest** » Fri Jan 05, 2007 8:47 pm

[quote="mathenge"]Hi! First of all, thank you for a brilliant idea... once this gets worked out, this script is going to be huge!

In any case, I can't get it to work. As it gets to the last song, it pulls up an error message (usually #424, object required...line 78, column 12) that is quickly covered by a billion "error executing event" boxes. If I can click "ok" quickly enough to overcome the rate of new error boxes spawning, it will successfully pull a suggested song.

I don't know enough about scripting to do the debugging myself, so I hope you can figure it out, and hope that I'm not just repeating something that someone else has already brought to your attention!

Thanks a lot!
-J

Including the .vbs log for your viewing pleasure:

4/10/2006 10:49:46 AM: ---------------------------------------------------------------------------------------
4/10/2006 10:49:46 AM: User options are:
4/10/2006 10:49:46 AM: Default playlist: Highest rated
4/10/2006 10:49:46 AM: Timeout Settings: 0, Warn: 0
4/10/2006 10:49:46 AM: Dont play same artist: 0
4/10/2006 10:49:46 AM: Minimun match: 0
4/10/2006 10:49:46 AM: Minimum Rating: 0
4/10/2006 10:49:47 AM: Include Higher Rating: False
4/10/2006 10:49:47 AM: Include Unknown Rating: True
4/10/2006 10:49:47 AM: <<<<<<<<<<<<<< Script Will now Proceed >>>>>>>>>>>>>>>>>
4/10/2006 10:49:47 AM: * ScrobblerDJ started
4/10/2006 10:49:47 AM: ** All conditions met, Scrobbler will now go online
4/10/2006 10:49:47 AM: * Initialization started
4/10/2006 10:49:47 AM: * Initialization finished
4/10/2006 10:49:47 AM: ScrobblerDJ will register Progtimer
4/10/2006 10:49:47 AM: ** Feed Artist is U2
4/10/2006 10:49:47 AM: * LoadXML started. Parameters passed: U2 ,1
4/10/2006 10:49:47 AM: * URLEncode has started with parameters U2
4/10/2006 10:49:47 AM: * URLEncode will return U2 and exit
4/10/2006 10:49:47 AM: LoadXML will register DownTimer
4/10/2006 10:49:47 AM: LoadXML set Mode to 1 (artist)
4/10/2006 10:49:47 AM: * LoadXML exited
4/10/2006 10:49:47 AM: * ScrobblerDJ exited
4/10/2006 10:49:47 AM: * ProgTimer Unregistered by itself
4/10/2006 10:49:47 AM: * Downtimer reported Network connectivity error. Scrobbler will now exit
4/10/2006 10:49:48 AM: * Downtimer reported Network connectivity error. Scrobbler will now exit
4/10/2006 10:49:48 AM: * Downtimer reported Network connectivity error. Scrobbler will now exit
4/10/2006 10:49:49 AM: * DownTimer Unregistered by itself (results from Last.FM returned succesfully)
4/10/2006 10:49:49 AM: ** Downtime is calling sub last artist in mode: 1
4/10/2006 10:49:49 AM: * LastArtist started. Mode was 1
4/10/2006 10:49:49 AM: LastArtist is calling ParseXML with parameters U2, 1
4/10/2006 10:49:49 AM: * ParseXML has started with parameters U2, 1
4/10/2006 10:49:49 AM: ParseXML is tranfering XML data to a dictionary
4/10/2006 10:49:49 AM: ParseXML tranfered XML data to dictionary succefully
4/10/2006 10:49:49 AM: ParseXML will now call NotTooSoon with parameters The Violet Burning
4/10/2006 10:49:49 AM: * NotTooSoon has started with parameters The Violet Burning
4/10/2006 10:49:49 AM: * CorrectSt has started with parameters The Violet Burning
4/10/2006 10:49:49 AM: * CorrectSt will return The Violet Burning and exit
4/10/2006 10:49:49 AM: NotTooSoon will query database with SQL: SELECT Songs.IDArtist, Played.PlayDate FROM (Songs INNER JOIN Played ON Songs.ID = Played.IdSong) INNER JOIN Artists ON Songs.IDArtist = Artists.ID WHERE Artists.Artist Like 'The Violet Burning' ORDER BY Played.PlayDate DESC
4/10/2006 10:49:49 AM: * NotTooSoon will retunn True and exit
4/10/2006 10:49:49 AM: ParseXML will now call sub CheckExist with parameters The Violet Burning, 0, 1
4/10/2006 10:49:49 AM: * CheckExist has started with parameters The Violet Burning, 0, 1
4/10/2006 10:49:49 AM: * CorrectSt has started with parameters The Violet Burning
4/10/2006 10:49:49 AM: * CorrectSt will return The Violet Burning and exit
4/10/2006 10:49:49 AM: CheckExist will call CheckRating with parameters The Violet Burning, 0, 1
4/10/2006 10:49:49 AM: * CheckRating has started with parameters The Violet Burning, 0, 1
4/10/2006 10:49:49 AM: * CorrectSt has started with parameters The Violet Burning
4/10/2006 10:49:49 AM: * CorrectSt will return The Violet Burning and exit
4/10/2006 10:49:49 AM: CheckRating will query database with SQL: SELECT TOP 1 Artists.ID FROM Artists Left Join Songs On Artists.ID = Songs.IDArtist WHERE Artists.Artist like 'The Violet Burning' And (Songs.Rating >=0 OR SONGS.RATING = -1) ORDER BY Songs.Rating DESC
4/10/2006 10:49:49 AM: * CheckRating will return False and exit
4/10/2006 10:49:49 AM: Rating Control for artist The Violet Burning failed. CheckExist will return 0 and exit
4/10/2006 10:49:49 AM: CheckExist returned 0 to ParseXML
4/10/2006 10:49:49 AM: ParseXML will now call NotTooSoon with parameters Gyllene Tider
4/10/2006 10:49:49 AM: * NotTooSoon has started with parameters Gyllene Tider
4/10/2006 10:49:49 AM: * CorrectSt has started with parameters Gyllene Tider
4/10/2006 10:49:49 AM: * CorrectSt will return Gyllene Tider and exit
4/10/2006 10:49:49 AM: NotTooSoon will query database with SQL: SELECT Songs.IDArtist, Played.PlayDate FROM (Songs INNER JOIN Played ON Songs.ID = Played.IdSong) INNER JOIN Artists ON Songs.IDArtist = Artists.ID WHERE Artists.Artist Like 'Gyllene Tider' ORDER BY Played.PlayDate DESC
4/10/2006 10:49:49 AM: * NotTooSoon will retunn True and exit
4/10/2006 10:49:49 AM: ParseXML will now call sub CheckExist with parameters Gyllene Tider, 0, 1
4/10/2006 10:49:50 AM: * CheckExist has started with parameters Gyllene Tider, 0, 1
4/10/2006 10:49:50 AM: * CorrectSt has started with parameters Gyllene Tider
4/10/2006 10:49:50 AM: * CorrectSt will return Gyllene Tider and exit
4/10/2006 10:49:50 AM: CheckExist will call CheckRating with parameters Gyllene Tider, 0, 1
4/10/2006 10:49:50 AM: * CheckRating has started with parameters Gyllene Tider, 0, 1
4/10/2006 10:49:50 AM: * CorrectSt has started with parameters Gyllene Tider
4/10/2006 10:49:50 AM: * CorrectSt will return Gyllene Tider and exit
4/10/2006 10:49:50 AM: CheckRating will query database with SQL: SELECT TOP 1 Artists.ID FROM Artists Left Join Songs On Artists.ID = Songs.IDArtist WHERE Artists.Artist like 'Gyllene Tider' And (Songs.Rating >=0 OR SONGS.RATING = -1) ORDER BY Songs.Rating DESC
4/10/2006 10:49:50 AM: * CheckRating will return False and exit
4/10/2006 10:49:50 AM: Rating Control for artist Gyllene Tider failed. CheckExist will return 0 and exit
4/10/2006 10:49:50 AM: CheckExist returned 0 to ParseXML
4/10/2006 10:49:50 AM: ParseXML will now call NotTooSoon with parameters Duran Duran
4/10/2006 10:49:50 AM: * NotTooSoon has started with parameters Duran Duran
4/10/2006 10:49:50 AM: * CorrectSt has started with parameters Duran Duran
4/10/2006 10:49:50 AM: * CorrectSt will return Duran Duran and exit
4/10/2006 10:49:50 AM: NotTooSoon will query database with SQL: SELECT Songs.IDArtist, Played.PlayDate FROM (Songs INNER JOIN Played ON Songs.ID = Played.IdSong) INNER JOIN Artists ON Songs.IDArtist = Artists.ID WHERE Artists.Artist Like 'Duran Duran' ORDER BY Played.PlayDate DESC
4/10/2006 10:49:50 AM: * NotTooSoon will retunn True and exit
4/10/2006 10:49:50 AM: ParseXML will now call sub CheckExist with parameters Duran Duran, 0, 1
4/10/2006 10:49:50 AM: * CheckExist has started with parameters Duran Duran, 0, 1
4/10/2006 10:49:50 AM: * CorrectSt has started with parameters Duran Duran
4/10/2006 10:49:50 AM: * CorrectSt will return Duran Duran and exit
4/10/2006 10:49:50 AM: CheckExist will call CheckRating with parameters Duran Duran, 0, 1
4/10/2006 10:49:50 AM: * CheckRating has started with parameters Duran Duran, 0, 1
4/10/2006 10:49:50 AM: * CorrectSt has started with parameters Duran Duran
4/10/2006 10:49:50 AM: * CorrectSt will return Duran Duran and exit
4/10/2006 10:49:50 AM: CheckRating will query database with SQL: SELECT TOP 1 Artists.ID FROM Artists Left Join Songs On Artists.ID = Songs.IDArtist WHERE Artists.Artist like 'Duran Duran' And (Songs.Rating >=0 OR SONGS.RATING = -1) ORDER BY Songs.Rating DESC
4/10/2006 10:49:50 AM: CheckRating will sub-query database with SQL: AND (Songs.IDArtist =3837) And (Songs.Rating >=0 OR SONGS.RATING = -1)
4/10/2006 10:49:50 AM: CheckRating will call IsAccesible for 13560
4/10/2006 10:49:50 AM: * IsAccessible has started for song (13560) Duran Duran - Ordinary World
4/10/2006 10:49:50 AM: * IsAccessible will return True and exit
4/10/2006 10:49:50 AM: ** 13560 was accessible
4/10/2006 10:49:50 AM: * CheckRating will return TRUE and exit
4/10/2006 10:49:50 AM: CheckExist is querying database. SQL is: SELECT ID, Artist FROM Artists Where Artist like 'Duran Duran'
4/10/2006 10:49:50 AM: CheckExist is sub-querying database. SQL is: AND (Songs.IDArtist =3837)
4/10/2006 10:49:50 AM: CheckExist will call IsAccessible for Ordinary World
4/10/2006 10:49:50 AM: * IsAccessible has started for song (13560) Duran Duran - Ordinary World
4/10/2006 10:49:50 AM: * IsAccessible will return True and exit
4/10/2006 10:49:50 AM: ** Ordinary World was accessible
4/10/2006 10:49:50 AM: CheckExist returned 3837 to ParseXML
4/10/2006 10:49:50 AM: ** ParseXML will return 3837|å

psyXonova · Post by **psyXonova** » Sat Jan 06, 2007 4:23 am

Hmm, it seems like a broken installation of SDj since for some reason the error log contains very strange entries....

I would suggest to uninstall SDj delete all entries in MediaMonkey.ini under the ScrobblerDJ section (after you have taken a backup of the file) and reinstall SDj...

Hope this works

Fedaykin- · Post by **Fedaykin-** » Sat Jan 06, 2007 7:47 pm

Thank you to everybody that helped me out with this! ScrobblerDJ finally works and it is GREAT!

Here's what I did (for anybody who may also use unicode for foreign language songs):

1. In ScrobblerDJ.vbs, change all instances of "|坑坑? to "|§|§|§". I encountered 2 instances in total.

2. In the Auto folder within MM, in ScrobblerDJConfig.vbs, search for Edt.AddItem. For me, for all the half-star ratings, there was a missing " after the ?.

I couldn't find the .htm/.hta files trixmoto mentioned. If anybody thinks I should look into those as well I would be glad to give it a shot if somebody can tell me where to locate them.

Again, thanks to everybody that helped!

stre · Post by **stre** » Sun Jan 07, 2007 3:41 am

Fedaykin- wrote:Give this a go:

1) Run regedit.exe
2) Goto HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0
3) Modify key 1201 = 0

Courtesy of trixmoto...found it somewhere else on this site (can't find the thread - I saved this in a .txt file).

Cheers

Thx for the reply. Unfortunately this doesn't solve the problem

Still same error:
Error#429 - Microsoft VBScript Runtime Error
ActiveX component can't create object 'songsdb.sdbapplication'
path to file, line 3 column 0

Any other ideas? Anybody got this great script working under MS Vista?

greetz

ScrobblerDJ v1.26, Let your music free!!!

vista

Re: Repeating Error #424 or #91