Reply to thread

Message

<blockquote data-quote="DJBlu" data-source="post: 671922" data-attributes="member: 54957">Public Sub Start()&nbsp; &nbsp; Dim currentUser As String = String.Empty&nbsp; &nbsp; _alertTime = INFINITE_TIME&nbsp; &nbsp; GUIWindowManager.OnNewAction += New OnActionHandler(OnNewAction)&nbsp; &nbsp; g_Player.PlayBackStarted += New g_Player.StartedHandler(OnPlayBackStarted)&nbsp; &nbsp; g_Player.PlayBackEnded += New g_Player.EndedHandler(OnPlayBackEnded)&nbsp; &nbsp; g_Player.PlayBackStopped += New g_Player.StoppedHandler(OnPlayBackStopped)&nbsp; &nbsp; Using xmlreader As Settings = New MPSettings()&nbsp; &nbsp; &nbsp; &nbsp; currentUser = xmlreader.GetValueAsString(&quot;audioscrobbler&quot;, &quot;user&quot;, [String].Empty)&nbsp; &nbsp; &nbsp; &nbsp; _announceNowPlaying = xmlreader.GetValueAsBool(&quot;audioscrobbler&quot;, &quot;EnableNowPlaying&quot;, True)&nbsp; &nbsp; End Using&nbsp; &nbsp; Dim mdb As MusicDatabase = MusicDatabase.Instance&nbsp; &nbsp; &nbsp; &nbsp; _doSubmit = false&nbsp; &nbsp;&nbsp; If(mdb.AddScrobbleUserSettings(Convert.ToString(mdb.AddScrobbleUser(currentUser)), &quot;iSubmitOn&quot;, -1) = 1) then&nbsp; &nbsp; &nbsp; &nbsp; _doSubmit = true&nbsp; &nbsp; &nbsp; &nbsp; end if&nbsp; &nbsp; Log.Info(&quot;Audioscrobbler plugin: Submit songs: {0}, announce Now Playing: {1}&quot;, Convert.ToString(_doSubmit), Convert.ToString(_announceNowPlaying))&nbsp; &nbsp; If _doSubmit Then&nbsp; &nbsp; &nbsp; &nbsp; OnManualConnect(Nothing, Nothing)&nbsp; &nbsp; End IfEnd Sub</blockquote>

[QUOTE="DJBlu, post: 671922, member: 54957"] Public Sub Start() Dim currentUser As String = String.Empty _alertTime = INFINITE_TIME GUIWindowManager.OnNewAction += New OnActionHandler(OnNewAction) g_Player.PlayBackStarted += New g_Player.StartedHandler(OnPlayBackStarted) g_Player.PlayBackEnded += New g_Player.EndedHandler(OnPlayBackEnded) g_Player.PlayBackStopped += New g_Player.StoppedHandler(OnPlayBackStopped) Using xmlreader As Settings = New MPSettings() currentUser = xmlreader.GetValueAsString("audioscrobbler", "user", [String].Empty) _announceNowPlaying = xmlreader.GetValueAsBool("audioscrobbler", "EnableNowPlaying", True) End Using Dim mdb As MusicDatabase = MusicDatabase.Instance _doSubmit = false If(mdb.AddScrobbleUserSettings(Convert.ToString(mdb.AddScrobbleUser(currentUser)), "iSubmitOn", -1) = 1) then _doSubmit = true end if Log.Info("Audioscrobbler plugin: Submit songs: {0}, announce Now Playing: {1}", Convert.ToString(_doSubmit), Convert.ToString(_announceNowPlaying)) If _doSubmit Then OnManualConnect(Nothing, Nothing) End If End Sub [/QUOTE]

Verification