#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\..\..\icon_applications\Icon_7.ico
#AutoIt3Wrapper_outfile=D:\Program Files\run_command\Tweak_Ui.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Description=faire quelque reglage windows xp
#AutoIt3Wrapper_Res_Fileversion=1.1.1.4
#AutoIt3Wrapper_Res_LegalCopyright=khalile@corp 2011
#AutoIt3Wrapper_Res_Language=1036
#AutoIt3Wrapper_Res_Field=Statu|Version Incomplete
#AutoIt3Wrapper_Res_Field=Type |programme windows xp
#AutoIt3Wrapper_Res_Field=Made|By Kaibiche Khalile
#AutoIt3Wrapper_AU3Check_Stop_OnWarning=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GuiComboBox.au3>
#include <GuiListView.au3>
Opt("GUICloseOnESC", 0)
Opt("WinTitleMatchMode", 3)
Opt("GUIOnEventMode", 1)
$Main_cle = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Comdlg32\PlacesBar"
$cle = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Comdlg32"
If $cmdline[0] == 1 Then
	Switch $cmdline[1]
		Case "I Am Khalile"
			RegWrite($cle, "NoPlacesbar", "REG_DWORD", 0)
			RegWrite($cle, "NoBackButton", "REG_DWORD", 0)
			RegWrite($cle, "NoFileMru", "REG_DWORD", 0)
			RegWrite($Main_cle, "Place0", "REG_DWORD", 0)
			RegWrite($Main_cle, "Place1", "REG_DWORD", 5)
			RegWrite($Main_cle, "Place2", "REG_DWORD",17)
			RegWrite($Main_cle, "Place3", "REG_SZ", "G:\music")
			RegWrite($Main_cle, "Place4", "REG_SZ", "E:\multidvd_app\")
		Case "-m"
			FileSaveDialog("Ouvrir Test (By khalile)", "", "All Files (*.*)", 0, "khalile.vbs")
			Exit
	EndSwitch
EndIf

$Sub_cle = "HKCU\Software\Microsoft\Command Processor"
Global $Combo[5], $Last_Pos, $Combo_change = False, $Combo2[2], $_Tab[4], $List_View, $Index[3000]

$Main_Gui = GUICreate("Tweak Ui (By Khalile)", 383, 410, -1, -1)
$button1 = GUICtrlCreateButton("&Appliquer", 280, 362, 75, 25)
GUICtrlSetOnEvent(-1, "_Appliquer")
GUICtrlSetState(-1, 128)
GUICtrlSetOnEvent(GUICtrlCreateButton("Annuler", 200, 362, 75, 25), "_Sortir")
GUICtrlSetOnEvent(GUICtrlCreateButton("OK", 112, 362, 75, 25), "_Ok")
$tab = GUICtrlCreateTab(5, 10, 373, 340)
$_Tab[1] = GUICtrlCreateTabItem("Ouvrir")
$Checkbox1 = GUICtrlCreateCheckbox("montrez le bouton de retour sur le dialogue du dossier  Ouvrir/Sauver", 16, 35, 353, 15)
GUICtrlSetOnEvent(-1, "_Enable_Button2")
$Checkbox2 = GUICtrlCreateCheckbox("Se rappeler les noms de fichier précédent", 16, 55, 217, 15)
GUICtrlSetOnEvent(-1, "_Enable_Button2")
GUICtrlCreateGroup("Barre d'endroits", 16, 76, 353, 257)
GUIStartGroup($Main_Gui)
$Radio_show = GUICtrlCreateRadio("Montrez les endroits de départ", 32, 104, 113, 17)
$Radio_hide = GUICtrlCreateRadio("Hide places bar", 32, 128, 97, 17)
$Radio_perso = GUICtrlCreateRadio("Personnalise la places bar", 32, 152, 145, 17)

$Combo[0] = GUICtrlCreateCombo("", 48, 175, 200, 25)
$Combo[1] = GUICtrlCreateCombo("", 48, 200, 200, 25)
$Combo[2] = GUICtrlCreateCombo("", 48, 225, 200, 25)
$Combo[3] = GUICtrlCreateCombo("", 48, 250, 200, 25)
$Combo[4] = GUICtrlCreateCombo("", 48, 275, 200, 25)
For $i = 0 To 4
	GUICtrlSetData($Combo[$i], "<none>|Bureau|Favoris|Mes Document|Ma Musique|Ma Vidéo|" _
			 & "Panneau de configuration|Poste de Travail|Voisinage Réseau|Imprimantes et télécopieurs|Historique|Recent|SendTo|Mes Photos")
Next
GUICtrlSetOnEvent(GUICtrlCreateButton("Tester", 100, 300, 75, 25), "_Open_Dialog")
GUICtrlSetFont(-1, 10, 800, 1)
GUISetOnEvent(-3, "_Sortir")
GUICtrlSetOnEvent($Radio_show, "_Hide_Endroit")
GUICtrlSetOnEvent($Radio_hide, '_Hide_Endroit')
GUICtrlSetOnEvent($Radio_perso, "_Enable_Combo")
For $i = 0 To 4
	GUICtrlSetOnEvent($Combo[$i], "_Changement_data")
Next
$_Tab[2] = GUICtrlCreateTabItem("Cmd")
GUICtrlCreateGroup("Accomplissement", 16, 45, 350, 100)
GUICtrlCreateLabel("Nom de fichier de l'accomplissement:", 20, 70, 200, 20)
$Combo2[0] = GUICtrlCreateCombo("", 220, 68, 100, 20, 0x003)
GUICtrlCreateLabel("Direction de l'accomplissement:", 20, 100, 150, 20)
$Combo2[1] = GUICtrlCreateCombo("", 220, 98, 100, 20, 0x003)
For $i = 0 To 1
	GUICtrlSetData($Combo2[$i], "None|Ctrl+A|Ctrl+B|Ctrl+D|Ctrl+E|Ctrl+F|" & _
			"Ctrl+G|Tab|Ctrl+K|Ctrl+L|Ctrl+N|Ctrl+O|Ctrl+P|Ctrl+Q|Ctrl+R|Ctrl+T|Ctrl+U|Ctrl+V|Ctrl+W|Ctrl+X|Ctrl+Y|Ctrl+Z|" & _
			"Ctrl+[|Ctrl+\|Ctrl+[|Ctrl+^|Ctrl+_", "None")
	GUICtrlSetOnEvent($Combo2[$i], "_Enable_Button2")
Next
$_Tab[3] = GUICtrlCreateTabItem("Modelés")
GUICtrlCreateLabel("&Windows peut créer de nouveaux documents dans les types" & @LF & "suivants quand vous cliquez droit et que vous choisissez" & @LF & '"Nouveau " dans le menu contextuel.', 10, 45, 300, 50)
$List_View = GUICtrlCreateListView("", 10, 90, 300, 200, BitOR(0x0004, 0x0003, 0x4000), BitOR(0x00000001, 0x00000004))

$Supprimer = GUICtrlCreateButton("&Supprimer", 10, 300, 80, 25)
GUICtrlSetOnEvent(-1, "_Manage_ListView")
GUICtrlSetOnEvent(GUICtrlCreateButton("&Actualiser", 100, 300, 80, 25), "_Actualiser")


_Lire_Statu_PlaceBar()
GUICtrlSetState($button1, 128)
_Lire_Statu_Cmd()
_Chargement()
$read = RegRead("HKLM\SOFTWARE\khalile\Tweak_UI", "Last_Tab")
If $read <> "" And $read <= 3 Then GUICtrlSetState($_Tab[Number($read) + 1], 16)
GUISetState(@SW_SHOW, $Main_Gui)
While 1

WEnd

Func _Appliquer()
	Local $read, $i, $var2, $var
	Switch GUICtrlRead($tab)
		Case 0
;~ 	// 1er checkbox
			Switch GUICtrlRead($Checkbox1)
				Case 1
					$read = 0
				Case 4
					$read = 1
			EndSwitch
			RegWrite($cle, "NoBackButton", "REG_DWORD", 0)
;~ 	// 2eme checkbox
			Switch GUICtrlRead($Checkbox2)
				Case 1
					$read = 0
				Case 4
					$read = 1
			EndSwitch
			RegWrite($cle, "NoFileMru", "REG_DWORD", $read)
;~ 	// 3 eme partie
			If GUICtrlRead($Radio_show) == 1 Then
				RegDelete($Main_cle)
				RegDelete($cle, "NoPlacesbar")
			ElseIf GUICtrlRead($Radio_hide) == 1 Then
				RegWrite($cle, "NoPlacesbar", "REG_DWORD", 1)
			ElseIf GUICtrlRead($Radio_perso) == 1 Then
				RegWrite($cle, "NoPlacesbar", "REG_DWORD", 0)
				For $i = 0 To 4
					$read = GUICtrlRead($Combo[$i])
					Switch $read
						Case "<none>"
							RegDelete($Main_cle, "Place" & $i)
						Case "Bureau"
							RegWrite($Main_cle, "Place" & $i, "REG_DWORD", 0)
						Case "Panneau de configuration"
							RegWrite($Main_cle, "Place" & $i, "REG_DWORD", 3)
						Case "Imprimantes et télécopieurs"
							RegWrite($Main_cle, "Place" & $i, "REG_DWORD", 4)
						Case "Favoris"
							RegWrite($Main_cle, "Place" & $i, "REG_DWORD", 6)
						Case "Mes Document"
							RegWrite($Main_cle, "Place" & $i, "REG_DWORD", 5)
						Case "SendTo"
							RegWrite($Main_cle, "Place" & $i, "REG_DWORD", 9)
						Case "Ma Musique"
							RegWrite($Main_cle, "Place" & $i, "REG_DWORD", 13)
						Case "Ma Vidéo"
							RegWrite($Main_cle, "Place" & $i, "REG_DWORD", 14)
						Case "Poste de Travail"
							RegWrite($Main_cle, "Place" & $i, "REG_DWORD", 17)
						Case "Voisinage Réseau"
							RegWrite($Main_cle, "Place" & $i, "REG_DWORD", 18)
						Case "Historique"
							RegWrite($Main_cle, "Place" & $i, "REG_DWORD", 34)
						Case "Recent"
							RegWrite($Main_cle, "Place" & $i, "REG_DWORD", 8)
						Case "Mes Photos"
							RegWrite($Main_cle, "Place" & $i, "REG_DWORD", 38)
						Case Else
							$var2 = StringInStr($read, "\") - 1
							If $var2 == -1 Then
								$read &= "\"
								$var2 = StringLen($read) - 1
							EndIf
							$var = StringRight(StringLeft($read, $var2), 1)
							If StringLeft($read, 1) == "%" And $var == "%" Then
								RegWrite($Main_cle, "Place" & $i, "REG_EXPAND_SZ", $read)
							Else
								RegWrite($Main_cle, "Place" & $i, "REG_SZ", $read)
							EndIf
					EndSwitch
				Next
			EndIf
			$Combo_change = False
		Case 1
			Local $value[2]
			$value[0] = "CompletionChar"
			$value[1] = "PathCompletionChar"
			For $i = 0 To 1
				Switch _GUICtrlComboBox_GetCurSel($Combo2[$i])
					Case 0
						$read = 0
					Case 1
						$read = 1
					Case 2
						$read = 2
					Case 3
						$read = 4
					Case 4
						$read = 5
					Case 5
						$read = 6
					Case 6
						$read = 7
					Case 7
						$read = 9
					Case 8
						$read = 11
					Case 9
						$read = 12
					Case 10
						$read = 13
					Case 11
						$read = 15
					Case 12
						$read = 16
					Case 13
						$read = 17
					Case 14
						$read = 18
					Case 15
						$read = 20
					Case 16
						$read = 21
					Case 17
						$read = 22
					Case 18
						$read = 23
					Case 19
						$read = 24
					Case 20
						$read = 25
					Case 21
						$read = 26
					Case 22
						$read = 27
					Case 23
						$read = 28
					Case 24
						$read = 29
					Case 25
						$read = 30
					Case 26
						$read = 31
				EndSwitch
				RegWrite($Sub_cle, $value[$i], "REG_DWORD", $read)
			Next
	EndSwitch
	GUICtrlSetState($button1, 128)
EndFunc   ;==>_Appliquer

Func _Ok()
	If GUICtrlGetState($button1) == 80 Then _Appliquer()
	_Sortir()
EndFunc   ;==>_Ok

Func _Lire_Statu_PlaceBar()
	Local $read, $var, $var1, $err1, $err2, $var2
	If RegRead($cle, "NoBackButton") == 0 Then GUICtrlSetState($Checkbox1, 1)
	If RegRead($cle, "NoFileMru") == 0 Then GUICtrlSetState($Checkbox2, 1)
	$read1 = RegRead($Main_cle, "")
	$err2 = @error
	$read = RegRead($cle, "NoPlacesbar")
	$err1 = @error
	If $err1 == -1 And $err2 == 1 Then
		_Montrer_Endroit(1)
		GUICtrlSetState($Radio_show, 1)
		$Last_Pos = 1
	Else
		Switch $read
			Case 1
				_Disable_Combo()
				GUICtrlSetState($Radio_hide, 1)
				_Montrer_Endroit(1)
				$Last_Pos = 2
				Return
			Case 0
				_Enable_Combo()
				GUICtrlSetState($Radio_perso, 1)
				$Last_Pos = 3
		EndSwitch
		For $i = 0 To 4
			$read = RegRead($Main_cle, "Place" & $i)
			$err1 = @extended
			Switch $err1
				Case 4
					Switch $read
						Case 0
							_Select_combo($Combo[$i], "Bureau")
						Case 3
							_Select_combo($Combo[$i], "Panneau de configuration")
						Case 4
							_Select_combo($Combo[$i], "Imprimantes et télécopieurs")
						Case 5
							_Select_combo($Combo[$i], "Mes Document")
						Case 6
							_Select_combo($Combo[$i], "Favoris")
						Case 9
							_Select_combo($Combo[$i], "SendTo")
						Case 13
							_Select_combo($Combo[$i], "Ma Musique")
						Case 14
							_Select_combo($Combo[$i], "Ma Vidéo")
						Case 17
							_Select_combo($Combo[$i], "Poste de Travail")
						Case 18
							_Select_combo($Combo[$i], "Voisinage Réseau")
						Case 34
							_Select_combo($Combo[$i], "Historique")
						Case 8
							_Select_combo($Combo[$i], "Recent")
						Case 39
							_Select_combo($Combo[$i], "Mes Photos")
						Case Else
							_Select_combo($Combo[$i])
					EndSwitch
				Case 2
					$var2 = StringInStr($read, "\") - 1
					If $var2 == -1 Then
						$read &= "\"
						$var2 = StringLen($read) - 1
					EndIf
					$var = StringRight(StringLeft($read, $var2), 1)
					If StringLeft($read, 1) == "%" And $var == "%" Then
						$var = StringLeft($read, $var2)
						$var1 = StringTrimLeft($read, StringLen($var))
						$var = StringTrimLeft($var, 1)
						$var = StringTrimRight($var, 1)
						$var = EnvGet($var)
						GUICtrlSetData($Combo[$i], $var & $var1, $var & $var1)
					Else
						GUICtrlSetData($Combo[$i], $read, $read)
					EndIf
				Case 0
					_Select_combo($Combo[$i])
				Case 1
					GUICtrlSetData($Combo[$i], $read, $read)
			EndSwitch
		Next
	EndIf
EndFunc   ;==>_Lire_Statu_PlaceBar

Func _Hide_Endroit()
	_Montrer_Endroit(0, 1)
	If GUICtrlRead($Radio_show) == 1 Then
		$Last_Pos = 1
	Else
		$Last_Pos = 2
	EndIf
;~ 	_Enable_Button()
EndFunc   ;==>_Hide_Endroit

Func _Montrer_Endroit($init, $enable = 0)
	For $i = 0 To 4
		GUICtrlSetState($Combo[$i], 128)
		If $init == 1 Then _Select_combo($Combo[$i])
	Next
	If $enable == 1 Then GUICtrlSetState($button1, 64)
EndFunc   ;==>_Montrer_Endroit

Func _Enable_Combo()
	For $i = 0 To 4
		GUICtrlSetState($Combo[$i], 64)
	Next
	$Last_Pos = 3
EndFunc   ;==>_Enable_Combo

Func _Disable_Combo()
	For $i = 0 To 4
		GUICtrlSetState($Combo[$i], 128)
	Next
	GUICtrlSetState($button1, 64)
EndFunc   ;==>_Disable_Combo

Func _Changement_data()
	$Combo_change = True
	_Enable_Button()
EndFunc   ;==>_Changement_data

Func _Enable_Button()
	If $Combo_change == True Then
		GUICtrlSetState($button1, 64)
		Return
	EndIf
	If $Last_Pos <> 3 Then
		GUICtrlSetState($button1, 64)
	Else
		GUICtrlSetState($button1, 128)
	EndIf
EndFunc   ;==>_Enable_Button

Func _Disable_Button()
	GUICtrlSetState($button1, 128)
EndFunc   ;==>_Disable_Button

Func _Sortir()
	RegWrite("HKLM\SOFTWARE\khalile\Tweak_UI", "Last_Tab", "REG_DWORD", GUICtrlRead($tab))
	Exit
EndFunc   ;==>_Sortir

Func _Select_combo($hwnd, $value = "<none>")
	_GUICtrlComboBox_SelectString($hwnd, $value)
EndFunc   ;==>_Select_combo

Func _Enable_Button2()
	GUICtrlSetState($button1, 64)
EndFunc   ;==>_Enable_Button2

Func _Open_Dialog()
	RunWait(@ScriptFullPath & " -m")
EndFunc   ;==>_Open_Dialog

Func _Lire_Statu_Cmd()
	Local $read, $value[2], $i
	$value[0] = "CompletionChar"
	$value[1] = "PathCompletionChar"
	For $i = 0 To 1
		$read = RegRead($Sub_cle, $value[$i])
		If @error == -1 Or $read == 0 Then
			_Set_Combo_Cursel($Combo2[$i])
		Else
			Switch $read
				Case 1
					_Set_Combo_Cursel($Combo2[$i], 1) ;Ctrl+a
				Case 2
					_Set_Combo_Cursel($Combo2[$i], 2) ;Ctrl+b
				Case 4
					_Set_Combo_Cursel($Combo2[$i], 3) ;Ctrl+d
				Case 5
					_Set_Combo_Cursel($Combo2[$i], 4) ;Ctrl+e
				Case 6
					_Set_Combo_Cursel($Combo2[$i], 5) ;Ctrl+f
				Case 7
					_Set_Combo_Cursel($Combo2[$i], 6) ;Ctrl+g
				Case 9
					_Set_Combo_Cursel($Combo2[$i], 7) ; tab
				Case 11
					_Set_Combo_Cursel($Combo2[$i], 8) ;ctrl+k
				Case 12
					_Set_Combo_Cursel($Combo2[$i], 9) ;ctrl+l
				Case 13
					_Set_Combo_Cursel($Combo2[$i], 10) ;ctrl+n
				Case 15
					_Set_Combo_Cursel($Combo2[$i], 11) ;ctrl+o
				Case 16
					_Set_Combo_Cursel($Combo2[$i], 12) ; ctrl+p
				Case 17
					_Set_Combo_Cursel($Combo2[$i], 13) ;ctrl+q
				Case 18
					_Set_Combo_Cursel($Combo2[$i], 14) ;ctrl+r
				Case 20
					_Set_Combo_Cursel($Combo2[$i], 15) ;ctrl+t
				Case 21
					_Set_Combo_Cursel($Combo2[$i], 16) ;ctrl+u
				Case 22
					_Set_Combo_Cursel($Combo2[$i], 17) ;ctrl+v
				Case 23
					_Set_Combo_Cursel($Combo2[$i], 18) ;ctrl+w
				Case 24
					_Set_Combo_Cursel($Combo2[$i], 19) ;ctrl +x
				Case 25
					_Set_Combo_Cursel($Combo2[$i], 20) ;ctrl+y
				Case 26
					_Set_Combo_Cursel($Combo2[$i], 21) ;ctrl+z
				Case 27
					_Set_Combo_Cursel($Combo2[$i], 22)
				Case 28
					_Set_Combo_Cursel($Combo2[$i], 23)
				Case 29
					_Set_Combo_Cursel($Combo2[$i], 24)
				Case 30
					_Set_Combo_Cursel($Combo2[$i], 25)
				Case 31
					_Set_Combo_Cursel($Combo2[$i], 26)
			EndSwitch
		EndIf
	Next
EndFunc   ;==>_Lire_Statu_Cmd

Func _Set_Combo_Cursel($hwnd, $Index = 0)
	_GUICtrlComboBox_SetCurSel($hwnd, $Index)
EndFunc   ;==>_Set_Combo_Cursel

Func _Chargement()
	Local $x = 0, $i, $read, $read1
	_GUICtrlListView_BeginUpdate($List_View)
	For $i = 1 To 3000
		$var = RegEnumKey("HKLM\SOFTWARE\Classes", $i)
		If @error <> 0 Then ExitLoop
		$read = RegRead("HKCR\" & $var & "\ShellNew", "FileName")
		If @error == 0 Then
			$read1 = RegRead("HKCR\" & $var, "")
			GUICtrlCreateListViewItem(RegRead("HKCR\" & $read1, ""), $List_View)
			$Index[$x] = $var
			$x += 1
		EndIf
		$read = RegRead("HKCR\" & $var & "\ShellNew", "NullFile")
		If @error == 0 Then
			$read1 = RegRead("HKCR\" & $var, "")
			GUICtrlCreateListViewItem(RegRead("HKCR\" & $read1, ""), $List_View)
			$Index[$x] = $var
			$x += 1
		EndIf
	Next
	For $i = 0 To _GUICtrlListView_GetItemCount($List_View)
		_GUICtrlListView_SetItemChecked($List_View, $i, True)
	Next
	_GUICtrlListView_EndUpdate($List_View)
EndFunc   ;==>_Chargement

Func _Actualiser()
	_GUICtrlListView_DeleteAllItems($List_View)
	_Chargement()
EndFunc   ;==>_Actualiser

Func _Manage_ListView()
	Local $sel
	$sel = _GUICtrlListView_GetSelectedIndices($List_View)
	If $sel <> "" Then
		$text = GUICtrlRead(GUICtrlRead($List_View), 2)
		_GUICtrlListView_DeleteItem($List_View, $sel)
		RegDelete("HKCR\" & $Index[$sel] & "\ShellNew", "NullFile")
		RegDelete("HKCR\" & $Index[$sel] & "\ShellNew", "FileName")
		_ArrayDelete($Index, $sel)
		RegDelete("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Discardable\PostSetup\ShellNew", $text)
	EndIf
EndFunc   ;==>_Manage_ListView