Ignore this File

test.ahk

@@ -1 +1,61 @@
 
+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")
+  }
+  ;pt := ppt.ActivePresentation.(test, ppSaveAsPNG)
+  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
+}