Потерян Untill

#include <GuiConstantsEx.au3>
#include <File.au3>

$Folder = @WindowsDir & "\Web\Wallpaper\Landscapes"
$Files = _FileListToArray($Folder, "*.jpg", 1, True)
If @error Then Exit

Global $Width = 960, $Height = 600, $i = 1, $Pic

$GUI = GUICreate("Example", $Width, $Height)
$Pic = GUICtrlCreatePic($Files[1], 0, 0, $Width, $Height)
GUISetState()

Do

	Switch GUIGetMsg()
	    Case $GUI_EVENT_CLOSE
		      ExitLoop
    Case $GUI_EVENT_PRIMARYDOWN
      $i += 1
      If $i > $Files[0] Then $i = 1
      GUICtrlDelete($Pic)
      $Pic = GUICtrlCreatePic($Files[$i], 0, 0, $Width, $Height)
    Case $GUI_EVENT_SECONDARYDOWN
      $i -= 1
      If $i < 1 Then $i = $Files[0]
      GUICtrlDelete($Pic)
      $Pic = GUICtrlCreatePic($Files[$i], 0, 0, $Width, $Height)
	EndSwitch
	Until 0