AutoIt Français

Code : Tout sélectionner

;Cree par **

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Oracle", 337, 150, 398, 218)
$Info = GUICtrlCreateCombo("", 24, 24, 281, 25)
GUICtrlSetResizing(-1, $GUI_DOCKVCENTER)
GUICtrlSetData(-1, "8.1.7|9.2", "8.1.7")
$Ok = GUICtrlCreateButton("OK", 108, 56, 113, 25, 0)
GUICtrlSetResizing(-1, $GUI_DOCKVCENTER)
GUISetState(@SW_SHOW)
$Info2 = GUICtrlCreateLabel(@ComputerName, 132, 106, 342, 17)
GUICtrlSetResizing(-1, $GUI_DOCKVCENTER)




#EndRegion ### END Koda GUI section ###



While 1
    $Msg = GUIGetMsg()
    If $Msg = $GUI_EVENT_CLOSE Then Exit

    ; on attend de cliquer sur OK
    If $Msg = $Ok Then
        ; je lis la valeur séléctionner dans la liste deroulante
        Switch GUICtrlRead($Info)
            ; suivant la valeur je mofidife la chaine pour le registre
            Case "8.1.7"
                $reg = "C:\oracle\10IDS_R2\BIN\;C:\Program Files\Microsoft SQL Server\80\Tools\Binn\;c:\oracle\10IDS_R2\jdk\jre\bin\client;c:\oracle\10IDS_R2\jdk\jre\bin\classic;c:\oracle\10IDS_R2\jdk\jre\bin;c:\oracle\10IDS_R2\jlib;c:\oracle\10IDS_R2\bin;c:\oracle\10IDS_R2\jre\1.4.2\bin\client;c:\oracle\10IDS_R2\jre\1.4.2\bin;C:\Program Files\Windows Resource Kits\Tools\;C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem;C:\Program Files\Common Files\OCR\Version15.2;C:\Program Files\Support Tools\;C:\Program Files\Common Files\Adobe\AGL;C:\Program Files\Hewlett-Packard\OpenView\service desk 4.5\client\bin;C:\Program Files\QuickTime\QTSystem\"
            Case "9.2"
                $reg = "C:\oracle\11IDS_R2\BIN\;C:\Program Files\Microsoft SQL Server\80\Tools\Binn\;c:\oracle\11IDS_R2\jdk\jre\bin\client;c:\oracle\11IDS_R2\jdk\jre\bin\classic;c:\oracle\11IDS_R2\jdk\jre\bin;c:\oracle\11IDS_R2\jlib;c:\oracle\11IDS_R2\bin;c:\oracle\11IDS_R2\jre\1.4.2\bin\client;c:\oracle\11IDS_R2\jre\1.4.2\bin;C:\Program Files\Windows Resource Kits\Tools\;C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem;C:\Program Files\Common Files\OCR\Version15.2;C:\Program Files\Support Tools\;C:\Program Files\Common Files\Adobe\AGL;C:\Program Files\Hewlett-Packard\OpenView\service desk 4.5\client\bin;C:\Program Files\QuickTime\QTSystem\"
        EndSwitch
        ; j'écris dans le registre
        RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Session Manager\Environment", "Path", "REG_SZ", $reg)
        Sleep(5000)
        MsgBox(0, GUICtrlRead($Info), "Modif OK")
        ; je quitte
        Exit
    EndIf
WEnd

Code : Tout sélectionner

; affecte une valeur à un contrôle dans une GUI
GuiCtrlSetData($info2, _Oracle_GetVersion())

Func _Oracle_GetVersion()
    Local $lines = "", $line = ""
        ; C'est ici que l'on lance la commande DOS a toi d'adapter avec les bon chemin si c'est pas dans le Path Windows
    Local $pid = Run("sqlplus.exe -v", "Path to Oracle sqlplus.exe si besoin", @SW_HIDE, $STDOUT_CHILD)
        ; on boucle tant que le process s'execute
    While 1
                ; on récupère la ligne écrite dans la pseudo fenêtre Dos
        $line = StdoutRead($pid) & @LF
                ; l' erreur survient qd le process est terminé
        If @error Then ExitLoop
                ; ici on stocke les valeurs de la commande Dos, on en fait le ménage
        $line = StringReplace($line, @LF & @LF, @LF)
        If $line <> @LF Then $lines &= $line
    WEnd
        ; retourne toutes les lignes si y'en a plusieurs
    Return $line
EndFunc   ;==>_Oracle_GetVersion