#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\icone.ico
#AutoIt3Wrapper_Outfile=le programme\Bureau.exe
#AutoIt3Wrapper_Outfile_x64=le programme\Bureau x 64.exe
#AutoIt3Wrapper_Compression=0
#AutoIt3Wrapper_Compile_Both=y
#AutoIt3Wrapper_UseX64=y
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****


#cs ----------------------------------------------------------------------------

 AutoIt Version : 3.3.6.1
 Auteur:         HUGO entreprise

 Fonction du Script : Bureau
	Script AutoIt.

#ce ----------------------------------------------------------------------------

; Début du script - Ajouter votre code ci-desad.
Global $chiffreH = Random(0, 100, 1)



$aide = ("L'option 'ouvrir le bloc-note' est acsessible que sur WINDOWS." & @CRLF & "Les musique ne peuve pas s'arreter avant leur fin" & @CRLF & "QUAND VOUS APPUYEZ SUR CANCEL PENDANT L'OPERATION CELA FERMERAS TOUS LE PROGRAMME" & @CRLF & "La resolution de l'ecrans est valable pour l'ecrans principale" & @CRLF & "La version de l'OS est valable que pour WINDOWS" & @CRLF & "Ce programme est conseillez pour WINDOWS" & @CRLF & "Le nombre du jeu et les facteurs de calcul s'actualise a tous demarrage du programme" & @CRLF &  "Pour tous aide suplementaire contactez l'auteur :allairehugo@gmail.com")

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <DateTimeConstants.au3>
#include <File.au3>
#include <EditConstants.au3>

$6r = Random(3,1000,1)
$5r = Random(3,10,1)
$2r = Random(3,10,1)
$4r = Random(3,1000,1)
#Region ### START Koda GUI section ### Form=
Global $Form3 = GUICreate("A Propos", 323, 286, 419, 251)
GUISetBkColor(0xC0C0C0)
Global $GroupBox1 = GUICtrlCreateGroup("A propos", 8, 8, 305, 233)
Global $Label1 = GUICtrlCreateLabel("Nom du Produit: Bureau", 152, 24, 117, 17)
Global $Label2 = GUICtrlCreateLabel("Version: 4.0.6", 152, 48, 69, 17)
Global $Label3 = GUICtrlCreateLabel("Auteur: Hugo Entreprise", 16, 136, 117, 17)
Global $Edit1 = GUICtrlCreateEdit("", 16, 24, 113, 97)
GUICtrlSetData(-1, "Commentaires:")
Global $Label4 = GUICtrlCreateLabel("Signée: HUGO", 136, 72, 176, 33)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
Global $Label5 = GUICtrlCreateLabel("Aidez par www.autoitscript.fr", 136, 120, 155, 17)
Global $Label6 = GUICtrlCreateLabel("Pour tous aide suplementaire contactez l'auteur", 16, 160, 227, 17)
Global $Label7 = GUICtrlCreateLabel("allairehugo@gmail.com", 16, 184, 113, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Button6 = GUICtrlCreateButton("Valider", 8, 248, 171, 33)
#EndRegion ### END Koda GUI section ###

$var = DriveGetDrive( "all" )
$vara = DriveGetDrive( "REMOVABLE" )
$varf = DriveGetDrive( "FIXED" )
#Region ### START Koda GUI section ### Form=
Global $Form10 = GUICreate("Musique", 326, 105, 506, 175)
GUISetBkColor(0xFFFF00)
Global $Button11 = GUICtrlCreateButton("Au Claire de la Lune", 8, 8, 129, 33)
Global $Button13 = GUICtrlCreateButton("Quitter", 200, 8, 113, 41)
Global $Button10 = GUICtrlCreateButton("Musique Anniversaire", 8, 48, 129, 33)
#EndRegion ### END Koda GUI section ###

#Region ### START Koda GUI section ### Form=
Global $Form1_1 = GUICreate("Bureau", 741, 333, 327, 188)
GUISetBkColor(0x00FFFF)
Global $Button4 = GUICtrlCreateButton("Quitter", 240, 232, 201, 49)
Global $Label1 = GUICtrlCreateLabel("Bureau", 8, 8, 134, 41)
GUICtrlSetFont(-1, 26, 800, 4, "Arial")
GUICtrlSetColor(-1, 0xFFFF00)
Global $Button2 = GUICtrlCreateButton("Calendrier", 240, 88, 201, 137)
GUICtrlSetCursor (-1, 2)
Global $Button3 = GUICtrlCreateButton("jeu", 8, 88, 225, 137)
Global $Checkbox1 = GUICtrlCreateCheckbox("Voir a propos", 8, 56, 121, 25)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
Global $Edit1 = GUICtrlCreateEdit("", 448, 8, 289, 321)
GUICtrlSetData(-1, "Brouillons:")
Global $Button14 = GUICtrlCreateButton("Musique", 144, 8, 297, 73)
Global $Button0505 = GUICtrlCreateButton("Gadget", 8, 232, 225, 49)
Global $Buttonaa = GUICtrlCreateButton("Autre", 8, 288, 225, 41)
Global $aa = GUICtrlCreateButton("Aide", 240, 288, 201, 41)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$pp = ClipGet ( )
$sec = (@HOUR*60+@MIN)
$min = ($sec*60+@SEC)
$date = ("Date : " & @MDAY & " / " & @MON & " / " & @YEAR & " On est le " & @YDAY & " iéme jour de l'annés .Voici l'heure" & @HOUR & ":" & @MIN & ":" & @SEC & ":" & @MSEC & " ." & @CRLF & " On en est à la la " & $sec & " iéme minute de la journée et aussi la "& $min & " iéme seconde de la journée")
#Region ### START Koda GUI section ### Form=
Global $h = GUICreate("Gadget", 627, 364, 347, 119)
GUISetBkColor(0x2DFE07)
Global $hg = GUICtrlCreateLabel("GADGET", 128, 8, 396, 100)
GUICtrlSetFont(-1, 72, 400, 4, "Arial")
GUICtrlSetColor(-1, 0xFFFF00)
Global $hhhhhhhh = GUICtrlCreateLabel("Nom de l'ordinateur : " &  @ComputerName, 8, 112, 584, 17)
Global $hhhhhhhhh = GUICtrlCreateLabel($date, 8, 144, 599, 25)
Global $Label1 = GUICtrlCreateLabel("Chemins du bureau : " & @DesktopDir , 8, 184, 600, 17)
Global $Label2 = GUICtrlCreateLabel("Resolution de l'ecrans : " & @DesktopHeight  & " x " & @DesktopWidth, 8, 216, 597, 17)
Global $Label3 = GUICtrlCreateLabel("Chemins du repertoire temporaire: " & @TempDir, 8, 240, 612, 33)
Global $Label4 = GUICtrlCreateLabel("Version OS: " & @OSVersion,184, 296, 188, 17)
Global $Button1quitter = GUICtrlCreateButton("Quitter", 8, 280, 169, 73)
Global $Label5 = GUICtrlCreateLabel("Nom d'utilisateur: " & @UserName, 184, 328, 212, 25)
Global $Buttonadd = GUICtrlCreateButton("Informations disque", 400, 280, 225, 81)
#EndRegion ### END Koda GUI section ###
#Region ### START Koda GUI section ### Form=
Global $autref = GUICreate("Autre", 294, 250, 482, 219)
GUISetBkColor(0xFFFF00)
Global $amath = GUICtrlCreateButton("Math", 0, 0, 161, 57)
Global $buttonqa = GUICtrlCreateButton("Quitter", 160, 0, 129, 57)
Global $Button1bloc = GUICtrlCreateButton("Ovrir le bloc-note", 0, 56, 289, 65)
Global $Buttonvc = GUICtrlCreateButton("Vider la corbeille", 0, 120, 289, 65)
Global $Buttonapp = GUICtrlCreateButton("Afficher le presse papiers", 0, 184, 289, 65)
#EndRegion ### END Koda GUI section ###
#Region ### START Koda GUI section ### Form=
Global $mathf = GUICreate("Math", 286, 147, 474, 349)
GUISetBkColor(0xA6CAF0)
Global $ad = GUICtrlCreateButton("Additions", 128, 0, 153, 49)
Global $buttonqm = GUICtrlCreateButton("Quitter", 0, 112, 281, 33)
Global $multi = GUICtrlCreateButton("Multiplication", 0, 0, 129, 49)
Global $dif1 = GUICtrlCreateButton("Difficile 1", 0, 48, 281, 33)
Global $dif2 = GUICtrlCreateButton("Difficile 2", 0, 80, 281, 33)
#EndRegion ### END Koda GUI section ###

#Region ### START Koda GUI section ### Form=
Global $Form2 = GUICreate("Gestionnaires de dates", 686, 666, 302, 54)
GUISetBkColor(0x00FFFF)
Global $MonthCal1 = GUICtrlCreateMonthCal("2013/02/23", 0, 128, 681, 484)
Global $Button1 = GUICtrlCreateButton("Quitter", 248, 616, 121, 41, $BS_CENTER)
Global $Label1 = GUICtrlCreateLabel($date, 0, 0, 681, 129)
GUICtrlSetFont(-1, 17, 400, 0, "Arial")
#EndRegion ### END Koda GUI section ###
#Region ### START Koda GUI section ### Form=
Global $dd = GUICreate("Informations disque", 446, 188, 414, 257)
GUISetBkColor(0xFFB062)
Global $Label1 = GUICtrlCreateLabel("Information  disque C", 32, 8, 356, 39)
GUICtrlSetFont(-1, 24, 400, 0, "Algerian")
GUICtrlSetColor(-1, 0x00FFFF)
Global $Label2 = GUICtrlCreateLabel("Espace total sur C en megaoctet: " & DriveSpaceTotal( "c:\" ), 8, 56, 283, 17)
Global $Label3 = GUICtrlCreateLabel("Espace libre sur C en megaoctet: " & DriveSpaceFree( "c:\" ) , 8, 80, 279, 17)
Global $Label4 = GUICtrlCreateLabel("Nombre de disque:" & $var[0], 8, 104, 285, 25)
Global $Buttonqdd = GUICtrlCreateButton("Quitter", 296, 56, 145, 129)
Global $Label5 = GUICtrlCreateLabel("Nombre de disque amovible: " & $vara[0], 8, 128, 285, 25)
Global $Label6 = GUICtrlCreateLabel("Nombre de disque fixe: " & $varf[0], 8, 152, 285, 25)
#EndRegion ### END Koda GUI section ###
#Region ### START Koda GUI section ### Form=
Global $aidef = GUICreate("Aide", 429, 188, 361, 131)
GUISetBkColor(0xC0C0C0)
Global $Label1 = GUICtrlCreateLabel($aide, 8, 8, 412, 129)
Global $quitaide = GUICtrlCreateButton("Quitter", 5, 144, 161, 41)
#EndRegion ### END Koda GUI section ###
While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit
  Case $Checkbox1
	GUISetState(@SW_SHOW,$Form3)
  Case $Button3
	_jeux()
  Case $Button2
	GUISetState(@SW_SHOW,$Form2)
  Case $Buttonadd
	GUISetState(@SW_SHOW,$dd)
  Case $Buttonqdd
	GUISetState(@SW_HIDE, $dd)
  Case $Button1
	GUISetState(@SW_HIDE, $Form2)
  Case $Buttonapp
	MsgBox(0, "Presse papier","Contenu du presse papier:" & @CRLF & "" & $pp)
  Case $ad
	_ad()
  Case $multi
	_multi()
  Case $Button1bloc
	_bloc()
  Case $dif1
	_dif1()
  Case $Buttonvc
	FileRecycleEmpty("C:\")
  Case $dif2
	_dif2()
  Case $aa
	GUISetState(@SW_SHOW, $aidef)
  Case $Button0505
	GUISetState(@SW_SHOW, $h)
  Case $quitaide
	GUISetState(@SW_HIDE, $aidef)
  Case $buttonqa
	GUISetState(@SW_HIDE, $autref)
  Case $Buttonaa
	GUISetState(@SW_SHOW, $autref)
  Case $amath
	GUISetState(@SW_SHOW, $mathf)
  Case $buttonqm
	GUISetState(@SW_HIDE, $mathf)
  Case $Button14
	GUISetState(@SW_SHOW, $Form10)
  Case $Button13
	GUISetState(@SW_HIDE, $Form10)
  Case $Button1quitter
	GUISetState(@SW_HIDE, $h)
  Case $Button4
	_fermer()
  Case $Button10
		Beep(262*2, 250)
		Beep(262*2, 100)
		Beep(294*2, 250)
		Beep(262*2, 500)
		Beep(349*2, 250)
		Beep(330*2, 1000)
		Sleep(500)
		Beep(262*2, 250)
		Beep(262*2, 100)
		Beep(294*2, 250)
		Beep(262*2, 500)
		Beep(392*2, 250)
		Beep(349*2, 500)
  Case $Button6
	GUISetState(@SW_HIDE, $Form3)
Case $Button11
		_musique()
 EndSwitch
WEnd
Func _dif1()
		Do
				$reponsedif1 = InputBox("les Math",$4r & " + " & $6r &  " x " & $2r)
				If @error Then _fermer()
				$reponsedif1 = Number($reponsedif1)

		Until ($reponsedif1 = $4r+$6r*$2r)
		MsgBox(0,"WoOow", "Bravo vous avez reussi")

EndFunc
Func _dif2()
		Do
				$reponsedif2 = InputBox("les Math",$5r & " x " & $2r &  " + " & $4r)
				If @error Then _fermer()
				$reponsedif2 = Number($reponsedif2)

		Until ($reponsedif2 = $5r*$2r+$4r)
		MsgBox(0,"WoOow", "Bravo vous avez reussi")

EndFunc
Func _ad()
		Do
				$reponsead = InputBox("les Math",$4r &  " + " & $6r)
				If @error Then _fermer()
				$reponsead = Number($reponsead)

		Until ($reponsead = $4r+$6r)
		MsgBox(0,"WoOow", "Bravo vous avez reussi")

EndFunc
Func _multi()
		Do
				$reponsemulti = InputBox("les Math",$5r &  " x " & $2r)
				If @error Then _fermer()
				$reponsemulti = Number($reponsemulti)

		Until ($reponsemulti = $5r*$2r)
		MsgBox(0,"WoOow", "Bravo vous avez reussi")
EndFunc
Func _musique()

		Beep(261.6 ,500)
		Sleep(100)
		Beep(261.6 ,500)
		Sleep(100)
		Beep(261.6 ,500)
		Sleep(100)
		Beep(293.7, 500)
		Sleep(100)
		Beep(329.7,750)
		Sleep(100)
		Beep(293.7, 500)
		Sleep(100)
		Beep(261.6 ,500)
		Sleep(100)
		Beep(329.7,650)
		Sleep(100)
		Beep(293.7, 500)
		Sleep(100)
		Beep(293.7, 500)
		Sleep(100)
		Beep(261.6 ,750)
		Sleep(100)
		Beep(261.6 ,500)
		Sleep(100)
		Beep(261.6 ,500)
		Sleep(100)
		Beep(261.6 ,500)
		Sleep(100)
		Beep(293.7, 500)
		Sleep(100)
		Beep(329.7,750)
		Sleep(100)
		Beep(293.7, 500)
		Sleep(100)
		Beep(261.6 ,500)
		Sleep(100)
		Beep(329.7,650)
		Sleep(100)
		Beep(293.7, 500)
		Sleep(100)
		Beep(293.7, 500)
		Sleep(100)
		Beep(261.6 ,750)
		Sleep(100)
EndFunc
Func _bloc()
		RunWait("notepad.exe","", @SW_MAXIMIZE)
EndFunc

Func _jeux()
		Global $chiffreH = Random(0, 100, 1)
		$msg = MsgBox(4, "le jeu", "Bonjour ! Bienvenue au jeu du Plus ou du Moins."& @CRLF &"Le but du jeu est le suivant :" & @CRLF & _
						"Je tire un nombre au hasard que vous devrez deviner, puis je vous donne les indications 'plus' ou 'moins' pour vous aider. Vous êtes prêt ?" & @CRLF & "ATTENTION!!! si vous apuyez sur cancel PENDANT le jeu cela quitteras le programme completément")
						;Ici Le Flag 4 Affiche OUI ou NON. Il va falloir traiter la réponse. Vous savez à quoi correspond @CRLF et @ _
		If $msg = 6 Then _j() ; Si L'utilisateur répond Non, on quitte le programme.

EndFunc

Func _fermer()
        $q = MsgBox(305,"Quitter","Quel Dommage de vouloir quitter !")
		Select
			Case $q = 1 ;OK
				Exit
			Case $q = 2 ;Cancel

		EndSelect
EndFunc

Func _j()


		;On peut maintenant passer à la boucle. On a choisit un Do... Until car on veut demander au moins une fois le nombre à l'utilisateur.
		Do
				$reponse = InputBox("le jeu", "Rentrez un nombre de 0 à 100")
				;$reponse contient la valeur retournée par l'utilisateur. Vous voyez qu'on n'a pas eu besoin de la déclarer précédemment.
				If @error Then _fermer()
				;On va maintenant prévoir une erreur utilisateur, en effet celui ci a pu entrer une chaine de caractères, on va donc utiliser la fonction Nombre()
				$reponse = Number($reponse) ; Si $reponse était une chaine de caractères, il devient 0. Plus d'aide dans la doc (F1).

				If ($reponse > $chiffreH) Then
						MsgBox(0, "le jeu", "Pas mal... mais c'est un peu moins !" & @CRLF & "Nombre tenté : "&$reponse)
				ElseIf ($reponse < $chiffreH) Then
						MsgBox(0, "le jeu", "Pas mal... mais c'est un peu plus !" & @CRLF & "Nombre tenté : "&$reponse)
				EndIf

		Until ($reponse = $chiffreH)
		MsgBox(0, "WoOoW!", " Vous avez réussi ! Extraordinaire ! Bravo !")
	EndFunc