AutoIt Français

Bonjour,

j'ai une fonction de vérification d'adresse ip, qui ne me donne pas entière satisfaction.

func adresseIPcheck()
Local $ip1=@IPAddress1
If StringInStr($ip1,"x.X.Y.") Then
    
    DriveMapAdd ( "M:", @homeshare , 8 )                ;Map répertoire privé de l'utilisateur

else
    MsgBox(64, "","connexion vpn en cours d'etablissement : ", 1 )

EndIf
EndFunc

cette fonction doit être exécuter de façon à être sûre que mon adresse corresponde à un model (une classe ): 192.168.2.X
"x" n'est pas important.

une fois cette vérification, le script exécutera des taches particulières :

-mappage des lecteurs réseaux.

A l'heure actuel, je dois lancer le script deux fois pour obtenir mes lecteurs réseaux :

1- 1ere exécution l'application se lance et s'exécute.
2-deuxième exécution : l'application est relancée, je l'annule, et enfin mes lecteurs réseaux apparaissent.

l'idée serait de rajouter un "while" mais ça dépasse de loin mes compétence ....
j'ai déjà du mal a faire en sorte que mon script se ferme tout seul après exécution ...

:

while ( adresse ip n'est pas de type A.B.C.*)
Attendre que ip soit de type A.B.C.*
Wend

Bon ben je retourne à mes essais, et merci de votre aide par avance

Bonjour,

Je sais pas si je t'ai bien compris. Mais j'ai retouché un petit bout de code. Dit moi si cela répond à tes attentes :

Code : Tout sélectionner

adresseIPcheck() ;On appelle la fonction adresseIPcheck au lancement
AdlibEnable("adresseIPcheck", 1000) ; On appelle la fonction adresseIPcheck toutes les secondes

func adresseIPcheck()
Local $ip1=@IPAddress1

If StringInStr($ip1,"192.168.2.") Then
DriveMapAdd ( "M:", @homeshare , 8 )                ;Map répertoire privé de l'utilisateur
Exit ; l'ip recherchée a été trouvée, fin du programme.
else
    MsgBox(64, "","connexion vpn en cours d'etablissement : ", 1 )

EndIf
EndFunc



WHile 1
sleep(100) ; boucle pour laisser la fonction adlibenable appeler la fonction adresseIPcheck
WEnd

Bonjour ET surtout merci !!

exactement ce qu'il me fallait pour me faire avancer.

Merci encore!

Bien que ne suit pas un très grand amateur d'expression régulière, personnellement, j'aurais fait plus simple :

Code : Tout sélectionner

$IP = "192.168.1.5"

If StringRegExp($IP, '(192.168.1.\d)', 0) Then
    MsgBox(64, "Info", "Adresse IP valide : " & @CRLF & $IP)
Else
    MsgBox(16, "Erreur", "Adresse IP non valide : " & @CRLF & $IP)
EndIf

hello !

je vais garder ce code, il va me permettre de faire des tests !

MERCI

AutoIt Français

[R] Vérification adresse ip via une fonction

[R] Vérification adresse ip via une fonction

Re: [..]verification adresse ip via une fonction

Re: [..]verification adresse ip via une fonction

Re: [R] Vérification adresse ip via une fonction

Re: [R] Vérification adresse ip via une fonction