#include "PowerPoint.au3"
#include <misc.au3>
#include <File.au3>
#Include <Array.au3>
#include <Timers.au3>
#include <Debug.au3>
#include <WinAPIGdi.au3>
#include <MsgBoxConstants.au3>
#include <Word.au3>
#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIFiles.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <AutoItConstants.au3>

#include <Misc.au3>
#include <GuiConstants.au3>
Local $path = "D:\CTS ppt"
Local $FileArray = _FileListToArrayRec($path, '*.jpeg|*.pptx|*.xls|*.xlsx|*.docx|*.doc', 1)
$oPPT = ObjCreate("PowerPoint.Application")
local $path1="C:\Users\kpallavi\Desktop\ppt idle.au3"
;_DebugArrayDisplay($FileArray)
;For $i2 = 1 to 2

  For $i = 1 To $FileArray[0]
	#comments-start
	If StringInStr($FileArray[$i], ".jpg") > 0 Then
        $iPID = ShellExecuteWait($path & "\" & $FileArray[$i])
		SplashImageOn("Splash Screen", $path & "\" & $FileArray[$i] , @DesktopWidth, @DesktopHeight, -1, -1,1)
        Sleep(5000)
        SplashOff()
        Sleep(1000)
		Send("!{F4}",0)

	 ElseIf StringInStr($FileArray[$i],".pptx")>0 Then
		$ppt = ShellExecuteWait($path & "\" & $FileArray[$i])
		Send("{F5}")
		While 1
		 ;Check if the idle time reached :
         If _Timer_GetIdleTime() >= 15 * 1000 Then
         send("{ESC}")
        ;Exit
		 Send("!{F4}",0)


		 EndIf

      ;Sleep for 5 seconds:
         Sleep(2 * 1000)
		WEnd

	EndIf

 Next
  #$i2=$i2+
  #comments-end
If StringInStr($FileArray[$i], ".mp4") > 0 Then
        $iPID = ShellExecuteWait($path & "\" & $FileArray[$i])
		Sleep(5000)
        Send("{ASC 102}");asc code for full screen
		Send("{f}");ful screen
EndIf
Next