AutoIt Français

Code : Tout sélectionner

$Form1_1 = GUICreate("Configuration du serveur", 800,500, 200, 150, BitOR($WS_SYSMENU, $WS_POPUP, $WS_POPUPWINDOW, $WS_BORDER))

GUICtrlCreatePic("K:\SCCM2012\Prive\Script_source\DSC_1652R (2).jpg", 0, 0,1000,800,$SS_BITMAP)
;~ GUICtrlCreatePic("d:\utilisateurs\toto\Desktop\Projet 2012\evolution1.jpg", 0, 0,800,500,$SS_BITMAP)


$font = "Comic Sans MS"
    GUISetFont(15, 4000, 6, $font) ; will display underlined characters
$IPserver1 = GUICtrlCreateLabel("Configuration de la carte réseau", 250, 20, 330, 30,$WS_EX_TRANSPARENT)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$font = "Comic Sans MS"
    GUISetFont(9, 400, 2, $font) ; will display underlined characters
$IPserver1 = GUICtrlCreateLabel("Adresse IP :", 100, 100)
$sIPAddress1 = _GUICtrlIpAddress_Create($Form1_1, 100, 120, 185, 25)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
_GUICtrlIpAddress_Set($sIPAddress1, "0.0.0.0")

$IPMask1 = GUICtrlCreateLabel("Masque de sous-réseau", 100, 150)
$sSubnetMask1 = _GUICtrlIpAddress_Create($Form1_1, 100, 170, 185, 25)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
_GUICtrlIpAddress_Set($sSubnetMask1, "0.0.0.0")

$IPpasserelle1 = GUICtrlCreateLabel("Passerelle par défaut",100, 200)
$adapterName1 = _GUICtrlIpAddress_Create($Form1_1, 100, 220, 185, 25)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
_GUICtrlIpAddress_Set($adapterName1, "0.0.0.0")

$dns1 = GUICtrlCreateLabel("Serveur DNS préféré", 100, 300)
$dns1 = _GUICtrlIpAddress_Create($Form1_1, 100, 320, 185, 25)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
_GUICtrlIpAddress_Set($dns1, "0.0.0.0")

$dns2 = GUICtrlCreateLabel("Serveur DNS auxiliaire", 100, 350)
$dns2 = _GUICtrlIpAddress_Create($Form1_1, 100, 370, 185, 25)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
_GUICtrlIpAddress_Set($dns2, "0.0.0.0")


$btnValider = GUICtrlCreateButton("Suivant", 600, 400, 89, 33)
$btnQuitter = GUICtrlCreateButton("Quitter", 608, 176, 89, 33)