Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Try
- Dim Title_Trim As String = Nothing
- Dim p() As Process = Process.GetProcessesByName("spotify")
- For Each proc As Process In p
- Dim Temp_Cur As String = CStr(proc.MainWindowTitle)
- If CStr(Regex.Split(Temp_Cur, "Spotify - ").GetValue(1)).Length > 5 Then
- Title_Trim = CStr(Regex.Split(Temp_Cur, "Spotify - ").GetValue(1))
- Spotify_Arist = Regex.Split(Title_Trim, " – ").GetValue(0)
- Spotify_Title = Regex.Split(Title_Trim, " – ").GetValue(1)
- End If
- Next
- Catch ex As Exception
- Messagebox.Show(ex.message)
- End Try
Advertisement
Add Comment
Please, Sign In to add comment