RunWait( @ComSpec & " /c dir/a/s/b *.xex *.atr *.cas > files.txt" )

Local $file = FileOpen("files.txt", 0)

; Check if file opened for reading OK
If $file = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf

; Read in lines of text until the EOF is reached
While 1
    Local $line = FileReadLine($file)
	
    If @error = -1 Then ExitLoop
    ShellExecute($line)
    $active = WinWaitActive("[CLASS:AltirraMainWindow]","",5)
	If $active > 0 Then
		$screen_number=0
		wait_some_time(1200);
		make_screenshot();
		press_keys();
		wait_some_time(500);
		if check_working() then
			make_screenshot();
			press_keys();
			wait_some_time(500);
			if check_working() then
				make_screenshot();
				press_keys();
				wait_some_time(500);
				if check_working() then make_screenshot();
			EndIf
		EndIf
		end_process()
	EndIf
WEnd

FileClose($file)

Func press_keys()
		Send("{ctrldown}") 
		Sleep(50)
		Send("{ctrlup}") 
		Sleep(50)
		Send("{F2 down}");
		Sleep(50)
		Send("{F2 up}");
		Sleep(50)
		Send("{F2}{F3}{F4}");
		Send("01234{ENTER}56789{ENTER}{LCTRL}{RCTRL}");
		Send("abcde{ENTER}fghijklmno{ENTER}qrstuvxyz{ENTER}");
		Send("{DOWN}{LEFT}");
		Send("{F4}{F3}{F2}");
		Send("{ctrldown}") 
		Sleep(50)
		Send("{ctrlup}") 
		Sleep(50)
		Send("{UP}{RIGHT}");
		Sleep(50)
		Send("{ctrlup}") 
		Sleep(50)
		Send("{F2 down}");
		Sleep(50)
		Send("{F2 up}");
		Sleep(50)
EndFunc

Func wait_some_time($time)
		Send("{F1 down}") ;Holds the F1 key down
		Sleep($time)
		Send("{F1 up}") ;Releases the F1 key
		Sleep(50)
EndFunc

Func make_screenshot()
	Send("!{F10}");
	$active = WinWaitActive("Save Screenshot","",5)
	$filename = $line;
	$screen_number=$screen_number+1
	$filename = $filename & $screen_number & ".png";
	Send($filename,1) ; filename
	Send("{ENTER}y");
	WinWaitClose("Save Screenshot");
EndFunc   ;==>make_screenshot

Func check_working()
	if WinExists("Altirra Error") then
		end_process()
		Return 0
	EndIf
	Return 1
EndFunc

Func end_process()
		;; Close the process
		$pid = WinGetProcess ( "[CLASS:AltirraMainWindow]" )
		ProcessClose ($pid)
EndFunc