TKPraktikum/AutoHotKeyScripts/powerpoint.ahk

f5:: 
  try{
    ppt := ComObjActive("PowerPoint.Application")
	objppt := ppt.ActivePresentation
	TotalSlides:=% objppt.Slides.Count
  }
  catch e {
	MsgBox % "Error in " e.Message ", which was called at line " e.Line 
  }
  Loop %TotalSlides%{
	var++
	;MsgBox %var%
	saveppt := objppt.Slides(var).Export(A_ScriptDir . "\" . var . ".png", "PNG")
  }
  SysGet, MonitorCount, MonitorCount
  ;MsgBox %MonitorCount%
  MsgBox saved
  ;MsgBox inside %MonitorCount%
  ppt := objppt.SlideShowSettings
  ppt.Run
  monitorDisplay(objppt, MonitorCount)
Return

Right::
	objppt.SlideShowWindow.View.Next
	monitorDisplay(objppt, MonitorCount)
	return

monitorDisplay(objppt, MonitorCount){
	CurrentSlideNumber :=% objppt.SlideShowWindow.View.Slide.SlideIndex
	MsgBox %CurrentSlideNumber% is the current slide
	monitor := MonitorCount-1
	Loop %monitor%{
		MsgBox insideloop
		var2++
		setDisplay(var2, CurrentSlideNumber-1)
	}
}	
	
getCoordinates(MonitorNumber){
	coord := 1920*MonitorNumber
	return coord
}

SetEnv file, C:\Users\SK\Documents\AutoHotKey\1.png

setDisplay(MonitorNumber, CurrentSlideNumber){
global
	coord := getCoordinates(MonitorNumber)
	SetEnv file, C:\Users\SK\Documents\AutoHotKey\%CurrentSlideNumber%.png
	;file := "C:\Users\SK\Documents\AutoHotKey\" . %CurrentSlideNumber% . ".png"
	;file := "C:\Users\SK\Documents\AutoHotKey\1.png"
	MsgBox %coord%,%MonitorNumber%,%CurrentSlideNumber%,%file%
	Gui, 1:destroy
	Gui, 1:+AlwaysOnTop +LastFound +Owner -Caption
	Gui, 1:Color, Black
	Gui, 1:Add, Picture,  x0 y0 w%A_ScreenWidth% h-1 vPic, %file%	
	Gui, 1:Show, x%coord% y0 maximize
}