Code:
If ProcessExists("itunes.exe") Then ControlSend ( "iTunes", "", "iTunesThumbnailView1", "{RIGHT}" ) EndIf
Code:
If ProcessExists("itunes.exe") Then $iTunesApp = ObjCreate("iTunes.Application") $iTunesApp.PlayPause EndIf
If this is your first visit, be sure to check out the FAQ. You must register before you can post.
IMPORTANT: Your first post will be checked for appropriate content. This may take a bit of time.
If ProcessExists("itunes.exe") Then $iTunesApp = ObjCreate("iTunes.Application") $iTunesApp.PlayPause EndIf
... If Process.GetProcessesByName( "itunes" ).Length > 0 Then Dim t as Type = Type.GetTypeFromProgID("iTunes.Application") Dim o as Object = Activator.CreateInstance( t ) o.PlayPause() End If ...
If ProcessExists("spotify.exe") Then ControlSend( "Spotify", "", "", "^{RIGHT}" ) EndIf
If ProcessExists("spotify.exe") Then ControlSend( "Spotify", "", "", "^{LEFT}" ) sleep (500) ControlSend( "Spotify", "", "", "^{LEFT}" ) EndIf
Comment