AutoIt Français

Code : Tout sélectionner

#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <IE.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>


Opt("TrayIconHide", 1)


; Création de la fenètre---------------------------------------------------

$GUI = GUICreate ("Projet distance", 500, 300, -1, -1) ; Creation de la fenetre

$Group1 = GUICtrlCreateGroup ( "Saisir information", 10, 10, 280, 150) ; Création de l'encradré avec un titre

$Label1 = GUICtrlCreateLabel("Adresse IP :", 20, 35, 120, 15) ; Crétion d'une écriture appelé Label
$saisir_ip = GUICtrlCreateCombo("", 20, 50, 120, 25) ; création d'un petit menu déroulant

$Label2 = GUICtrlCreateLabel("Domaine\Login :", 20, 90, 120, 20)
$saisir_login = GUICtrlCreateInput("", 20, 105, 120, 20) ; Création d'une posibilété d'inscription

$Label3 = GUICtrlCreateLabel("Password :", 160, 90, 120, 20)
$saisir_mdp = GUICtrlCreateInput("", 160, 105, 120, 20, 0x0020) ; pour crypter le texte rajout de 0x0020 a la fin

$Bouton_ping = GUICtrlCreateButton("Ping",160, 50, 120, 20)

$label = GUICtrlCreateLabel("", 180, 30, 80, 15)

GUISetState(@SW_SHOW)

;----------------------------------------------------------------------------


While 1
$projet = GUIGetMsg()
Switch $projet

Case $GUI_EVENT_CLOSE
Exit

Case $Bouton_ping
Ping_pc()

EndSwitch
WEnd



Func Ping_pc()
Global $ip = GUICtrlRead($saisir_ip)
Local $var = Ping( $ip, 250)

If $ip = ("") Then GUICtrlSetData($label," Veuillez taper l'ip")


EndIf


If $var Then
$label_res2 = GUICtrlSetData($label," PING OK") ; le label dit ok
GUICtrlSetBkColor(-1, 0x00ff00) ; VERT
Sleep (2000)
GUICtrlDelete ($label_res2)

Else ; Si le ping n'est pas OK alors
$label_res2 = GUICtrlSetData($label," PING FAIL") ; le label dit fail
GUICtrlSetBkColor(-1, 0xFF0000)
Sleep (2000)     ; ROUGE
GUICtrlDelete ($label_res2)
Endif

EndFunc

Code : Tout sélectionner

#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <StaticConstants.au3>



Opt("TrayIconHide", 1)


; Création de la fenètre---------------------------------------------------

$GUI = GUICreate("Projet distance", 500, 300, -1, -1) ; Creation de la fenetre

$Group1 = GUICtrlCreateGroup("Saisir information", 10, 10, 280, 150) ; Création de l'encradré avec un titre

$Label1 = GUICtrlCreateLabel("Adresse IP :", 20, 35, 120, 15) ; Crétion d'une écriture appelé Label
$saisir_ip = GUICtrlCreateCombo("", 20, 50, 120, 25) ; création d'un petit menu déroulant

$Label2 = GUICtrlCreateLabel("Domaine\Login :", 20, 90, 120, 20)
$saisir_login = GUICtrlCreateInput("", 20, 105, 120, 20) ; Création d'une posibilété d'inscription

$Label3 = GUICtrlCreateLabel("Password :", 160, 90, 120, 20)
$saisir_mdp = GUICtrlCreateInput("", 160, 105, 120, 20, 0x0020) ; pour crypter le texte rajout de 0x0020 a la fin

$Bouton_ping = GUICtrlCreateButton("Ping", 160, 50, 120, 20)

; Pas besoin de re-créer à chaque fois le label
$label_res = GUICtrlCreateLabel("", 180, 30, 80, 15, $GUI_SS_DEFAULT_LABEL + $SS_CENTER)

GUISetState(@SW_SHOW)

;----------------------------------------------------------------------------


While 1
    $projet = GUIGetMsg()
    Switch $projet

        Case $GUI_EVENT_CLOSE
            Exit

        Case $Bouton_ping
            Ping_pc()

    EndSwitch
WEnd

Func Ping_pc()
    Local $ip = GuiCtrlRead($saisir_ip)
    If Not _Verifier_adresse_ip($ip) Then Return MsgBox(16, "Attention", "Vous devez entrer une addresse IP valide")
    ; ---
    If Ping($ip, 250) Then
        _Set_Label(True)
    Else
        _Set_Label(False)
    EndIf
EndFunc   ;==>Ping_pc

; ##############################################################

Func _Set_Label($iStatus)
    If $iStatus Then
        GuiCtrlSetData($label_res, "PING OK")
        GUICtrlSetBkColor($label_res, 0x00FF00)
    Else
        GuiCtrlSetData($label_res, "PING FAIL")
        GUICtrlSetBkColor($label_res, 0xFF0000)
    EndIf
    ; ---
    ; j'utilise cette fonction pour ne pas faire freezer la GUI (voyez la documentation)
    AdLibRegister("_Reinit_Label", 4000) ; ###
EndFunc

Func _Reinit_Label()
    GuiCtrlSetData($label_res, "")
    GUICtrlSetBkColor($label_res, $GUI_BKCOLOR_TRANSPARENT)
    ; ---
    AdlibUnRegister("_Reinit_Label") ; ###
EndFunc

; ##############################################################

Func _Verifier_adresse_ip($ip)
    $ip = StringSplit($ip, ".")
    If $ip[0] <> 4 Then Return False
    ; ---
    For $i = 1 To $ip[0]
        If Not $ip[$i] Or Int($ip[$i]) < 0 Or Int($ip[$i]) > 255 Then Return False
    Next
    ; ---
    Return True
EndFunc