#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=C:\- Brandon\Utility\AutoIt\KDG - Kiosk - IE InPrivate Lock\KDG - Kiosk - IE InPrivate Lock v1.0.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

;========== KDG - Kiosk - IE Lock - InPrivate v1.0 ==========
;========== Brandon Bolles - 2017 - updated 2017.06.20 ==========



#include <GUIConstantsEx.au3>
#include <TrayConstants.au3>
#include <WindowsConstants.au3>



#pragma compile(ExecLevel, highestavailable)
;#pragma compile(ExecLevel, requireAdministrator)
#pragma compile(Icon, C:\- Brandon\Utility\AutoIt\KDG - RemoteUpdater\KDG - RemoteUpdater.ico)
#pragma compile(ProductName, KDG - RemoteUpdater)
#pragma compile(ProductVersion, v1.0)
#pragma compile(FileVersion, 1.0.0.0)
#pragma compile(FileDescription, KDG - Kiosk - IE Lock - InPrivate v1.0 - a utility to disable Favorites and Tools buttons)
#pragma compile(LegalCopyright, © BR4ND0N8)
;TraySetToolTip("KDG - Kiosk - IE Lock - InPrivate v1.0")



;========== OPTIONS ==========
Opt('MustDeclareVars', 1)
Opt("GUIOnEventMode", 1)
Opt("WinTitleMatchMode", 2) ; Sets WinTitleMatchMode to Mode 2, which allows partial Windows Title calls.)

;========== OPTIONS ==========



;========== VARIABLE DECLARATION ==========
Global $GUI_Hidden
Global $GUI_Hidden_Status
Global $PositionBefore
Global $PositionBefore_X_LR
Global $PositionBefore_Y_UD
Global $PositionBefore_Width
Global $PositionBefore_Height
Global $PositionAfter
Global $PositionAfter_X_LR
Global $PositionAfter_Y_UD
Global $PositionAfter_Width
Global $PositionAfter_Height
Global $AppTitleID
Global $AppHandleID
;========== VARIABLE DECLARATION ==========



;========== Main_Routine ==========
_Main()

Func _Main()

	ShellExecute("iexplore.exe", "-private https://www.google.com", @SW_SHOWMAXIMIZED)

	WinWaitActive("Internet Explorer", "")

	$PositionBefore = WinGetPos("Internet Explorer", "")
	$PositionBefore_X_LR = $PositionBefore[0] ; WinGetPos - x (left to right)
	$PositionBefore_Y_UD = $PositionBefore[1] ; WinGetPos - y (up and down)
	$PositionBefore_Width = $PositionBefore[2] ; WinGetPos - width
	$PositionBefore_Height = $PositionBefore[3] ; WinGetPos - height

	$GUI_Hidden = GUICreate("KDG - Kiosk - IE Lock - InPrivate", 55, 25, (($PositionBefore_X_LR + $PositionBefore_Width) - 63), ($PositionBefore_Y_UD + 32), $WS_POPUP, $WS_EX_TOPMOST, $WS_EX_TOOLWINDOW)
	;WinSetTrans($GUI_Hidden, "", 1) ; WinSetTrans("title", "text", transparency (0=invisible - 255=solid))
	WinSetTrans($GUI_Hidden, "", 150) ; WinSetTrans("title", "text", transparency (0=invisible - 255=solid))
	GUISetState(@SW_SHOW) ; will display an empty dialog box

	If WinExists("Internet Explorer", "") Then
		$AppTitleID = "Internet Explorer"
		WinWait($AppTitleID, "", 60) ; (..., "", 60) = 60 second timeout and (..., "", 0) = no timeout
		WinActivate($AppTitleID, "")
		WinSetState($AppHandleID, "", @SW_MAXIMIZE)
	Else
	EndIf

	AdlibRegister("WindowMove_Routine", 10)

	; Run the GUI until the dialog is closed
	While 1
		$GUI_Hidden_Status = GUIGetMsg()
		If $GUI_Hidden_Status = $GUI_EVENT_CLOSE Then ExitLoop
	WEnd

	GUIDelete()

EndFunc
;========== Main_Routine ==========



;========== WindowMove_Routine ==========
Func WindowMove_Routine()

	$PositionAfter = WinGetPos("Internet Explorer", "")
	$PositionAfter_X_LR = $PositionAfter[0] ; WinGetPos - x (left to right)
	$PositionAfter_Y_UD = $PositionAfter[1] ; WinGetPos - y (up and down)
	$PositionAfter_Width = $PositionAfter[2] ; WinGetPos - width
	$PositionAfter_Height = $PositionAfter[3] ; WinGetPos - height
	WinMove($GUI_Hidden, "", (($PositionAfter_X_LR + $PositionAfter_Width) - 63), ($PositionAfter_Y_UD + 32))

EndFunc
;========== WindowMove_Routine ==========



;========== Exit_Routine ==========
Func Exit_Routine()

	Exit

EndFunc
;========== Exit_Routine ==========