Your browser does not support javascript (or it is disabled.) Please use a browser with javascript or enable it.We need javascript to function properly otherwise some things won't work.
Sub Rate1(sender As Object, e As EventArgs) Dim currentPath = mbApiInterface.NowPlaying_GetFileUrl() mbApiInterface.Player_PlayNextTrack() mbApiInterface.Library_SetFileTag(currentPath, MetaDataType.Rating, "1") mbApiInterface.Library_CommitTagsToFile(currentPath) mbApiInterface.MB_RefreshPanels() End Sub