AutoIt Français

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

#Region ### GUI Begin ### Début GUI
Opt("GUIOnEventMode", 1)
Global $MakeCert = GUICreate("MakeCertificates - OpenSSL", 520, 120, 242, 183)
GUISetOnEvent($GUI_EVENT_CLOSE, "DCClose")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "DCMinimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "DCMaximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "DCRestore")
GUICtrlCreateGroup("Informations", 152, 0, 361, 113)
GUICtrlCreateLabel("Émetteur", 160, 24, 46, 17)
GUICtrlCreateLabel("Délivré à", 160, 48, 46, 17)
GUICtrlCreateLabel("Adresse email", 160, 72, 69, 17)
Global $CN = GUICtrlCreateInput("", 216, 24, 281, 21, BitOR($ES_AUTOHSCROLL,$WS_GROUP))
Global $O = GUICtrlCreateInput("", 216, 48, 281, 21, BitOR($ES_AUTOHSCROLL,$WS_GROUP))
Global $EM = GUICtrlCreateInput("", 240, 72, 257, 21, BitOR($ES_AUTOHSCROLL,$WS_GROUP))
GUICtrlCreateButton("Créer DCC !", 8, 8, 131, 52, $BS_MULTILINE)
GUICtrlSetFont(-1, 11, 400, 0, "Tahoma")
GUICtrlSetBkColor(-1, 0x00FF00)
GUICtrlSetOnEvent(-1, "DCCClick")
GUICtrlCreateButton("Générer le certificat", 8, 64, 131, 52, $BS_MULTILINE)
GUICtrlSetFont(-1, 11, 400, 0, "Tahoma")
GUICtrlSetBkColor(-1, 0x00FF00)
GUICtrlSetOnEvent(-1, "GENClick")
GUISetState(@SW_SHOW)
#EndRegion ### GUI End ### Fin GUI


#Region ### GUI Funcs Begin ### Début Fonctions GUI
Func DCClose()
    Exit
EndFunc   ;==>FCClose

Func DCMaximize()

EndFunc   ;==>FCMaximize

Func DCMinimize()
    $MakeCertIsOpen = False
EndFunc   ;==>FCMinimize

Func DCRestore()
    $MakeCertIsOpen = True
EndFunc   ;==FCRestore
#EndRegion ### GUI Funcs End ### Fin Fonctions GUI


Func DCCClick()
    $content = ""
    $DCCLoc = FileSaveDialog("Enregistrer sous", @ScriptDir, "DCert Config(*.dcc)", 16, "config.dcc")

    $content &="[ req ]" & @CRLF
    $content &="distinguished_name = req_dn" & @CRLF
    $content &="prompt             = no" & @CRLF
    $content &="" & @CRLF
    $content &="[ req_dn ]" & @CRLF
    $content &="C                  = FR" & @CRLF
    $content &="O                  = "& Guictrlread($O) & @CRLF
    $content &="CN                 = "& Guictrlread($CN) & @CRLF
    $content &="emailAddress       = "& Guictrlread($EM) & @CRLF

    $dcc_file = FileOpen($DCCLoc, 2)
    FileWrite($dcc_file, $content)
    FileClose($dcc_file)
EndFunc

Func GENClick()
    Run (@ScriptDir & "\MakeCert.bat")
EndFunc

While 1
Sleep(100)
WEnd