AutoIt Français

Nouveau forum : http://www.autoitscript.fr/
 
AccueilFAQRechercherS'enregistrerMembresGroupesConnexionhttp://www.autoitscript.fr

Partagez | 
 

 testeur internet évolué - PingMaster_v1

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Crad-Vador
Membre


Nombre de messages : 23
Age : 30
Localisation : Clermont-Ferrand
Date d'inscription : 04/01/2007

MessageSujet: testeur internet évolué - PingMaster_v1   2007-01-04, 19:57

Voici une version plus évolué du testeur internet : PingMaster_v1

Les deux sont utiles (le premier est plus rapide mais le deuxième permet qu'on l'on dépanne un réseau de ne pas toujours relancé le premier à chaque test)

PingMaster en est à la première version, je compte l'améliorer en rajoutant un îcone, des images (ou des AVI), La possibilité de choisir le nombre de ping (1, 4, ou infini) avec bien sur un bouton pour arrêter le "pingage", et enfin la possibilité d'enregistrer l'adresse de la passerelle pour pas avoir à la retaper tout le temps

Je n'ai malheureusement pas le temps de mettre le code source maintenant, je le mettrai demain

en attendant, le code source et l'executable sont dispo dans un zip que voilà :[url=http://www.sharebigfile.com/file/51501/PingMasterV1.zip.html]PingMaster_V1[/url][url=http://www.sharebigfile.com/file/51501/PingMasterV1.zip.html][/url]
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://www.crad-vador.net
VooDoo
Modérateur
Modérateur


Nombre de messages : 161
Date d'inscription : 11/12/2006

MessageSujet: Re: testeur internet évolué - PingMaster_v1   2007-01-05, 01:53

original...mais pas besoin de mettre [b]Dim[/b] à chaque ligne ! Certaines variables sont implicitement declarées.

mais j'ai un probléme...l'adresse de mon routeeur est du type 192.168.x.x et apparement je ne peux pas m'y connecter :tongue:.

_________________
[img]http://img87.imageshack.us/img87/7941/autoit6oy.jpg[/img]
[url=http://autoit-fr.realbb.net/AutoIt-v3-c2/Entraide-f5/Regles-t39.htm][i]Lisez les règles ou soyez maudit ![/i][/url]
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Crad-Vador
Membre


Nombre de messages : 23
Age : 30
Localisation : Clermont-Ferrand
Date d'inscription : 04/01/2007

MessageSujet: Re: testeur internet évolué - PingMaster_v1   2007-01-05, 10:08

[quote:d5f3="VooDoo"]mais j'ai un probléme...l'adresse de mon routeeur est du type 192.168.x.x et apparement je ne peux pas m'y connecter :tongue:.[/quote]

Tiens c'est bizare, il te renvoie quoi comme erreur ?

Pour les [b]Dim [/b]sa vient de ma très petite expérience en c++ où il faut déclarer toutes les variables avant de les utilisé, c'est devenu une habitude et sa me permet de réperer les variables d'un seul coup d'oeil....
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://www.crad-vador.net
Crad-Vador
Membre


Nombre de messages : 23
Age : 30
Localisation : Clermont-Ferrand
Date d'inscription : 04/01/2007

MessageSujet: Re: testeur internet évolué - PingMaster_v1   2007-01-05, 10:49

Comme promis, voilà le code source du script (c'est quand même plus simple pour l'étudier que de devoir telecharger le zip)

#include <guiconstants.au3>
[code]
#include

;création du GUI
GUICreate("Menu Principal - PingMaster_v1",400,500)

;création du conteneur d'onglets
Dim $tabPrincipal = GUICtrlCreateTab(10,10,380,480)

;création de l'onglet Ping Passerelle
Dim $tabItemPG = GUICtrlCreateTabItem("Ping Passerelle")
GUICtrlSetState(-1,$GUI_SHOW)
GUICtrlCreateLabel("Entrez l'adresse IP de la passerelle (routeur, gateway, box...),",15,40,-1,-1,$SS_CENTER)
GUICtrlCreateLabel("Puis cliquez sur Ping.",15,60,-1,-1,$SS_CENTER)
Dim $inputIP = GUICtrlCreateInput("",15,100,180)
Dim $butPing1 = GUICtrlCreateButton("Ping",150,160,100)
Dim $areaPingStat1 = GUICtrlCreateEdit("----*Fenêtre de stats*----" & @CRLF,35,220,320,210,$ES_MULTILINE+$ES_READONLY+$ES_WANTRETURN+$ES_AUTOVSCROLL)

;création de l'onglet Ping Internet
Dim $tabitemPI = GUICtrlCreateTabItem("Ping Internet")
GUICtrlCreateLabel("Entrez l'URL d'un serveur web, puis cliquez sur Ping",15,40,-1,-1,$SS_CENTER)
Dim $inputURL = GUICtrlCreateInput("www.google.fr",15,100,250)
Dim $butPing2 = GUICtrlCreateButton("Ping",150,160,100)
Dim $areaPingStat2 = GUICtrlCreateEdit("----*Fenêtre de stats*----" & @CRLF,35,220,320,210,$ES_MULTILINE+$ES_READONLY+$ES_WANTRETURN+$ES_AUTOVSCROLL)

;création de l'onglet Ping Internet et Passerelle
Dim $tabItemP2 = GUICtrlCreateTabItem("Ping Internet et Passerelle")
GUICtrlCreateLabel("Entrez l'adresse IP de la passerelle puis l'URL du serveur web",15,40,-1,-1,$SS_CENTER)
Dim $inputIP2 = GUICtrlCreateInput("",15,75,180)
Dim $inputURL2 = GUICtrlCreateInput("www.google.fr",15,120,250)
Dim $butPing3 = GUICtrlCreateButton("Ping",150,160,100)
Dim $areaPingStat3 = GUICtrlCreateEdit("----*Fenêtre de stats*----" & @CRLF,35,220,320,210,$ES_MULTILINE+$ES_READONLY+$ES_WANTRETURN+$ES_AUTOVSCROLL)

GUICtrlCreateTabitem ("")

GUISetState ()

;écoute des messages
While 1
Dim $msg = GUIGetMsg()

Select
case $msg = $butPing1
$GIPA = GUICtrlRead($inputIP)
$pingGatewayResult = fPingGateway($GIPA)
GUICtrlSetData($areaPingStat1, $pingGatewayResult, Default)
Case $msg = $butPing2
$SURLA = GUICtrlRead($inputURL)
$pingServerResult = fPingServer($SURLA)
GUICtrlSetData($areaPingStat2, $pingServerResult, Default)
Case $msg = $butPing3
$IP = GUICtrlRead($inputIP2)
$URL = GUICtrlRead($inputURL2)
$pingAllResult = fPingAll($IP, $URL)
GUICtrlSetData($areaPingStat3, $pingAllResult, Default)
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
EndSelect
WEnd

;définition des fonctions

;définition de fPingGateway()
Func fPingGateway($value1)
Local $Ping = Ping($value1,250)
If $Ping Then
Local $ResultGood = "La passerelle est en ligne, roundtrip: " & $Ping & @CRLF
Return $ResultGood
Else
Local $ResultBad = "La passerelle est injoignable, code d'erreur: " & @error & @CRLF
Return $ResultBad
EndIf
EndFunc

;définition de fPingServer()
Func fPingServer($value2)
Local $Ping = Ping($value2,250)
If $Ping Then
Local $ResultGood = "Le serveur est en ligne, vous êtes connecter à internet, roundtrip: " & $Ping & @CRLF
Return $ResultGood
Else
Local $ResultBad = "Le serveur n'est pas joignable, code d'erreur: " & @error & @CRLF
Return $ResultBad
EndIf
EndFunc

;définition de fPingAll()
Func fPingAll($value3, $value4)
Local $PingIP = Ping($value3,250)
If $PingIP Then
Local $ResultGoodIP = "La passerelle est en ligne, roundtrip: " & $PingIP & @CRLF
Local $PingURL = Ping ($value4,250)
If $PingURL Then
Local $ResultGoodURL = "Le serveur est en ligne, vous êtes connecter à internet, roundtrip: " & $PingURL & @CRLF & @CRLF
Local $FinalResultGG = $ResultGoodIP & $ResultGoodURL
Return $FinalResultGG
Else
Local $ResultBadURL = "Le serveur n'est pas joignable, code d'erreur: " & @error & @CRLF
Local $FinalResultGB = $ResultGoodIP & $ResultBadURL
Return $FinalResultGB
EndIf
Else
Local $ResultBadIP = "La passerelle est injoignable, code d'erreur: " & @error & @CRLF & @CRLF
Return $ResultBadIP
EndIf
EndFunc
[/code]

attention, certaine ligne sont un peu longue n'oubliez pas de les remettre droit....:geek:

Bien sur vous pouvez modifier ce que vous voulez.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://www.crad-vador.net
TerminAdminAtor
Admin
Admin


Nombre de messages : 234
Date d'inscription : 22/10/2006

MessageSujet: Re: testeur internet évolué - PingMaster_v1   2007-01-07, 03:42

Merci pour ton script .

Comme VooDoo l'a déjà souligné en au3 tu n'as pas besoin de déclarer les variables elles sont 'auto'-déclarées.

Vois par toi même : enlève tous les Dim,et tout marche normalement.

Sinon je vais rien dire sur les habitudes du C++...:P

Petite paranthèse: le code de ce forum bloc les includes #include ,donc il faut les mettre de préférence juste avant le script,je l'ai édité chez toi.

[i]Sinon n'y a -t'il pas un moyen d'automatiser la détection de la passerelle ?[/i]
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://autoit-fr.realbb.net
Michel Claveau
Membre avancé


Nombre de messages : 61
Date d'inscription : 24/10/2006

MessageSujet: Re: testeur internet évolué - PingMaster_v1   2007-01-08, 11:52

Bonjour !

[quote][i]Sinon n'y a -t'il pas un moyen d'automatiser la détection de la passerelle ?[/i][/quote]

D'autant plus que, en DHCP, c'est souvent le routeur qui donne l'IP de la passerelle.

Donc, routeur inaccessible, pas de passerelle... sauf si un autre équipement (imprimante, caméra IP, serveur, WiFi du voisinnage, etc.) prend le relais ; la passerelle risque alors d'être foireuse.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Crad-Vador
Membre


Nombre de messages : 23
Age : 30
Localisation : Clermont-Ferrand
Date d'inscription : 04/01/2007

MessageSujet: Re: testeur internet évolué - PingMaster_v1   2007-01-08, 15:04

Pour la détection automatique de la passerelle, j'ai essayé @IPAdress'n', le premier me renvoi l'IP de mon poste, les autres me renvoi 0.0.0.0. Donc si quelqu'un peut me proposer un script, ou me mettre sur la voie....[img]http://illiweb.com/fa/i/smiles/icon_geek.png[/img]
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://www.crad-vador.net
Michel Claveau
Membre avancé


Nombre de messages : 61
Date d'inscription : 24/10/2006

MessageSujet: Re: testeur internet évolué - PingMaster_v1   2007-01-12, 03:08

Bonsoir !

Juste une piste, alors.
Le batch ci-dessous donne l'adresse IP de la passerelle courante :

[code]@echo off
for /F "usebackq tokens=1-5 delims=:" %%a in (`ipconfig ^|find "Passerelle"`) do (echo %%b)
[/code]

Attn, ça ne traite pas le cas (rare) des multiples passerelles ; de plus, en cas de défaut DHCP, on obtient 0.0.0.0
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Michel Claveau
Membre avancé


Nombre de messages : 61
Date d'inscription : 24/10/2006

MessageSujet: Re: testeur internet évolué - PingMaster_v1   2007-01-12, 03:11

Re !

Et, ça ne marche que sur un windows français. Pour u ne version anglaise, remplacer "Passerelle" par "Gateway".

Pour les versions en chinois, en araméen (syriaque moderne), ou en klingon, désolé, je ne sais pas...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Crad-Vador
Membre


Nombre de messages : 23
Age : 30
Localisation : Clermont-Ferrand
Date d'inscription : 04/01/2007

MessageSujet: Re: testeur internet évolué - PingMaster_v1   2007-01-12, 19:11

Arf lol, merci beaucoup à toi, je me suis cassé le c** pendant une semaine pour essayer de trouver une clé registre ou une variable d'environnement. Je test le batch tout de suite
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://www.crad-vador.net
Crad-Vador
Membre


Nombre de messages : 23
Age : 30
Localisation : Clermont-Ferrand
Date d'inscription : 04/01/2007

MessageSujet: Ping_Master_v1.1   2007-03-07, 21:03

Voilà comme promis j'ai mis à jour mon Ping Master :
j'ai rajouté la détection automatique de l'ip de la passerelle (routeur, 'box'.....) grâce à la fonction _Getip() contenu dans iNet.au3 (merci à Johan....)

[color=Red]#include[/color]
[color=Red]#include[/color]
;récupération de l'ip de la passerelle
[b]Dim[/b] [color=MediumBlue]$ipPasserelle[/color] [color=Green]=[/color] [b]_GetIP[/b] ( ) ;
;création du GUI
[b]GUICreate[/b] ( "Menu Principal + [b]PingMaster_v1"[/b] [color=Green],[/color] 400 [color=Green],[/color] 500 )
;création du conteneur d'onglets
[b]Dim[/b] [color=MediumBlue]$tabPrincipal[/color] [color=Green]=[/color] [b]GUICtrlCreateTab[/b] ( 10 [color=Green],[/color] 10 [color=Green],[/color] 380 [color=Green],[/color] 480 )
;création de l'onglet [b]Ping[/b] Passerelle
[b]Dim[/b] [color=MediumBlue]$tabItemPG[/color] [color=Green]=[/color] [b]GUICtrlCreateTabItem[/b] ( "[b]Ping[/b] Passerelle" )
[b]GUICtrlSetState[/b] ( + 1 [color=Green],[/color] [color=MediumBlue]$GUI_SHOW[/color] )
[b]GUICtrlCreateLabel[/b] ( "Entrez l'adresse IP de la passerelle ( routeur [color=Green],[/color] gateway [color=Green],[/color] box... ) [color=Green],[/color] " [color=Green],[/color] 15 [color=Green],[/color] 40 [color=Green],[/color] + 1 [color=Green],[/color] + 1 [color=Green],[/color] [color=MediumBlue]$SS_CENTER[/color] )
[b]GUICtrlCreateLabel[/b] ( "Puis cliquez sur [b]Ping."[/b] [color=Green],[/color] 15 [color=Green],[/color] 60 [color=Green],[/color] + 1 [color=Green],[/color] + 1 [color=Green],[/color] [color=MediumBlue]$SS_CENTER[/color] )
[b]Dim[/b] [color=MediumBlue]$inputIP[/color] [color=Green]=[/color] [b]GUICtrlCreateInput[/b] ( [color=MediumBlue]$ipPasserelle[/color] [color=Green],[/color] 15 [color=Green],[/color] 100 [color=Green],[/color] 180 )
[b]Dim[/b] [color=MediumBlue]$butPing1[/color] [color=Green]=[/color] [b]GUICtrlCreateButton[/b] ( "[b]Ping"[/b] [color=Green],[/color] 150 [color=Green],[/color] 160 [color=Green],[/color] 100 )
[b]Dim[/b] [color=MediumBlue]$areaPingStat1[/color] [color=Green]=[/color] [b]GUICtrlCreateEdit[/b] ( " + + + + *Fenêtre de stats* + + + + " [color=Green]&[/color] [color=Fuchsia]@CRLF[/color] [color=Green],[/color] 35 [color=Green],[/color] 220 [color=Green],[/color] 320 [color=Green],[/color] 210 [color=Green],[/color] [color=MediumBlue]$ES_MULTILINE[/color] + [color=MediumBlue]$ES_READONLY[/color] + [color=MediumBlue]$ES_WANTRETURN[/color] + [color=MediumBlue]$ES_AUTOVSCROLL[/color] )
;création de l'onglet [b]Ping[/b] [b]Internet[/b]
[b]Dim[/b] [color=MediumBlue]$tabitemPI[/color] [color=Green]=[/color] [b]GUICtrlCreateTabItem[/b] ( "[b]Ping[/b] [b]Internet"[/b] )
[b]GUICtrlCreateLabel[/b] ( "Entrez l'URL d'un serveur web [color=Green],[/color] puis cliquez sur [b]Ping"[/b] [color=Green],[/color] 15 [color=Green],[/color] 40 [color=Green],[/color] + 1 [color=Green],[/color] + 1 [color=Green],[/color] [color=MediumBlue]$SS_CENTER[/color] )
[b]Dim[/b] [color=MediumBlue]$inputURL[/color] [color=Green]=[/color] [b]GUICtrlCreateInput[/b] ( "www.google.fr" [color=Green],[/color] 15 [color=Green],[/color] 100 [color=Green],[/color] 250 )
[b]Dim[/b] [color=MediumBlue]$butPing2[/color] [color=Green]=[/color] [b]GUICtrlCreateButton[/b] ( "[b]Ping"[/b] [color=Green],[/color] 150 [color=Green],[/color] 160 [color=Green],[/color] 100 )
[b]Dim[/b] [color=MediumBlue]$areaPingStat2[/color] [color=Green]=[/color] [b]GUICtrlCreateEdit[/b] ( " + + + + *Fenêtre de stats* + + + + " [color=Green]&[/color] [color=Fuchsia]@CRLF[/color] [color=Green],[/color] 35 [color=Green],[/color] 220 [color=Green],[/color] 320 [color=Green],[/color] 210 [color=Green],[/color] [color=MediumBlue]$ES_MULTILINE[/color] + [color=MediumBlue]$ES_READONLY[/color] + [color=MediumBlue]$ES_WANTRETURN[/color] + [color=MediumBlue]$ES_AUTOVSCROLL[/color] )
;création de l'onglet [b]Ping[/b] [b]Internet[/b] et Passerelle
[b]Dim[/b] [color=MediumBlue]$tabItemP2[/color] [color=Green]=[/color] [b]GUICtrlCreateTabItem[/b] ( "[b]Ping[/b] [b]Internet[/b] et Passerelle" )
[b]GUICtrlCreateLabel[/b] ( "Entrez l'adresse IP de la passerelle puis l'URL du serveur web" [color=Green],[/color] 15 [color=Green],[/color] 40 [color=Green],[/color] + 1 [color=Green],[/color] + 1 [color=Green],[/color] [color=MediumBlue]$SS_CENTER[/color] )
[b]Dim[/b] [color=MediumBlue]$inputIP2[/color] [color=Green]=[/color] [b]GUICtrlCreateInput[/b] ( [color=MediumBlue]$ipPasserelle[/color] [color=Green],[/color] 15 [color=Green],[/color] 75 [color=Green],[/color] 180 )
[b]Dim[/b] [color=MediumBlue]$inputURL2[/color] [color=Green]=[/color] [b]GUICtrlCreateInput[/b] ( "www.google.fr" [color=Green],[/color] 15 [color=Green],[/color] 120 [color=Green],[/color] 250 )
[b]Dim[/b] [color=MediumBlue]$butPing3[/color] [color=Green]=[/color] [b]GUICtrlCreateButton[/b] ( "[b]Ping"[/b] [color=Green],[/color] 150 [color=Green],[/color] 160 [color=Green],[/color] 100 )
[b]Dim[/b] [color=MediumBlue]$areaPingStat3[/color] [color=Green]=[/color] [b]GUICtrlCreateEdit[/b] ( " + + + + *Fenêtre de stats* + + + + " [color=Green]&[/color] [color=Fuchsia]@CRLF[/color] [color=Green],[/color] 35 [color=Green],[/color] 220 [color=Green],[/color] 320 [color=Green],[/color] 210 [color=Green],[/color] [color=MediumBlue]$ES_MULTILINE[/color] + [color=MediumBlue]$ES_READONLY[/color] + [color=MediumBlue]$ES_WANTRETURN[/color] + [color=MediumBlue]$ES_AUTOVSCROLL[/color] )
[b]GUICtrlCreateTabitem[/b] ( "" )
[b]GUISetState[/b] ( )
;écoute des messages
[color=Green]While[/color] 1
[b]Dim[/b] [color=MediumBlue]$msg[/color] [color=Green]=[/color] [b]GUIGetMsg[/b] ( )
[b]Select[/b]
case [color=MediumBlue]$msg[/color] [color=Green]=[/color] [color=MediumBlue]$butPing1[/color]
[color=MediumBlue]$GIPA[/color] [color=Green]=[/color] [b]GUICtrlRead[/b] ( [color=MediumBlue]$inputIP[/color] )
[color=MediumBlue]$pingGatewayResult[/color] [color=Green]=[/color] f[b]PingGateway[/b] ( [color=MediumBlue]$GIPA[/color] )
[b]GUICtrlSetData[/b] ( [color=MediumBlue]$areaPingStat1[/color] [color=Green],[/color] [color=MediumBlue]$pingGatewayResult[/color] [color=Green],[/color] [b]Default[/b] )
Case [color=MediumBlue]$msg[/color] [color=Green]=[/color] [color=MediumBlue]$butPing2[/color]
[color=MediumBlue]$SURLA[/color] [color=Green]=[/color] [b]GUICtrlRead[/b] ( [color=MediumBlue]$inputURL[/color] )
[color=MediumBlue]$pingServerResult[/color] [color=Green]=[/color] f[b]PingServer[/b] ( [color=MediumBlue]$SURLA[/color] )
[b]GUICtrlSetData[/b] ( [color=MediumBlue]$areaPingStat2[/color] [color=Green],[/color] [color=MediumBlue]$pingServerResult[/color] [color=Green],[/color] [b]Default[/b] )
Case [color=MediumBlue]$msg[/color] [color=Green]=[/color] [color=MediumBlue]$butPing3[/color]
[color=MediumBlue]$IP[/color] [color=Green]=[/color] [b]GUICtrlRead[/b] ( [color=MediumBlue]$inputIP2[/color] )
[color=MediumBlue]$URL[/color] [color=Green]=[/color] [b]GUICtrlRead[/b] ( [color=MediumBlue]$inputURL2[/color] )
[color=MediumBlue]$pingAllResult[/color] [color=Green]=[/color] f[b]PingAll[/b] ( [color=MediumBlue]$IP[/color] [color=Green],[/color] [color=MediumBlue]$URL[/color] )
[b]GUICtrlSetData[/b] ( [color=MediumBlue]$areaPingStat3[/color] [color=Green],[/color] [color=MediumBlue]$pingAllResult[/color] [color=Green],[/color] [b]Default[/b] )
Case [color=MediumBlue]$msg[/color] [color=Green]=[/color] [color=MediumBlue]$GUI_EVENT_CLOSE[/color]
[b]ExitLoop[/b]
EndSelect
[color=Green]WEnd[/color]
;définition des fonctions
;définition de f[b]PingGateway[/b] ( )
[color=Green]Func[/color] f[b]PingGateway[/b] ( [color=MediumBlue]$value1[/color] )
Local [color=MediumBlue]$Ping[/color] [color=Green]=[/color] [b]Ping[/b] ( [color=MediumBlue]$value1[/color] [color=Green],[/color] 250 )
[color=Green]If[/color] [color=MediumBlue]$Ping[/color] [color=Green]Then[/color]
Local [color=MediumBlue]$ResultGood[/color] [color=Green]=[/color] "La passerelle est en ligne [color=Green],[/color] [b]roundtrip:[/b] " [color=Green]&[/color] [color=MediumBlue]$Ping[/color] [color=Green]&[/color] [color=Fuchsia]@CRLF[/color]
[color=Green]Return[/color] [color=MediumBlue]$ResultGood[/color]
[color=Green]Else[/color]
Local [color=MediumBlue]$ResultBad[/color] [color=Green]=[/color] "La passerelle est injoignable [color=Green],[/color] code d'erreur: " [color=Green]&[/color] [color=Fuchsia]@error[/color] [color=Green]&[/color] [color=Fuchsia]@CRLF[/color]
[color=Green]Return[/color] [color=MediumBlue]$ResultBad[/color]
[color=Green]EndIf[/color]
[color=Green]EndFunc[/color]
;définition de f[b]PingServer[/b] ( )
[color=Green]Func[/color] f[b]PingServer[/b] ( [color=MediumBlue]$value2[/color] )
Local [color=MediumBlue]$Ping[/color] [color=Green]=[/color] [b]Ping[/b] ( [color=MediumBlue]$value2[/color] [color=Green],[/color] 250 )
[color=Green]If[/color] [color=MediumBlue]$Ping[/color] [color=Green]Then[/color]
Local [color=MediumBlue]$ResultGood[/color] [color=Green]=[/color] "Le serveur est en ligne [color=Green],[/color] vous êtes connecter à [b]internet[/b] [color=Green],[/color] [b]roundtrip:[/b] " [color=Green]&[/color] [color=MediumBlue]$Ping[/color] [color=Green]&[/color] [color=Fuchsia]@CRLF[/color]
[color=Green]Return[/color] [color=MediumBlue]$ResultGood[/color]
[color=Green]Else[/color]
Local [color=MediumBlue]$ResultBad[/color] [color=Green]=[/color] "Le serveur n'est pas joignable [color=Green],[/color] code d'erreur: " [color=Green]&[/color] [color=Fuchsia]@error[/color] [color=Green]&[/color] [color=Fuchsia]@CRLF[/color]
[color=Green]Return[/color] [color=MediumBlue]$ResultBad[/color]
[color=Green]EndIf[/color]
[color=Green]EndFunc[/color]
;définition de f[b]PingAll[/b] ( )
[color=Green]Func[/color] f[b]PingAll[/b] ( [color=MediumBlue]$value3[/color] [color=Green],[/color] [color=MediumBlue]$value4[/color] )
Local [color=MediumBlue]$PingIP[/color] [color=Green]=[/color] [b]Ping[/b] ( [color=MediumBlue]$value3[/color] [color=Green],[/color] 250 )
[color=Green]If[/color] [color=MediumBlue]$PingIP[/color] [color=Green]Then[/color]
Local [color=MediumBlue]$ResultGoodIP[/color] [color=Green]=[/color] "La passerelle est en ligne [color=Green],[/color] [b]roundtrip:[/b] " [color=Green]&[/color] [color=MediumBlue]$PingIP[/color] [color=Green]&[/color] [color=Fuchsia]@CRLF[/color]
Local [color=MediumBlue]$PingURL[/color] [color=Green]=[/color] [b]Ping[/b] ( [color=MediumBlue]$value4[/color] [color=Green],[/color] 250 )
[color=Green]If[/color] [color=MediumBlue]$PingURL[/color] [color=Green]Then[/color]
Local [color=MediumBlue]$ResultGoodURL[/color] [color=Green]=[/color] "Le serveur est en ligne [color=Green],[/color] vous êtes connecter à [b]internet[/b] [color=Green],[/color] [b]roundtrip:[/b] " [color=Green]&[/color] [color=MediumBlue]$PingURL[/color] [color=Green]&[/color] [color=Fuchsia]@CRLF[/color] [color=Green]&[/color] [color=Fuchsia]@CRLF[/color]
Local [color=MediumBlue]$FinalResultGG[/color] [color=Green]=[/color] [color=MediumBlue]$ResultGoodIP[/color] [color=Green]&[/color] [color=MediumBlue]$ResultGoodURL[/color]
[color=Green]Return[/color] [color=MediumBlue]$FinalResultGG[/color]
[color=Green]Else[/color]
Local [color=MediumBlue]$ResultBadURL[/color] [color=Green]=[/color] "Le serveur n'est pas joignable [color=Green],[/color] code d'erreur: " [color=Green]&[/color] [color=Fuchsia]@error[/color] [color=Green]&[/color] [color=Fuchsia]@CRLF[/color]
Local [color=MediumBlue]$FinalResultGB[/color] [color=Green]=[/color] [color=MediumBlue]$ResultGoodIP[/color] [color=Green]&[/color] [color=MediumBlue]$ResultBadURL[/color]
[color=Green]Return[/color] [color=MediumBlue]$FinalResultGB[/color]
[color=Green]EndIf[/color]
[color=Green]Else[/color]
Local [color=MediumBlue]$ResultBadIP[/color] [color=Green]=[/color] "La passerelle est injoignable [color=Green],[/color] code d'erreur: " [color=Green]&[/color] [color=Fuchsia]@error[/color] [color=Green]&[/color] [color=Fuchsia]@CRLF[/color] [color=Green]&[/color] [color=Fuchsia]@CRLF[/color]
[color=Green]Return[/color] [color=MediumBlue]$ResultBadIP[/color]
[color=Green]EndIf[/color]
[color=Green]EndFunc[/color]
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://www.crad-vador.net
Crad-Vador
Membre


Nombre de messages : 23
Age : 30
Localisation : Clermont-Ferrand
Date d'inscription : 04/01/2007

MessageSujet: Ping_Master_v1.1   2007-03-07, 21:04

Voilà comme promis j'ai mis à jour mon Ping Master :
j'ai rajouté la détection automatique de l'ip de la passerelle (routeur, 'box'.....) grâce à la fonction _Getip() contenu dans iNet.au3 (merci à Johan....)
[color=Red]#include "<"guiconstants.au3">"[/color]
[color=Red]#include "<"iNet.au3">"[/color]
;récupération de l'ip de la passerelle
[b]Dim[/b] [color=MediumBlue]$ipPasserelle[/color] [color=Green]=[/color] [b]_GetIP[/b] ( ) ;
;création du GUI
[b]GUICreate[/b] ( "Menu Principal + [b]PingMaster_v1"[/b] [color=Green],[/color] 400 [color=Green],[/color] 500 )
;création du conteneur d'onglets
[b]Dim[/b] [color=MediumBlue]$tabPrincipal[/color] [color=Green]=[/color] [b]GUICtrlCreateTab[/b] ( 10 [color=Green],[/color] 10 [color=Green],[/color] 380 [color=Green],[/color] 480 )
;création de l'onglet [b]Ping[/b] Passerelle
[b]Dim[/b] [color=MediumBlue]$tabItemPG[/color] [color=Green]=[/color] [b]GUICtrlCreateTabItem[/b] ( "[b]Ping[/b] Passerelle" )
[b]GUICtrlSetState[/b] ( + 1 [color=Green],[/color] [color=MediumBlue]$GUI_SHOW[/color] )
[b]GUICtrlCreateLabel[/b] ( "Entrez l'adresse IP de la passerelle ( routeur [color=Green],[/color] gateway [color=Green],[/color] box... ) [color=Green],[/color] " [color=Green],[/color] 15 [color=Green],[/color] 40 [color=Green],[/color] + 1 [color=Green],[/color] + 1 [color=Green],[/color] [color=MediumBlue]$SS_CENTER[/color] )
[b]GUICtrlCreateLabel[/b] ( "Puis cliquez sur [b]Ping."[/b] [color=Green],[/color] 15 [color=Green],[/color] 60 [color=Green],[/color] + 1 [color=Green],[/color] + 1 [color=Green],[/color] [color=MediumBlue]$SS_CENTER[/color] )
[b]Dim[/b] [color=MediumBlue]$inputIP[/color] [color=Green]=[/color] [b]GUICtrlCreateInput[/b] ( [color=MediumBlue]$ipPasserelle[/color] [color=Green],[/color] 15 [color=Green],[/color] 100 [color=Green],[/color] 180 )
[b]Dim[/b] [color=MediumBlue]$butPing1[/color] [color=Green]=[/color] [b]GUICtrlCreateButton[/b] ( "[b]Ping"[/b] [color=Green],[/color] 150 [color=Green],[/color] 160 [color=Green],[/color] 100 )
[b]Dim[/b] [color=MediumBlue]$areaPingStat1[/color] [color=Green]=[/color] [b]GUICtrlCreateEdit[/b] ( " + + + + *Fenêtre de stats* + + + + " [color=Green]&[/color] [color=Fuchsia]@CRLF[/color] [color=Green],[/color] 35 [color=Green],[/color] 220 [color=Green],[/color] 320 [color=Green],[/color] 210 [color=Green],[/color] [color=MediumBlue]$ES_MULTILINE[/color] + [color=MediumBlue]$ES_READONLY[/color] + [color=MediumBlue]$ES_WANTRETURN[/color] + [color=MediumBlue]$ES_AUTOVSCROLL[/color] )
;création de l'onglet [b]Ping[/b] [b]Internet[/b]
[b]Dim[/b] [color=MediumBlue]$tabitemPI[/color] [color=Green]=[/color] [b]GUICtrlCreateTabItem[/b] ( "[b]Ping[/b] [b]Internet"[/b] )
[b]GUICtrlCreateLabel[/b] ( "Entrez l'URL d'un serveur web [color=Green],[/color] puis cliquez sur [b]Ping"[/b] [color=Green],[/color] 15 [color=Green],[/color] 40 [color=Green],[/color] + 1 [color=Green],[/color] + 1 [color=Green],[/color] [color=MediumBlue]$SS_CENTER[/color] )
[b]Dim[/b] [color=MediumBlue]$inputURL[/color] [color=Green]=[/color] [b]GUICtrlCreateInput[/b] ( "www.google.fr" [color=Green],[/color] 15 [color=Green],[/color] 100 [color=Green],[/color] 250 )
[b]Dim[/b] [color=MediumBlue]$butPing2[/color] [color=Green]=[/color] [b]GUICtrlCreateButton[/b] ( "[b]Ping"[/b] [color=Green],[/color] 150 [color=Green],[/color] 160 [color=Green],[/color] 100 )
[b]Dim[/b] [color=MediumBlue]$areaPingStat2[/color] [color=Green]=[/color] [b]GUICtrlCreateEdit[/b] ( " + + + + *Fenêtre de stats* + + + + " [color=Green]&[/color] [color=Fuchsia]@CRLF[/color] [color=Green],[/color] 35 [color=Green],[/color] 220 [color=Green],[/color] 320 [color=Green],[/color] 210 [color=Green],[/color] [color=MediumBlue]$ES_MULTILINE[/color] + [color=MediumBlue]$ES_READONLY[/color] + [color=MediumBlue]$ES_WANTRETURN[/color] + [color=MediumBlue]$ES_AUTOVSCROLL[/color] )
;création de l'onglet [b]Ping[/b] [b]Internet[/b] et Passerelle
[b]Dim[/b] [color=MediumBlue]$tabItemP2[/color] [color=Green]=[/color] [b]GUICtrlCreateTabItem[/b] ( "[b]Ping[/b] [b]Internet[/b] et Passerelle" )
[b]GUICtrlCreateLabel[/b] ( "Entrez l'adresse IP de la passerelle puis l'URL du serveur web" [color=Green],[/color] 15 [color=Green],[/color] 40 [color=Green],[/color] + 1 [color=Green],[/color] + 1 [color=Green],[/color] [color=MediumBlue]$SS_CENTER[/color] )
[b]Dim[/b] [color=MediumBlue]$inputIP2[/color] [color=Green]=[/color] [b]GUICtrlCreateInput[/b] ( [color=MediumBlue]$ipPasserelle[/color] [color=Green],[/color] 15 [color=Green],[/color] 75 [color=Green],[/color] 180 )
[b]Dim[/b] [color=MediumBlue]$inputURL2[/color] [color=Green]=[/color] [b]GUICtrlCreateInput[/b] ( "www.google.fr" [color=Green],[/color] 15 [color=Green],[/color] 120 [color=Green],[/color] 250 )
[b]Dim[/b] [color=MediumBlue]$butPing3[/color] [color=Green]=[/color] [b]GUICtrlCreateButton[/b] ( "[b]Ping"[/b] [color=Green],[/color] 150 [color=Green],[/color] 160 [color=Green],[/color] 100 )
[b]Dim[/b] [color=MediumBlue]$areaPingStat3[/color] [color=Green]=[/color] [b]GUICtrlCreateEdit[/b] ( " + + + + *Fenêtre de stats* + + + + " [color=Green]&[/color] [color=Fuchsia]@CRLF[/color] [color=Green],[/color] 35 [color=Green],[/color] 220 [color=Green],[/color] 320 [color=Green],[/color] 210 [color=Green],[/color] [color=MediumBlue]$ES_MULTILINE[/color] + [color=MediumBlue]$ES_READONLY[/color] + [color=MediumBlue]$ES_WANTRETURN[/color] + [color=MediumBlue]$ES_AUTOVSCROLL[/color] )
[b]GUICtrlCreateTabitem[/b] ( "" )
[b]GUISetState[/b] ( )
;écoute des messages
[color=Green]While[/color] 1
[b]Dim[/b] [color=MediumBlue]$msg[/color] [color=Green]=[/color] [b]GUIGetMsg[/b] ( )
[b]Select[/b]
case [color=MediumBlue]$msg[/color] [color=Green]=[/color] [color=MediumBlue]$butPing1[/color]
[color=MediumBlue]$GIPA[/color] [color=Green]=[/color] [b]GUICtrlRead[/b] ( [color=MediumBlue]$inputIP[/color] )
[color=MediumBlue]$pingGatewayResult[/color] [color=Green]=[/color] f[b]PingGateway[/b] ( [color=MediumBlue]$GIPA[/color] )
[b]GUICtrlSetData[/b] ( [color=MediumBlue]$areaPingStat1[/color] [color=Green],[/color] [color=MediumBlue]$pingGatewayResult[/color] [color=Green],[/color] [b]Default[/b] )
Case [color=MediumBlue]$msg[/color] [color=Green]=[/color] [color=MediumBlue]$butPing2[/color]
[color=MediumBlue]$SURLA[/color] [color=Green]=[/color] [b]GUICtrlRead[/b] ( [color=MediumBlue]$inputURL[/color] )
[color=MediumBlue]$pingServerResult[/color] [color=Green]=[/color] f[b]PingServer[/b] ( [color=MediumBlue]$SURLA[/color] )
[b]GUICtrlSetData[/b] ( [color=MediumBlue]$areaPingStat2[/color] [color=Green],[/color] [color=MediumBlue]$pingServerResult[/color] [color=Green],[/color] [b]Default[/b] )
Case [color=MediumBlue]$msg[/color] [color=Green]=[/color] [color=MediumBlue]$butPing3[/color]
[color=MediumBlue]$IP[/color] [color=Green]=[/color] [b]GUICtrlRead[/b] ( [color=MediumBlue]$inputIP2[/color] )
[color=MediumBlue]$URL[/color] [color=Green]=[/color] [b]GUICtrlRead[/b] ( [color=MediumBlue]$inputURL2[/color] )
[color=MediumBlue]$pingAllResult[/color] [color=Green]=[/color] f[b]PingAll[/b] ( [color=MediumBlue]$IP[/color] [color=Green],[/color] [color=MediumBlue]$URL[/color] )
[b]GUICtrlSetData[/b] ( [color=MediumBlue]$areaPingStat3[/color] [color=Green],[/color] [color=MediumBlue]$pingAllResult[/color] [color=Green],[/color] [b]Default[/b] )
Case [color=MediumBlue]$msg[/color] [color=Green]=[/color] [color=MediumBlue]$GUI_EVENT_CLOSE[/color]
[b]ExitLoop[/b]
EndSelect
[color=Green]WEnd[/color]
;définition des fonctions
;définition de f[b]PingGateway[/b] ( )
[color=Green]Func[/color] f[b]PingGateway[/b] ( [color=MediumBlue]$value1[/color] )
Local [color=MediumBlue]$Ping[/color] [color=Green]=[/color] [b]Ping[/b] ( [color=MediumBlue]$value1[/color] [color=Green],[/color] 250 )
[color=Green]If[/color] [color=MediumBlue]$Ping[/color] [color=Green]Then[/color]
Local [color=MediumBlue]$ResultGood[/color] [color=Green]=[/color] "La passerelle est en ligne [color=Green],[/color] [b]roundtrip:[/b] " [color=Green]&[/color] [color=MediumBlue]$Ping[/color] [color=Green]&[/color] [color=Fuchsia]@CRLF[/color]
[color=Green]Return[/color] [color=MediumBlue]$ResultGood[/color]
[color=Green]Else[/color]
Local [color=MediumBlue]$ResultBad[/color] [color=Green]=[/color] "La passerelle est injoignable [color=Green],[/color] code d'erreur: " [color=Green]&[/color] [color=Fuchsia]@error[/color] [color=Green]&[/color] [color=Fuchsia]@CRLF[/color]
[color=Green]Return[/color] [color=MediumBlue]$ResultBad[/color]
[color=Green]EndIf[/color]
[color=Green]EndFunc[/color]
;définition de f[b]PingServer[/b] ( )
[color=Green]Func[/color] f[b]PingServer[/b] ( [color=MediumBlue]$value2[/color] )
Local [color=MediumBlue]$Ping[/color] [color=Green]=[/color] [b]Ping[/b] ( [color=MediumBlue]$value2[/color] [color=Green],[/color] 250 )
[color=Green]If[/color] [color=MediumBlue]$Ping[/color] [color=Green]Then[/color]
Local [color=MediumBlue]$ResultGood[/color] [color=Green]=[/color] "Le serveur est en ligne [color=Green],[/color] vous êtes connecter à [b]internet[/b] [color=Green],[/color] [b]roundtrip:[/b] " [color=Green]&[/color] [color=MediumBlue]$Ping[/color] [color=Green]&[/color] [color=Fuchsia]@CRLF[/color]
[color=Green]Return[/color] [color=MediumBlue]$ResultGood[/color]
[color=Green]Else[/color]
Local [color=MediumBlue]$ResultBad[/color] [color=Green]=[/color] "Le serveur n'est pas joignable [color=Green],[/color] code d'erreur: " [color=Green]&[/color] [color=Fuchsia]@error[/color] [color=Green]&[/color] [color=Fuchsia]@CRLF[/color]
[color=Green]Return[/color] [color=MediumBlue]$ResultBad[/color]
[color=Green]EndIf[/color]
[color=Green]EndFunc[/color]
;définition de f[b]PingAll[/b] ( )
[color=Green]Func[/color] f[b]PingAll[/b] ( [color=MediumBlue]$value3[/color] [color=Green],[/color] [color=MediumBlue]$value4[/color] )
Local [color=MediumBlue]$PingIP[/color] [color=Green]=[/color] [b]Ping[/b] ( [color=MediumBlue]$value3[/color] [color=Green],[/color] 250 )
[color=Green]If[/color] [color=MediumBlue]$PingIP[/color] [color=Green]Then[/color]
Local [color=MediumBlue]$ResultGoodIP[/color] [color=Green]=[/color] "La passerelle est en ligne [color=Green],[/color] [b]roundtrip:[/b] " [color=Green]&[/color] [color=MediumBlue]$PingIP[/color] [color=Green]&[/color] [color=Fuchsia]@CRLF[/color]
Local [color=MediumBlue]$PingURL[/color] [color=Green]=[/color] [b]Ping[/b] ( [color=MediumBlue]$value4[/color] [color=Green],[/color] 250 )
[color=Green]If[/color] [color=MediumBlue]$PingURL[/color] [color=Green]Then[/color]
Local [color=MediumBlue]$ResultGoodURL[/color] [color=Green]=[/color] "Le serveur est en ligne [color=Green],[/color] vous êtes connecter à [b]internet[/b] [color=Green],[/color] [b]roundtrip:[/b] " [color=Green]&[/color] [color=MediumBlue]$PingURL[/color] [color=Green]&[/color] [color=Fuchsia]@CRLF[/color] [color=Green]&[/color] [color=Fuchsia]@CRLF[/color]
Local [color=MediumBlue]$FinalResultGG[/color] [color=Green]=[/color] [color=MediumBlue]$ResultGoodIP[/color] [color=Green]&[/color] [color=MediumBlue]$ResultGoodURL[/color]
[color=Green]Return[/color] [color=MediumBlue]$FinalResultGG[/color]
[color=Green]Else[/color]
Local [color=MediumBlue]$ResultBadURL[/color] [color=Green]=[/color] "Le serveur n'est pas joignable [color=Green],[/color] code d'erreur: " [color=Green]&[/color] [color=Fuchsia]@error[/color] [color=Green]&[/color] [color=Fuchsia]@CRLF[/color]
Local [color=MediumBlue]$FinalResultGB[/color] [color=Green]=[/color] [color=MediumBlue]$ResultGoodIP[/color] [color=Green]&[/color] [color=MediumBlue]$ResultBadURL[/color]
[color=Green]Return[/color] [color=MediumBlue]$FinalResultGB[/color]
[color=Green]EndIf[/color]
[color=Green]Else[/color]
Local [color=MediumBlue]$ResultBadIP[/color] [color=Green]=[/color] "La passerelle est injoignable [color=Green],[/color] code d'erreur: " [color=Green]&[/color] [color=Fuchsia]@error[/color] [color=Green]&[/color] [color=Fuchsia]@CRLF[/color] [color=Green]&[/color] [color=Fuchsia]@CRLF[/color]
[color=Green]Return[/color] [color=MediumBlue]$ResultBadIP[/color]
[color=Green]EndIf[/color]
[color=Green]EndFunc[/color]
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://www.crad-vador.net
ani
Modérateur
Modérateur


Nombre de messages : 563
Date d'inscription : 23/01/2007

MessageSujet: Re: testeur internet évolué - PingMaster_v1   2007-03-23, 18:03

si pas essayer avec wmi (Win32_NetworkAdapterConfiguration)

pour le ping je ferait juste çeux-ci

[i][color=#009933];***********************************************
;; Tester si on est connecté a internet
;***********************************************
[/color][/i][b][color=#0000ff]Dim[/color][/b] [b][color=#aa0000]$InetActive[/color][/b] [b][color=#ff0000]=[/color][/b] [b][i][color=#000090]Ping[/color][/i][color=#ff0000]([/color][color=#9999cc]"www.google.com"[/color][color=#ff0000])
[/color][/b][b][color=#0000ff]If[/color][/b] [b][color=#0000ff]Not[/color][/b] [b][color=#aa0000]$InetActive[/color][/b] [b][color=#ff0000]>[/color][/b] [b][i][color=#ac00a9]0[/color][/i][/b] [b][color=#0000ff]Then
[/color][/b][b][i][color=#000090]MsgBox[/color][/i][color=#ff0000]([/color][i][color=#ac00a9]4112[/color][/i][color=#ff0000],[/color][/b] [b][color=#9999cc]"Aucune connection !"[/color][color=#ff0000],[/color][/b] [b][color=#9999cc]"Vérifier que vos cables sont bien branché:p"[/color][color=#ff0000])
[/color][/b][b][color=#0000ff]Exit
[/color][/b][b][color=#0000ff]EndIf[/color][/b]
[i][color=#009933];***********************************************[/color][/i]

Toujours avec wmi Win32_PingStatus

je viend de tester, je reçoit ceux-ci comme erreur
[color=#0000ff]La passerelle est injoignable , code d'erreur: 1[/color]
[color=#0000ff][/color]
[color=#0000ff]Le serveur est en ligne , vous êtes connecter à internet , roundtrip: 38 << qu'est-ce que c'est le numero ?[/color]
[color=#0000ff][/color]
[color=black][b]j'en avais un mais comme un ... tout le dossier fut delete :§ faut que je le refasse (base wmi)[/b][/color]
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
ani
Modérateur
Modérateur


Nombre de messages : 563
Date d'inscription : 23/01/2007

MessageSujet: Re: testeur internet évolué - PingMaster_v1   2007-03-25, 12:51

[img]G:\error.JPG[/img]
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: testeur internet évolué - PingMaster_v1   Aujourd'hui à 16:30

Revenir en haut Aller en bas
 
testeur internet évolué - PingMaster_v1
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» agenda sur internet
» Fenêtres qui s'ouvrent toutes seules sur internet sous IE et Mozzilla
» [Résolu] Comment créer un site Internet gratuit
» virus de navigateur internet
» J'ai Pas Internet Sur Toutes Les Session

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
AutoIt Français :: AutoIt v3 :: Scripts-
Sauter vers: