[..] Simple ping

[Pwet]

Bonjour,

Je viens vous demander un exemple de script auto-it.
Un script avec un champ où l'on peu mettre un nom d'ordinateur + un bouton qui permet de le pinguer.
Cela vous parait peut être trop simple mais pour un non-initié, cela est déja beaucoup...
Si possible que se soit une fenêtre de commande qui apparaisse et non une fenêtre windows...

Merci d'avance.

Oups dsl pour les règles

[ZDS]

Respecte tout d'abord les règles de présentation du forum.

[Pwet]

Dsl je le refait avec la balise [..] pour le sujet (j'espère qu'il ne va pas falloir écrire une fonction pour pouvoir poster sur le ce forum sinon ce n'est pas gagné...)

Bonjour,

Je viens vous demander un exemple de script auto-it.
Un script avec un champ où l'on peu mettre un nom d'ordinateur + un bouton qui permet de le pinguer.
Cela vous parait peut être trop simple mais pour un non-initié, cela est déja beaucoup...
Si possible que se soit une fenêtre de commande qui apparaisse et non une fenêtre windows...

Merci d'avance.

[ZDS]

Edite le premier message pour mettre [..]. Ca ne sert à rien de le faire sur une réponse.

[vincentr]

Voici un script

► Afficher le texte

$Adress = InputBox("PING Adresse IP", "Saisissez l'@ IP")
if $Adress <> "" Then ShellExecute("ping","-t " & $Adress, @WindowsDir)

[mikell]

Gérer une fenêtre cmd avec autoit c'est pas génial (d'ailleurs les fenêtres cmd c'est pas génial tout court)
Si tu y tiens à cette fenêtre alors vaut mieux te faire un batch
Sinon

► Afficher le texte

Code : Tout sélectionner

GuiCreate("Ping", 300, 50)
$input = GuiCtrlCreateInput("www.google.fr", 10, 10, 100, 20)
$btn = GuiCtrlCreateButton("Ping", 120, 10, 50, 20)
GuiSetState()

While 1
$msg = GuiGetMsg()
If $msg = -3 Then Exit
If $msg = $btn Then
    Do
        $ping = Ping(GuiCtrlRead($input), 500)
    Until $ping<>0
    GuiCtrlCreateLabel($ping, 180, 10, 50, 20, 1)
    GUICtrlSetBkColor(-1, 0xffffff) 
EndIf
Wend

[Eldes]

Je propose ceci qui peut paraitre simpliste:

Code : Tout sélectionner

&add=("ip","Entrez l adresse ip:")
send("{#r}")
send("cmd")
send($add)
 

Personnellement je ne suis pas fan des solutions d emuler un clavier puisque le résultat va dépendre des ressources de votre système.
Je m explique ma solution fonctionnera correctement si il n y as pas de processus encoure, si vous arriver dans ce cas la il faudra rajouter sleep afin de temporiser le programmme et qu il soit exécuter correctement.

A mon avis la commande Ping d autoit est bien plus pratique.

En espérant avoir pu vous etre utile

[Pwet]

RE - dsl je dois être blond... Voici mon code qui ne fonctionne pas ... Merci d'avance

Code : Tout sélectionner

[code=text]#[/Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Ping", 363, 125, 192, 124)
Global $Input1 = GUICtrlCreateInput("Input1", 40, 32, 177, 25)
Global $Button1 = GUICtrlCreateButton("Button1", 232, 32, 57, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit

 EndSwitch
WEnd

;
; Action
;
While 1
$ip = $Input1
if $Ip <> "" Then ShellExecute("ping","-t " & $Ip, @WindowsDir)]
WEnd

[Jerome]

Coucou,


Normal qu'il ne fonctionne pas, vous mettez une boucle infinie (donc il n'en sortira jamais) et après cette boucle infinie, vous en remettez une avec votre code => IMPOSSIBLE.



Jérôme

[zeshrek]

les uns et les autres, vous etes au courrant qu'autoit a une fonction ping ?

Code : Tout sélectionner

$Adress = InputBox("PING Adresse IP", "Saisissez l'@ IP")
if $Adress <> "" Then 
$ping=ping($Adress)
msgbox(0,"Resultat du ping",$ping)
endif

[XeniOne]

Bonjour zeshrek,
merci mais ton code ne correspond pas avec la demande, il veut pinguer une machine par son nom, pas par son adresse (le ping permettrait justement d'obtenir son IP).
Il a déjà une GUI, un champs pour écrire le nom de la machine et juste à coté un bouton "ping" ("bouton1" il me semble)
Ciao !

[Pwet]

Bonjour zeshrek,
merci mais ton code ne correspond pas avec la demande, il veut pinguer une machine par son nom, pas par son adresse (le ping permettrait justement d'obtenir son IP).
Il a déjà une GUI, un champs pour écrire le nom de la machine et juste à coté un bouton "ping" ("bouton1" il me semble)
Ciao !

Yesss c'est exactement ce que je demande - Merci quand même des réponses mais je cherche encore...

[Jerome]

Coucou,


Premier code pour résoudre le nom de post avec l'ip

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiIPAddress.au3>
#include <WindowsConstants.au3>
#include <iNet.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("IP", 317, 83, 192, 124)
$Button1 = GUICtrlCreateButton("GO", 216, 32, 75, 25)
$IPAddress1 = _GUICtrlIpAddress_Create($Form1, 56, 32, 130, 21)
_GUICtrlIpAddress_Set($IPAddress1, "0.0.0.0")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            _LetsGo()
    EndSwitch
WEnd


Func _LetsGo()
    $IP = _GUICtrlIpAddress_Get($IPAddress1)
    TCPStartup()
    If Ping($IP, 50) > 0 Then ; il y a une reponse de l'host
        $sResult = _TCPIpToName($IP, 0)
        MsgBox("","Nom", $sResult)
    EndIf


EndFunc

Second code pour résoudre l'ip avec le nom de poste

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <iNet.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("IP", 317, 83, 192, 124)
$Button1 = GUICtrlCreateButton("GO", 216, 32, 75, 25)
$Label1 = GUICtrlCreateInput("Nom de post", 56, 32, 130, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            _LetsGo()
    EndSwitch
WEnd


Func _LetsGo()
    $name = GUICtrlRead($Label1)
    TCPStartup()
    If Ping($name, 50) > 0 Then ; il y a une reponse de l'host
        $sResult = TCPNameToIP($name)
        MsgBox("","Nom", $sResult)
    EndIf


EndFunc

Cordialement,


Jérôme

[Tlem]

Si le but est d'avoir l'IP de la machine à partir du nom, il y a tout simplement TCPNameToIP() !!!

[Jerome]

Si le but est d'avoir l'IP de la machine à partir du nom, il y a tout simplement TCPNameToIP() !!!

Cf mon code

[Tlem]

Heuu voui, j'ai pas cliqué assez vite pour envoyer (j'étais au téléphone) et après, j'ai pas contrôlé que quelqu'un avait poster entre temps.

[Pwet]

Je suis tjs là --- en fait le ping ou la résolution de nom sont des exemples.
C'est juste que je n'arrive pas à récupérer et à utiliser un variable rentrer dans un champ...
Vu que je ne suis pas devellopeur mais technicien...je m'exprime mal...
Regarder l'image... ce n'est pas une fenêtre qui s'ouvre demandant le nom du pc, c'est un champ...

[Tlem]

Ceci fait partie du B.A-BA de la gestion graphique sous AutoIt.

Le champs dont vous parlez à un identifiant.
Vous avez dut le créer sous cette forme :

Code : Tout sélectionner

Global $Input = GUICtrlCreateInput(" ", 100, 140, 120, 20)

Ici, l'identifiant du contrôle est : $Input

Il suffit d'utiliser plus loin dans le code, la commande

Code : Tout sélectionner

$ContenuDeInput = GUICtrlRead($Input)

pour lire le contenu de ce champs.

Pensez à lire la documentation, car elle fournit des exemples relativement complet et vous évitera des questions de base comme celle-ci.

[Jerome]

C'est juste que je n'arrive pas à récupérer et à utiliser un variable rentrer dans un champ...

Code : Tout sélectionner

$Label1 = GUICtrlCreateInput("Nom de post", 56, 32, 130, 21)
$name = GUICtrlRead($Label1)

WTF ?

J'ai l'impression que vous n'avez même pas regardé ce que j'ai fait ....

[mikell]

J'ai l'impression que vous n'avez même pas regardé ce que j'ai fait ....

Le téléphone, quelle plaie ....