randomRun.au3

;******************************************************************
; Zgoda Rafal
;******************************************************************

$spotifyURI = "spotify:user:uq60z0x11at13v44sormagxn0:playlist:1O6ESWV9THN8Y7W5LPoyqB"
Const $SpotifyWindowIdentifier = "[Title:Spotify]"

While 1
	RandomReboot()
	Sleep(Random(0,1)*1000*60*10)
WEnd


Func RandomReboot()
	$rndReb = Random(0,1)
	echo($rndReb)
	If($rndReb > 0.85) Then
		 ProcessClose("Spotify.exe")
	Else
		PlaySpotifyPlaylist($spotifyURI)
		;$timer = TimerInit()
		;Sleep(Random(0,1)*5000)
		;echo("TIMER : "+TimerDiff($timer))
		;Sleep(Random(0,1)*1000)
		;Send("{MEDIA_PLAY_PAUSE}")
		;Sleep(Random(0,1)*1000)
		;Send("{LAUNCH_MEDIA}")
	EndIf
EndFunc

Func PlaySpotifyPlaylist($spotifyURI,$retry = 0)

	ProcessClose("Spotify.exe")
    ShellExecute($spotifyURI)
	Opt("WinTitleMatchMode", 2)

    If Not WinExists($SpotifyWindowIdentifier) Then
        echo ("Pausing existing song (To find spotify window)")
        $timer = TimerInit()
        While Not WinExists($SpotifyWindowIdentifier)
            Send("{MEDIA_PLAY_PAUSE}")
            Sleep(500)
            If TimerDiff($timer) > 5 * 1000 Then ErrorMsg ("Timed out trying pause existing song")
        WEnd
    endif

    $hwndSpotify = WinGetHandle($SpotifyWindowIdentifier)
	LaunchPlaylist()
EndFunc

Func echo($text)
    ConsoleWrite ($text&@CRLF)
EndFunc

Func ErrorMsg($text)
    MsgBox(16,StringTrimRight(@ScriptName,4),$text)
    Exit
EndFunc

Func LaunchPlaylist()
	echo ("Attempting to play playlist")
    $timer = TimerInit()
	Sleep(5000)
	;ControlSend($hwndSpotify,"","","+{TAB}")
	Sleep(Random(0,1)*500)
	For $i = 1 To 10 Step 1
		;ControlSend($hwndSpotify,"","","+{down}")
		Send("{TAB}")
		Sleep(Random(0,1)*500)
		echo($i)
	Next
	Send("{ENTER}")
	;ControlSend($hwndSpotify,"","","{ENTER}")
EndFunc