[..] Bureau

[Hugo]

Voila une petite création de ma part

~~ORDI1~~ script 4.1.6.au3

la v 4

(13.41 Kio) Téléchargé 533 fois

description: un programme recueil de toute les fonctions que j'ai appris
ex:

► Afficher le texte

drivegetdrive
Random
cdtray
file recycle empty
beep

et pour la v 5:
filesavedialog
screencapturecapture
screencapturesaveimage

[Uranium]

Merci je trouve ça très bien pour un début , même si il y a des petits trucs à changer

Tu devrais changer le titre avant te faire taper sur les doigts ( ou la fessé comme tu préfères ) par les modos

[mikell]

A faire EN URGENCE :
- mettre un titre de sujet explicite
- faire une petite présentation de ta création
Sous peine de voir le sujet partir à la poubelle

[Hugo]

Je vais bientot terminer la v5

Dite moi se qui ne vas pas dans mon programmes

Et donné moi des idée

Merci

[mikell]

Je te pose une colle, si tu trouves la réponse tu auras fait de gros progrès
Dans la fenêtre musique, comment pouvoir quitter avant que la musique ait fini de jouer ?

[Tlem]

Moi aussi, je vais poser une colle.

En lisant le titre : Bureau
Et la description : un programme recueil de toute les fonctions que j'ai appris

Comment connaitre les fonctions traitées sans avoir la nécessité de télécharger et ouvrir le fichier au3 ?

[Hugo]

Petite aperçu de la v 5:

► Afficher le texte

Code : Tout sélectionner

$aide = ("L'option 'ouvrir le bloc-note' est acsessible que sur WINDOWS." & @CRLF & "La suppression du presse papier seras tenue compte a la fermeture du programme" & @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 <ScreenCapture.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <DateTimeConstants.au3>
#include <File.au3>
#include <EditConstants.au3>
$cd = DriveGetDrive("CDROM")
$lcd = $cd[1]
$6r = Random(3, 1000, 1)
$5r = Random(3, 10, 1)
$2r = Random(3, 10, 1)
$4r = Random(3, 1000, 1)
; & "" & @crlf &


$var = DriveGetDrive("all")
$vara = DriveGetDrive("REMOVABLE")
$varf = DriveGetDrive("FIXED")


$pp = ClipGet()
$cd = DriveGetDrive("CDROM")
$lcd = $cd[1]
$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")
$bloc = ("Information du systeme" & @crlf & "" & @crlf & "" & $date & "" & @crlf & "" & @CRLF & "Nom de l'ordinateur : " & @ComputerName & "" & @crlf & "Chemins du bureau : " & @DesktopDir & "" & @crlf & "Chemins du repertoire temporaire: " &  @TempDir & "" & @crlf & "Version OS:" &  @OSVersion & "" & @crlf & "Nom d'utilisateur:" &  @UserName & "" & @crlf & "Chemin du profile utilisateur: " &  @UserProfileDir & "" & @crlf & "Espace total sur C en megaoctet: " & DriveSpaceTotal("c:\") & "" & @crlf &"Espace libre sur C en megaoctet: " & DriveSpaceFree("c:\") & "" & @crlf & "Nombre de disque:" & $var[0] & "" & @crlf & "Nombre de disque amovible: " & $vara[0] & "" & @crlf & "Nombre de disque fixe: " & $varf[0] & "" & @crlf & "N° de serie du disque dure C:" & DriveGetSerial("C:\") & "" & @crlf & "" & "" & @crlf & "Crée par Hugo allairehugo@gmail.com")
#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 $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: 5.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 http://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 ###

#Region ### START Koda GUI section ### Form=
Global $info = GUICreate("Information", 1367, 694, 316, 137)
GUISetBkColor(0x00FF00)
Global $Edit2 = GUICtrlCreateEdit("", 8, 8, 1057, 681)
GUICtrlSetData(-1, $bloc)
Global $olbn = GUICtrlCreateButton("Ouvrir le bloc note", 1072, 16, 281, 65)
Global $infopp = GUICtrlCreateButton("Copiez dans le presse papiers", 1072, 88, 281, 57)
Global $quitinfo = GUICtrlCreateButton("Quitter", 1072, 152, 281, 57)
#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 ###
#Region ### START Koda GUI section ### Form=
Global $cdf = GUICreate("Gestion CD", 283, 123, 420, 179)
Global $ocd = GUICtrlCreateButton("Ouvrir", 0, 0, 113, 121)
Global $fcd = GUICtrlCreateButton("Fermer", 112, 0, 97, 121)
Global $qcd = GUICtrlCreateButton("Quitter", 208, 1, 73, 119)
#EndRegion ### END Koda GUI section ###
#Region ### START Koda GUI section ### Form=
Global $h = GUICreate("Gadget", 629, 444, 347, 120)
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, 113)
Global $Label5 = GUICtrlCreateLabel("Nom d'utilisateur:" &  @UserName, 184, 328, 212, 25)
Global $Label50 = GUICtrlCreateLabel("Chemin du profile utilisateur: " &  @UserProfileDir, 184, 360, 212, 25)
Global $Buttonadd = GUICtrlCreateButton("Informations disque", 512, 280, 113, 113)
Global $Buttoncd = GUICtrlCreateButton("Gestion CD", 400, 280, 113, 113)
Global $Buttonbnit = GUICtrlCreateButton("Reduire toute les fenetre", 8, 392, 283, 49)
Global $Buttonainfo = GUICtrlCreateButton("Information systéme complet", 296, 392, 329, 49)
#EndRegion ### END Koda GUI section ###

#Region ### START Koda GUI section ### Form=
Global $autref = GUICreate("Autre", 295, 323, 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 $Buttonappf = GUICtrlCreateButton("Presse-papiers", 0, 184, 289, 65)
Global $buttonscreen = GUICtrlCreateButton("Capture d'ecrans", 0, 248, 289, 73)
#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", 448, 226, 414, 257)
GUISetBkColor(0xFFB062)
Global $Label1 = GUICtrlCreateLabel("Information  disque", 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, 169)
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)
Global $Label7 = GUICtrlCreateLabel("N° de serie du disque dure C:" & DriveGetSerial("C:\"), 8, 184, 282, 41)
#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 ###
#Region ### START Koda GUI section ### Form=
Global $ppf = GUICreate("Presse papiers", 670, 90, 344, 205)
GUISetBkColor(0xFF00FF)
Global $Buttonapp = GUICtrlCreateButton("Afficher le presse-papier", 0, 0, 241, 65)
Global $Buttonspp = GUICtrlCreateButton("Supprimer le contenu du presse-papiers", 240, 0, 249, 65)
Global $Buttonqppf = GUICtrlCreateButton("Quitter", 488, 0, 177, 65)
Global $Label1 = GUICtrlCreateLabel("La suppression du presse papier seras tenue compte a la fermeture du programme", 0, 64, 666, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFF00)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Checkbox1
            GUISetState(@SW_SHOW, $Form3)
        Case $quitinfo
            GUISetState(@SW_HIDE,$info)
        Case $olbn
            _bloc()
        Case $infopp
            ClipPut($bloc)
        Case $Buttonspp
            ClipPut("")
        Case $buttonainfo
            GUISetState(@SW_SHOW,$info)
        Case $Buttonappf
            GUISetState(@SW_SHOW, $ppf)
        Case $Button3
            _jeux()
        Case $Buttonbnit
            WinMinimizeAll()
        Case $Button2
            GUISetState(@SW_SHOW, $Form2)
        Case $Buttonqppf
            GUISetState(@SW_HIDE, $ppf)
        Case $Buttonscreen
            _screen()
        Case $Buttonadd
            GUISetState(@SW_SHOW, $dd)
        Case $Buttoncd
            GUISetState(@SW_SHOW, $cdf)
        Case $qcd
            GUISetState(@SW_HIDE, $cdf)
        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 $ocd
            CDTray($lcd, "open")
        Case $fcd
            CDTray($lcd, "close")
        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   ;==>_dif1

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   ;==>_dif2


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   ;==>_ad
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   ;==>_multi
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   ;==>_musique
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   ;==>_jeux

Func _fermer()
    $q = MsgBox(308, "Quitter", "Quel Dommage de vouloir quitter !")
    Select
        Case $q = 6 ;OK
            Exit
        Case $q = 7 ;Cancel

    EndSelect
EndFunc   ;==>_fermer

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   ;==>_j



Func _screen()
$in = FileSaveDialog("Enregistrer la capture", "", "jpeg (*.jpg;)|tous (*.*)")
$ing = ($in & ".jpg")
MsgBox(0,"Capture","La capture se prendra 5 sec aprés avoir cliqué sur ok")
Sleep(5000)
$hjpg = _ScreenCapture_Capture ("")
_ScreenCapture_SaveImage ($ing, $hjpg)
EndFunc

[jguinch]

Salut

Dite moi se qui ne vas pas dans mon programmes

Bin .... le programme !

[Hugo]

as tu essayez avec le exe de la v4 car avec la v5 ce problème est résolu
(un petit problème de macros)
essaie avec le programme beta de la v5:

[jguinch]

Désolé, c'est pareil sur 2 PC différents (Line 4390)...

[Hugo]

réessaie avec celui la

► Afficher le texte

Code : Tout sélectionner

$aide = ("L'option 'ouvrir le bloc-note' est acsessible que sur WINDOWS." & @CRLF & "La suppression du presse papier seras tenue compte a la fermeture du programme" & @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 <ScreenCapture.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <DateTimeConstants.au3>
#include <File.au3>
#include <EditConstants.au3>
$cd = DriveGetDrive("CDROM")
$lcd = $cd[1]
$6r = Random(3, 1000, 1)
$5r = Random(3, 10, 1)
$2r = Random(3, 10, 1)
$4r = Random(3, 1000, 1)
; & "" & @crlf &


$var = DriveGetDrive("all")
$vara = DriveGetDrive("REMOVABLE")
$varf = DriveGetDrive("FIXED")


$pp = ClipGet()
$cd = DriveGetDrive("CDROM")
$lcd = $cd[1]
$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")
$bloc = ("Information du systeme" & @crlf & "" & @crlf & "" & $date & "" & @crlf & "" & @CRLF & "Nom de l'ordinateur : " & @ComputerName & "" & @crlf & "Chemins du bureau : " & @DesktopDir & "" & @crlf & "Chemins du repertoire temporaire: " &  @TempDir & "" & @crlf & "Version OS:" &  @OSVersion & "" & @crlf & "Nom d'utilisateur:" &  @UserName & "" & @crlf & "Chemin du profile utilisateur: " &  @UserProfileDir & "" & @crlf & "Espace total sur C en megaoctet: " & DriveSpaceTotal("c:\") & "" & @crlf &"Espace libre sur C en megaoctet: " & DriveSpaceFree("c:\") & "" & @crlf & "Nombre de disque:" & $var[0] & "" & @crlf & "Nombre de disque amovible: " & $vara[0] & "" & @crlf & "Nombre de disque fixe: " & $varf[0] & "" & @crlf & "N° de serie du disque dure C:" & DriveGetSerial("C:\") & "" & @crlf & "" & "" & @crlf & "Crée par Hugo allairehugo@gmail.com")
#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 $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: 5.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 http://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 ###

#Region ### START Koda GUI section ### Form=
Global $info = GUICreate("Information", 1367, 694, 316, 137)
GUISetBkColor(0x00FF00)
Global $Edit2 = GUICtrlCreateEdit("", 8, 8, 1057, 681)
GUICtrlSetData(-1, $bloc)
Global $olbn = GUICtrlCreateButton("Ouvrir le bloc note", 1072, 16, 281, 65)
Global $infopp = GUICtrlCreateButton("Copiez dans le presse papiers", 1072, 88, 281, 57)
Global $quitinfo = GUICtrlCreateButton("Quitter", 1072, 152, 281, 57)
#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 ###
#Region ### START Koda GUI section ### Form=
Global $cdf = GUICreate("Gestion CD", 283, 123, 420, 179)
Global $ocd = GUICtrlCreateButton("Ouvrir", 0, 0, 113, 121)
Global $fcd = GUICtrlCreateButton("Fermer", 112, 0, 97, 121)
Global $qcd = GUICtrlCreateButton("Quitter", 208, 1, 73, 119)
#EndRegion ### END Koda GUI section ###
#Region ### START Koda GUI section ### Form=
Global $h = GUICreate("Gadget", 629, 444, 347, 120)
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, 113)
Global $Label5 = GUICtrlCreateLabel("Nom d'utilisateur:" &  @UserName, 184, 328, 212, 25)
Global $Label50 = GUICtrlCreateLabel("Chemin du profile utilisateur: " &  @UserProfileDir, 184, 360, 212, 25)
Global $Buttonadd = GUICtrlCreateButton("Informations disque", 512, 280, 113, 113)
Global $Buttoncd = GUICtrlCreateButton("Gestion CD", 400, 280, 113, 113)
Global $Buttonbnit = GUICtrlCreateButton("Reduire toute les fenetre", 8, 392, 283, 49)
Global $Buttonainfo = GUICtrlCreateButton("Information systéme complet", 296, 392, 329, 49)
#EndRegion ### END Koda GUI section ###

#Region ### START Koda GUI section ### Form=
Global $autref = GUICreate("Autre", 295, 323, 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 $Buttonappf = GUICtrlCreateButton("Presse-papiers", 0, 184, 289, 65)
Global $buttonscreen = GUICtrlCreateButton("Capture d'ecrans", 0, 248, 289, 73)
#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", 448, 226, 414, 257)
GUISetBkColor(0xFFB062)
Global $Label1 = GUICtrlCreateLabel("Information  disque", 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, 169)
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)
Global $Label7 = GUICtrlCreateLabel("N° de serie du disque dure C:" & DriveGetSerial("C:\"), 8, 184, 282, 41)
#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 ###
#Region ### START Koda GUI section ### Form=
Global $ppf = GUICreate("Presse papiers", 670, 90, 344, 205)
GUISetBkColor(0xFF00FF)
Global $Buttonapp = GUICtrlCreateButton("Afficher le presse-papier", 0, 0, 241, 65)
Global $Buttonspp = GUICtrlCreateButton("Supprimer le contenu du presse-papiers", 240, 0, 249, 65)
Global $Buttonqppf = GUICtrlCreateButton("Quitter", 488, 0, 177, 65)
Global $Label1 = GUICtrlCreateLabel("La suppression du presse papier seras tenue compte a la fermeture du programme", 0, 64, 666, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFF00)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Checkbox1
            GUISetState(@SW_SHOW, $Form3)
        Case $quitinfo
            GUISetState(@SW_HIDE,$info)
        Case $olbn
            _bloc()
        Case $infopp
            ClipPut($bloc)
        Case $Buttonspp
            ClipPut("")
        Case $buttonainfo
            GUISetState(@SW_SHOW,$info)
        Case $Buttonappf
            GUISetState(@SW_SHOW, $ppf)
        Case $Button3
            _jeux()
        Case $Buttonbnit
            WinMinimizeAll()
        Case $Button2
            GUISetState(@SW_SHOW, $Form2)
        Case $Buttonqppf
            GUISetState(@SW_HIDE, $ppf)
        Case $Buttonscreen
            _screen()
        Case $Buttonadd
            GUISetState(@SW_SHOW, $dd)
        Case $Buttoncd
            GUISetState(@SW_SHOW, $cdf)
        Case $qcd
            GUISetState(@SW_HIDE, $cdf)
        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 $ocd
            CDTray($lcd, "open")
        Case $fcd
            CDTray($lcd, "close")
        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   ;==>_dif1

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   ;==>_dif2


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   ;==>_ad
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   ;==>_multi
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   ;==>_musique
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   ;==>_jeux

Func _fermer()
    $q = MsgBox(308, "Quitter", "Quel Dommage de vouloir quitter !")
    Select
        Case $q = 6 ;OK
            Exit
        Case $q = 7 ;Cancel

    EndSelect
EndFunc   ;==>_fermer

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   ;==>_j



Func _screen()
$in = FileSaveDialog("Enregistrer la capture", "", "jpeg (*.jpg;)|tous (*.*)")
$ing = ($in & ".jpg")
MsgBox(0,"Capture","La capture se prendra 5 sec aprés avoir cliqué sur ok")
Sleep(5000)
$hjpg = _ScreenCapture_Capture ("")
_ScreenCapture_SaveImage ($ing, $hjpg)
EndFunc

pourtant avec mon ordinateur ça marche

[mikell]

Tu es sur XP ?

[jguinch]

Ok c'est corrigé, ça fonctionne.
@Mickell : suis bien ce que dis la fille jusqu'au bout : http://windows.microsoft.com/fr-fr/wind ... -windows-7

[Tlem]

Désolé Hugo, mais tes fichiers joints ont été supprimés car ils contenaient des Exes. Refait ton premier message avec uniquement les scripts non compilés. Je nettoierais le sujet plus tard.

[Hugo]

Tu es sur XP ?

non sur seven mais je programme ausssi dans mon college qui est majoritairemant equipés de xp

[Hugo]

@Mickell : suis bien ce que dis la fille jusqu'au bout : http://windows.microsoft.com/fr-fr/wind ... -windows-7

Pourquoi

[jguinch]

"@Mickell" veut dire que je m'adresse à Mickell.
Le lien, c'est pour me moquer du gars...

[mikell]

Tu peux rigoler mais mon XP est encore très honorable
J'arrive même à sortir quelques scripts que w7 accepte (à contre coeur certainement) de faire tourner

[Hugo]

"@Mickell" veut dire que je m'adresse à Mickell.
Le lien, c'est pour me moquer du gars...

a ok

[Tlem]

Si le premier message n'est pas actualisé avec les scripts non compilés, le sujet ira tout droit dans le tiroir du bas du forum ...