#RequireAdmin
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\GUI\rstrui.ico
#AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <RestSyst_Func.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ProgressConstants.au3>

HotKeySet("!{F4}", "_void")
Func _void()

;~ 	If Not IsDeclared("iMsgBoxAnswer") Then Dim $iMsgBoxAnswer
;~ 	$iMsgBoxAnswer = MsgBox(262148, "Question", "Voulez-vous vraiment fermer le programme?" & @CRLF)
;~ 	Select
;~ 		Case $iMsgBoxAnswer = 6;Oui
;~ 			MsgBox(0, "Remerciement", "Merci d'avoir utilisé ce programme" & @CRLF & @LF & _
;~ 					"Auteur : little boy62 & dr.pc1" & @CRLF & _
;~ 					"Contact : littleboy62_outils@live.fr"& @CRLF & @LF & _
;~ 					"Site Web : http://www.forum-entraide-informatique.com/" & @CRLF & _
;~ 					"Profil little boy62 : http://www.forum-entraide-informatique.com/u22" & @CRLF & _
;~ 					"Profil dr.pc1 : http://www.forum-entraide-informatique.com/u199")
;~ 			DirRemove(@TempDir & "\restsyst")
;~ 			Exit
;~ 		Case $iMsgBoxAnswer = 7;No
;~ 	EndSelect

	GUICreate("Fermeture...", 200, 240, 479, 308)
	GUISetBkColor(0xFFFFFF)
	$site = GUICtrlCreateButton("Site Web", 25, 30, 150, 30, $BS_ICON)
	GUICtrlSetFont(-1, 10, 800, 0, "Arial Unicode MS")
	$auteur1 = GUICtrlCreateButton("Profil - little boy62", 25, 80, 150, 30, $BS_ICON)
	GUICtrlSetFont(-1, 10, 800, 0, "Arial Unicode MS")
	$auteur2 = GUICtrlCreateButton("Profil - dr.pc1", 25, 130, 150, 30, $BS_ICON)
	GUICtrlSetFont(-1, 10, 800, 0, "Arial Unicode MS")
	$close = GUICtrlCreateButton("Quitter", 25, 180, 150, 30, $BS_ICON)
	GUICtrlSetFont(-1, 10, 800, 0, "Arial Unicode MS")
	GUISetState(@SW_SHOW)

	While 1
		$nMsg = GUIGetMsg() ; Vérification de ce qui a changé dans l'interface
		Switch $nMsg
			Case $GUI_EVENT_CLOSE ; "Si on clique sur la croix, ça ferme"
				DirRemove(@TempDir & "\restsyst")
				MsgBox(0, "Remerciement", "Merci d'avoir utilisé ce programme" & @CRLF & @LF & _
						"Auteur : little boy62 & dr.pc1" & @CRLF & _
						"Contact : littleboy62_outils@live.fr" & @CRLF & @LF & _
						"Appuyez sur OK pour quitter")
				Exit
			Case $site
				ShellExecute("http://www.forum-entraide-informatique.com/")
			Case $auteur1
				ShellExecute("http://www.forum-entraide-informatique.com/u22")
			Case $auteur2
				ShellExecute("http://www.forum-entraide-informatique.com/u199")
			Case $close
				DirRemove(@TempDir & "\restsyst")
				Exit
		EndSwitch
	WEnd

EndFunc   ;==>_void

$RestSyst = GUICreate("Outil de restauration système    -    par little boy62 & dr.pc1", 500, 510, 479, 308) ;Création de ton interface
GUISetBkColor(0xFFFFFF)

DirCreate(@TempDir & "\restsyst")
FileInstall("C:\users\thomas\desktop\GUI\bann2.jpg", @TempDir & "\restsyst\bann.jpg", 1)
GUICtrlCreatePic(@TempDir & "\restsyst\bann.jpg", 0, 0, 500, 170)
FileInstall("C:\users\thomas\desktop\GUI\auteur.jpg", @TempDir & "\restsyst\auteurs.jpg", 1)
GUICtrlCreatePic(@TempDir & "\restsyst\auteurs.jpg", 95, 150, 315, 44)

$norest = GUICtrlCreateButton("Désactiver la restauration système", 50, 210, 400, 30, $BS_ICON)
GUICtrlSetFont(-1, 10, 800, 0, "Arial Unicode MS")
$rest = GUICtrlCreateButton("Activer la restauration système", 50, 270, 400, 30, $BS_ICON)
GUICtrlSetFont(-1, 10, 800, 0, "Arial Unicode MS")
$ptrest = GUICtrlCreateButton("Créer un point de restauration", 50, 330, 400, 30, $BS_ICON)
GUICtrlSetFont(-1, 10, 800, 0, "Arial Unicode MS")
$purger = GUICtrlCreateButton("Purger la restauration système ", 50, 390, 400, 30, $BS_ICON)
GUICtrlSetFont(-1, 10, 800, 5, "Arial Unicode MS")
$bye = GUICtrlCreateButton("Quitter", 50, 460, 400, 30, $BS_ICON)
GUICtrlSetFont(-1, 10, 800, 0, "Arial Unicode MS")
GUISetState(@SW_SHOW)


While 1
	$nMsg = GUIGetMsg() ; Vérification de ce qui a changé dans l'interface
	Switch $nMsg
		Case $GUI_EVENT_CLOSE ; "Si on clique sur la croix, ça ferme"
;~ 			DirRemove(@TempDir & "\restsyst")
;~ 			MsgBox(0, "Remerciement", "Merci d'avoir utilisé ce programme" & @CRLF & @LF & _
;~ 					"Auteur : little boy62 & dr.pc1" & @CRLF & _
;~ 					"Contact : littleboy62_outils@live.fr" & @CRLF & @LF & _
;~ 					"Appuyez sur OK pour quitter")
;~ 			Exit

			GUICreate("Fermeture...", 200, 240, 479, 308)
			GUISetBkColor(0xFFFFFF)
			$site = GUICtrlCreateButton("Site Web", 25, 30, 150, 30, $BS_ICON)
			GUICtrlSetFont(-1, 10, 800, 0, "Arial Unicode MS")
			$auteur1 = GUICtrlCreateButton("Profil - little boy62", 25, 80, 150, 30, $BS_ICON)
			GUICtrlSetFont(-1, 10, 800, 0, "Arial Unicode MS")
			$auteur2 = GUICtrlCreateButton("Profil - dr.pc1", 25, 130, 150, 30, $BS_ICON)
			GUICtrlSetFont(-1, 10, 800, 0, "Arial Unicode MS")
			$close = GUICtrlCreateButton("Quitter", 25, 180, 150, 30, $BS_ICON)
			GUICtrlSetFont(-1, 10, 800, 0, "Arial Unicode MS")
			GUISetState(@SW_SHOW)

			While 1
				$nMsg = GUIGetMsg() ; Vérification de ce qui a changé dans l'interface
				Switch $nMsg
					Case $GUI_EVENT_CLOSE ; "Si on clique sur la croix, ça ferme"
						DirRemove(@TempDir & "\restsyst")
						MsgBox(0, "Remerciement", "Merci d'avoir utilisé ce programme" & @CRLF & @LF & _
								"Auteur : little boy62 & dr.pc1" & @CRLF & _
								"Contact : littleboy62_outils@live.fr" & @CRLF & @LF & _
								"Appuyez sur OK pour quitter")
						Exit
					Case $site
						ShellExecute("http://www.forum-entraide-informatique.com/")
					Case $auteur1
						ShellExecute("http://www.forum-entraide-informatique.com/u22")
					Case $auteur2
						ShellExecute("http://www.forum-entraide-informatique.com/u199")
					Case $close
						DirRemove(@TempDir & "\restsyst")
						Exit
				EndSwitch
			WEnd

			GUICreate("Fermeture...", 200, 240, 479, 308)
			GUISetBkColor(0xFFFFFF)
			$site = GUICtrlCreateButton("Site Web", 25, 30, 150, 30, $BS_ICON)
			GUICtrlSetFont(-1, 10, 800, 0, "Arial Unicode MS")
			$auteur1 = GUICtrlCreateButton("Profil - little boy62", 25, 80, 150, 30, $BS_ICON)
			GUICtrlSetFont(-1, 10, 800, 0, "Arial Unicode MS")
			$auteur2 = GUICtrlCreateButton("Profil - dr.pc1", 25, 130, 150, 30, $BS_ICON)
			GUICtrlSetFont(-1, 10, 800, 0, "Arial Unicode MS")
			$close = GUICtrlCreateButton("Quitter", 25, 180, 150, 30, $BS_ICON)
			GUICtrlSetFont(-1, 10, 800, 0, "Arial Unicode MS")
			GUISetState(@SW_SHOW)

			While 1
				$nMsg = GUIGetMsg() ; Vérification de ce qui a changé dans l'interface
				Switch $nMsg
					Case $GUI_EVENT_CLOSE ; "Si on clique sur la croix, ça ferme"
						DirRemove(@TempDir & "\restsyst")
						MsgBox(0, "Remerciement", "Merci d'avoir utilisé ce programme" & @CRLF & @LF & _
								"Auteur : little boy62 & dr.pc1" & @CRLF & _
								"Contact : littleboy62_outils@live.fr" & @CRLF & @LF & _
								"Appuyez sur OK pour quitter")
						Exit
					Case $site
						ShellExecute("http://www.forum-entraide-informatique.com/")
					Case $auteur1
						ShellExecute("http://www.forum-entraide-informatique.com/u22")
					Case $auteur2
						ShellExecute("http://www.forum-entraide-informatique.com/u199")
					Case $close
						DirRemove(@TempDir & "\restsyst")
						Exit
				EndSwitch
			WEnd


		Case $norest
			If Not IsDeclared("iMsgBoxAnswer") Then Dim $iMsgBoxAnswer
			$iMsgBoxAnswer = MsgBox(262148, "Attention", "Le fait de désactiver la restauration système, supprime tous les points de restauration." & @CRLF & @LF & _
					"Voulez-vous continuer ?")
			Select
				Case $iMsgBoxAnswer = 6;Oui
				Case $iMsgBoxAnswer = 7;No
					MsgBox(0, "Remerciement", "Merci d'avoir utilisé ce programme" & @CRLF & @LF & _
							"Auteur : little boy62 & dr.pc1" & @CRLF & _
							"Contact : littleboy62_outils@live.fr" & @CRLF & @LF & _
							"Site Web : http://www.forum-entraide-informatique.com/" & @CRLF & _
							"Profil little boy62 : http://www.forum-entraide-informatique.com/u22" & @CRLF & _
							"Profil dr.pc1 : http://www.forum-entraide-informatique.com/u199")
					DirRemove(@TempDir & "\restsyst")
					Exit
			EndSelect

			$BarreProgression = GUICreate("Désactivation restauration Système", 520, 100, -1, -1)
			$Progress = GUICtrlCreateProgress(10, 30, 500, 30, $PBS_MARQUEE)
			GUICtrlCreateLabel("Désactivation restauration système", 4, -4, 520, 100)
			GUICtrlSetFont(-1, 20, 800, 0, "Arial Unicode MS")
			GUICtrlSetColor(-1, 0xFF0000) ;couleur du texte
			GUICtrlSendMsg($Progress, 0x0400 + 10, 1, Number(30)) ; on envoie la ProgressBar
			GUISetState(@SW_SHOW)
			_SystemRestoreControl("", 0)
			GUIDelete($BarreProgression)

			$BarreProgression = GUICreate("Désactivation restauration Système", 520, 100, -1, -1)
			GUICtrlCreateLabel("=> Restauration système desactivée <=", 12, 10, 520, 100)
			GUICtrlSetFont(-1, 20, 800, 0, "Arial Unicode MS")
			GUICtrlSetColor(-1, 0xFF0000) ;couleur du texte
			GUICtrlCreateLabel("/!\ Cette fenêtre se fermera d'elle-même /!\", 11, 60, 520, 100)
			GUICtrlSetFont(-1, 18, 800, 0, "Arial Unicode MS")
			GUICtrlSetColor(-1, 0x00000) ;couleur du texte
			GUISetState(@SW_SHOW)
			Sleep(2000)
			GUIDelete($BarreProgression)

		Case $rest
			If Not IsDeclared("iMsgBoxAnswer") Then Dim $iMsgBoxAnswer
			$iMsgBoxAnswer = MsgBox(262148, "Attention", "Le fait de réactiver la restauration système, vous redonne la possibilté de créer un nouveau point de restauration." & @CRLF & @LF & _
					"Voulez-vous continuer ?")
			Select
				Case $iMsgBoxAnswer = 6;Oui
				Case $iMsgBoxAnswer = 7;No
					MsgBox(0, "Remerciement", "Merci d'avoir utilisé ce programme" & @CRLF & @LF & _
							"Auteur : little boy62 & dr.pc1" & @CRLF & _
							"Contact : littleboy62_outils@live.fr" & @CRLF & @LF & _
							"Site Web : http://www.forum-entraide-informatique.com/" & @CRLF & _
							"Profil little boy62 : http://www.forum-entraide-informatique.com/u22" & @CRLF & _
							"Profil dr.pc1 : http://www.forum-entraide-informatique.com/u199")
					DirRemove(@TempDir & "\restsyst")
					Exit
			EndSelect

			$BarreProgression = GUICreate("Activation restauration Système", 520, 100, -1, -1)
			$Progress = GUICtrlCreateProgress(10, 30, 500, 30, $PBS_MARQUEE)
			GUICtrlCreateLabel("Activation restauration système", 4, -4, 520, 100)
			GUICtrlSetFont(-1, 20, 800, 0, "Arial Unicode MS")
			GUICtrlSetColor(-1, 0xFF0000) ;couleur du texte
			GUICtrlSendMsg($Progress, 0x0400 + 10, 1, Number(30)) ; on envoie la ProgressBar
			GUISetState(@SW_SHOW)
			_SystemRestoreControl("", 1) ;Ou encore : _SystemRestoreControl()
			GUIDelete($BarreProgression)

			$BarreProgression = GUICreate("Activation restauration Système", 520, 100, -1, -1)
			GUICtrlCreateLabel("=> Restauration système activée <=", 40, 10, 520, 100)
			GUICtrlSetFont(-1, 20, 800, 0, "Arial Unicode MS")
			GUICtrlSetColor(-1, 0xFF0000) ;couleur du texte
			GUICtrlCreateLabel("/!\ Cette fenêtre se fermera d'elle-même /!\", 11, 60, 520, 100)
			GUICtrlSetFont(-1, 18, 800, 0, "Arial Unicode MS")
			GUICtrlSetColor(-1, 0x00000) ;couleur du texte
			GUISetState(@SW_SHOW)
			Sleep(2000)
			GUIDelete($BarreProgression)

		Case $ptrest
			If Not IsDeclared("iMsgBoxAnswer") Then Dim $iMsgBoxAnswer
			$iMsgBoxAnswer = MsgBox(262148, "Attention", "Vous êtes sur le point de créer un nouveau point de restauration : vous pouvez en créer plusieurs si cela vous chante." & @CRLF & @LF & _
					"Voulez-vous continuer ?")
			Select
				Case $iMsgBoxAnswer = 6;Oui
				Case $iMsgBoxAnswer = 7;No
					MsgBox(0, "Remerciement", "Merci d'avoir utilisé ce programme" & @CRLF & @LF & _
							"Auteur : little boy62 & dr.pc1" & @CRLF & _
							"Contact : littleboy62_outils@live.fr" & @CRLF & @LF & _
							"Site Web : http://www.forum-entraide-informatique.com/" & @CRLF & _
							"Profil little boy62 : http://www.forum-entraide-informatique.com/u22" & @CRLF & _
							"Profil dr.pc1 : http://www.forum-entraide-informatique.com/u199")
					DirRemove(@TempDir & "\restsyst")
					Exit
			EndSelect

			$BarreProgression = GUICreate("Création point de restauration", 520, 100, -1, -1)
			GUICtrlCreateLabel("création point de restauration en cours", 20, 10, 520, 100)
			GUICtrlSetFont(-1, 20, 800, 0, "Arial Unicode MS")
			GUICtrlSetColor(-1, 0xFF0000) ;couleur du texte
			GUICtrlCreateLabel("/!\ Veuiller patientez SVP /!\", 90, 60, 520, 100)
			GUICtrlSetFont(-1, 18, 800, 0, "Arial Unicode MS")
			GUICtrlSetColor(-1, 0x00000) ;couleur du texte
			GUISetState(@SW_SHOW)
			_SystemRestoreControl("Point de restauration du " & $Now, 1)
			GUIDelete($BarreProgression)

			$BarreProgression = GUICreate("Succès", 520, 100, -1, -1)
			GUICtrlCreateLabel("=> Point de restauration système crée <=", 6, 10, 520, 100)
			GUICtrlSetFont(-1, 20, 800, 0, "Arial Unicode MS")
			GUICtrlSetColor(-1, 0xFF0000) ;couleur du texte
			GUICtrlCreateLabel("/!\ Cette fenêtre se fermera d'elle-même /!\", 13, 60, 520, 100)
			GUICtrlSetFont(-1, 18, 800, 0, "Arial Unicode MS")
			GUICtrlSetColor(-1, 0x00000) ;couleur du texte
			GUISetState(@SW_SHOW)
			Sleep(2000)
			GUIDelete($BarreProgression)

		Case $purger
			If Not IsDeclared("iMsgBoxAnswer") Then Dim $iMsgBoxAnswer
			$iMsgBoxAnswer = MsgBox(262148, "Attention", "Le fait de purger la restauration système, permet de désactiver puis réactiver la restauratuin système, en créant, par la suite, un point de restauration." & @CRLF & @LF & _
					"Donc, tous les points de restaurations seront remplacés par un seul point de restauration" & @CRLF & @LF & _
					"Voulez-vous continuer ?")
			Select
				Case $iMsgBoxAnswer = 6;Oui
				Case $iMsgBoxAnswer = 7;No
					MsgBox(0, "Remerciement", "Merci d'avoir utilisé ce programme" & @CRLF & @LF & _
							"Auteur : little boy62 & dr.pc1" & @CRLF & _
							"Contact : littleboy62_outils@live.fr" & @CRLF & @LF & _
							"Site Web : http://www.forum-entraide-informatique.com/" & @CRLF & _
							"Profil little boy62 : http://www.forum-entraide-informatique.com/u22" & @CRLF & _
							"Profil dr.pc1 : http://www.forum-entraide-informatique.com/u199")
					DirRemove(@TempDir & "\restsyst")
					Exit
			EndSelect
			$BarreProgression = GUICreate("Activation restauration Système", 520, 100, -1, -1)
			$Progress = GUICtrlCreateProgress(10, 30, 500, 30, $PBS_MARQUEE)
			GUICtrlCreateLabel("Activation restauration système", 4, -4, 520, 100)
			GUICtrlSetFont(-1, 20, 800, 0, "Arial Unicode MS")
			GUICtrlSetColor(-1, 0xFF0000) ;couleur du texte
			GUICtrlSendMsg($Progress, 0x0400 + 10, 1, Number(30)) ; on envoie la ProgressBar
			GUISetState(@SW_SHOW)
			_SystemRestoreControl("", 1) ;Ou encore : _SystemRestoreControl()
			GUIDelete($BarreProgression)

			$BarreProgression = GUICreate("Désactivation restauration Système", 520, 100, -1, -1)
			$Progress = GUICtrlCreateProgress(10, 30, 500, 30, $PBS_MARQUEE)
			GUICtrlCreateLabel("Désactivation restauration système", 4, -4, 520, 100)
			GUICtrlSetFont(-1, 20, 800, 0, "Arial Unicode MS")
			GUICtrlSetColor(-1, 0xFF0000) ;couleur du texte
			GUICtrlSendMsg($Progress, 0x0400 + 10, 1, Number(30)) ; on envoie la ProgressBar
			GUISetState(@SW_SHOW)
			_SystemRestoreControl("", 0)
			GUIDelete($BarreProgression)

			$BarreProgression = GUICreate("Réactivation restauration Système", 520, 100, -1, -1)
			$Progress = GUICtrlCreateProgress(10, 30, 500, 30, $PBS_MARQUEE)
			GUICtrlCreateLabel("Réactivation restauration système", 4, -4, 520, 100)
			GUICtrlSetFont(-1, 20, 800, 0, "Arial Unicode MS")
			GUICtrlSetColor(-1, 0xFF0000) ;couleur du texte
			GUICtrlSendMsg($Progress, 0x0400 + 10, 1, Number(30)) ; on envoie la ProgressBar
			GUISetState(@SW_SHOW)
			_SystemRestoreControl("", 1) ;Ou encore : _SystemRestoreControl()
			GUIDelete($BarreProgression)

			$BarreProgression = GUICreate("Création point de restauration", 520, 100, -1, -1)
			GUICtrlCreateLabel("création point de restauration en cours", 20, 10, 520, 100)
			GUICtrlSetFont(-1, 20, 800, 0, "Arial Unicode MS")
			GUICtrlSetColor(-1, 0xFF0000) ;couleur du texte
			GUICtrlCreateLabel("/!\ Veuiller patientez SVP /!\", 90, 60, 520, 100)
			GUICtrlSetFont(-1, 18, 800, 0, "Arial Unicode MS")
			GUICtrlSetColor(-1, 0x00000) ;couleur du texte
			GUISetState(@SW_SHOW)
			_SystemRestoreControl("Point de restauration du " & $Now, 1)
			GUIDelete($BarreProgression)

			$BarreProgression = GUICreate("Succès", 520, 100, -1, -1)
			GUICtrlCreateLabel("=> Point de restauration système crée <=", 6, 10, 520, 100)
			GUICtrlSetFont(-1, 20, 800, 0, "Arial Unicode MS")
			GUICtrlSetColor(-1, 0xFF0000) ;couleur du texte
			GUISetState(@SW_SHOW)
			Sleep(2000)
			GUIDelete($BarreProgression)

			$BarreProgression = GUICreate("Restauration sytème purgée", 520, 100, -1, -1)
			GUICtrlCreateLabel("La restauration système a été purgée", 12, 10, 520, 100)
			GUICtrlSetFont(-1, 20, 800, 0, "Arial Unicode MS")
			GUICtrlSetColor(-1, 0xFF0000) ;couleur du texte
			GUICtrlCreateLabel("/!\ Cette fenêtre se fermera d'elle-même /!\", 11, 60, 520, 100)
			GUICtrlSetFont(-1, 18, 800, 0, "Arial Unicode MS")
			GUICtrlSetColor(-1, 0x00000) ;couleur du texte
			GUISetState(@SW_SHOW)
			Sleep(5000)
			GUIDelete($BarreProgression)

		Case $bye
			GUICreate("Fermeture...", 200, 240, 479, 308)
			GUISetBkColor(0xFFFFFF)
			$site = GUICtrlCreateButton("Site Web", 25, 30, 150, 30, $BS_ICON)
			GUICtrlSetFont(-1, 10, 800, 0, "Arial Unicode MS")
			$auteur1 = GUICtrlCreateButton("Profil - little boy62", 25, 80, 150, 30, $BS_ICON)
			GUICtrlSetFont(-1, 10, 800, 0, "Arial Unicode MS")
			$auteur2 = GUICtrlCreateButton("Profil - dr.pc1", 25, 130, 150, 30, $BS_ICON)
			GUICtrlSetFont(-1, 10, 800, 0, "Arial Unicode MS")
			$close = GUICtrlCreateButton("Quitter", 25, 180, 150, 30, $BS_ICON)
			GUICtrlSetFont(-1, 10, 800, 0, "Arial Unicode MS")
			GUISetState(@SW_SHOW)

			While 1
				$nMsg = GUIGetMsg() ; Vérification de ce qui a changé dans l'interface
				Switch $nMsg
					Case $GUI_EVENT_CLOSE ; "Si on clique sur la croix, ça ferme"
						DirRemove(@TempDir & "\restsyst")
						MsgBox(0, "Remerciement", "Merci d'avoir utilisé ce programme" & @CRLF & @LF & _
								"Auteur : little boy62 & dr.pc1" & @CRLF & _
								"Contact : littleboy62_outils@live.fr" & @CRLF & @LF & _
								"Appuyez sur OK pour quitter")
						Exit
					Case $site
						ShellExecute("http://www.forum-entraide-informatique.com/")
					Case $auteur1
						ShellExecute("http://www.forum-entraide-informatique.com/u22")
					Case $auteur2
						ShellExecute("http://www.forum-entraide-informatique.com/u199")
					Case $close
						DirRemove(@TempDir & "\restsyst")
						Exit
				EndSwitch
			WEnd

	EndSwitch
WEnd