[R] Ping + ARP

Aide et conseils concernant AutoIt et ses outils.
Règles du forum
.
Répondre
africanism
Niveau 4
Niveau 4
Messages : 85
Enregistré le : mar. 24 juin 2008 20:05
Status : Hors ligne

[R] Ping + ARP

#1

Message par africanism »

Bonjour a tous
Voila j'ai besoin de votre aide
alors je voudrais faire un truc du genre
un popup qui me demande une ip
ensuite je veut quelle ping cette ip ,apres le ping il face un arp et le resulta ecrit dans un fichier texte .

j'ai commence un script mais je suis perdu

Merci pour votre aide

Code : Tout sélectionner

#include <Constants.au3>
#include <GUIConstants.au3>

#include <Constants.au3>
$Ping = InputBox('Adresse Ip', "IP de imp")
$verif = Ping($Ping)
$foo = Run("arp -a " & $Ping, @SystemDir, @SW_HIDE, $STDIN_CHILD + $STDOUT_CHILD)
$Msg = GUIGetMsg()
$line = StdoutRead($foo)
SplashTextOn("Line read", $line, -1, -1, -1, -1, 0, "", 20)
Sleep(3000)
SplashOff()
Modifié en dernier par africanism le jeu. 10 sept. 2009 16:38, modifié 3 fois.
Haut
Avatar du membre
Tlem
Site Admin
Site Admin
Messages : 11798
Enregistré le : ven. 20 juil. 2007 21:00
Localisation : Bordeaux
Status : Hors ligne

Re: [..] Ping + ARP

#2

Message par Tlem »

Pour récupérer le résultat de la commande ARP (ou toute autre commande DOS), regardez plutôt l'exemple de l'aide de StdoutRead
Thierry

Rechercher sur le forum ----- Les règles du forum
Le "ça ne marche pas" est une conséquence commune découlant de beaucoup trop de raisons potentielles ...

Une idée ne peut pas appartenir à quelqu'un. (Albert Jacquard) tiré du documentaire "Copié n'est pas volé".
Haut
africanism
Niveau 4
Niveau 4
Messages : 85
Enregistré le : mar. 24 juin 2008 20:05
Status : Hors ligne

Re: [..] Ping + ARP

#3

Message par africanism »

merci pour ta reponse mais disons que le suis perdu
Haut
Avatar du membre
timmalos
Niveau 11
Niveau 11
Messages : 1970
Enregistré le : dim. 18 mai 2008 15:16
Status : Hors ligne

Re: [..] Ping + ARP

#4

Message par timmalos »

Peut etre que ceci peut t'aider:

Code : Tout sélectionner

#include <GuiConstantsEx.au3>
#include <GuiIPAddress.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>

$Debug_IP = False ; Check ClassName being passed to IPAddress functions, set to True and use a handle to another control to see it work

Global $hIPAddress,$msg,$texte = ""

_Main()

Func _Main()
    Local $hgui

    $hgui = GUICreate("IP Ping et Arg", 400, 500)
    $hPing = GUICtrlCreateButton("Ping",205,10,40,25)
    $hArg = GUICtrlCreateButton("Arg",260,10,40,25)
    $hRes = GUICtrlCreateEdit("",10,40,380,450)
    GUICtrlSetFont($hRes, 9, 400, 0, "Courier New")

    $hIPAddress = _GUICtrlIpAddress_Create ($hgui, 45, 10,125,25)
    GUISetState(@SW_SHOW)
    _GUICtrlIpAddress_Set ($hIPAddress, "1.1.192.168")

    ; Wait for user to close GUI
    While 1
         $msg = GUIGetMsg()
         Switch $msg
            Case $GUI_EVENT_CLOSE
                Exit
            Case $hPing
                $foo=Run(@ComSpec & " /k " & 'ping "'&_GUICtrlIpAddress_Get($hIPAddress)&'"', "", @SW_HIDE,$STDOUT_CHILD)
                GUICtrlSetData($hRes,"--------------------------------------"&@CRLF & _
                "----------Veuillez Patienter----------"&@CRLF & _
                "--------------------------------------"&@CRLF & _
                "Ping de l'ip "&_GUICtrlIpAddress_Get($hIPAddress)&" en cours"&@CRLF& _
                "--------------------------------------"&@CRLF & _
                "----------Veuillez Patienter----------"&@CRLF & _
                "--------------------------------------"&@CRLF )
                While 1
                    $line = StdoutRead($foo,false,true)
                    If @error Then ExitLoop
                    GUICtrlSetData($hRes,GuictrlRead($hRes)&BinaryToString($line,4))
                    Sleep(500)
                Wend


            Case $hArg
                $foo = Run("arp -a " & _GUICtrlIpAddress_Get($hIPAddress), @SystemDir, @SW_HIDE, $STDOUT_CHILD)
                GUICtrlSetData($hRes,"--------------------------------------"&@CRLF & _
                "----------Veuillez Patienter----------"&@CRLF & _
                "--------------------------------------"&@CRLF & _
                "Arp de l'ip "&_GUICtrlIpAddress_Get($hIPAddress)&" en cours"&@CRLF& _
                "--------------------------------------"&@CRLF & _
                "----------Veuillez Patienter----------"&@CRLF & _
                "--------------------------------------"&@CRLF )
                While 1
                    $line = StdoutRead($foo,false,true)
                    If @error Then ExitLoop
                    GUICtrlSetData($hRes,GuictrlRead($hRes)&BinaryToString($line,4))
                    Sleep(50)
                Wend
        EndSwitch
         Sleep(10)
    WEnd

EndFunc   ;==>_Main
 
Haut
africanism
Niveau 4
Niveau 4
Messages : 85
Enregistré le : mar. 24 juin 2008 20:05
Status : Hors ligne

Re: [..] Ping + ARP

#5

Message par africanism »

merci pour votre aide

voila j'ai reussi a faire ce que je voulais
maintenant je voudrais faire en sorte que quand je clique sur ok dans la fenetre MAC ADRESSE ca me relance la fenetre ip
et si je clique sur la croix ca ferme l'applis.

pouvez vous m'aider ?

Merci a tous
voici mon code

Code : Tout sélectionner

#include <Constants.au3>
#include <GUIConstants.au3>

#include <Constants.au3>
$Ping = InputBox('Adresse Ip', "IP de imp")
$verif = Ping($Ping)
$Test = Run("ping " & $Ping, @SystemDir, @SW_HIDE, $STDIN_CHILD + $STDOUT_CHILD)
$foo = Run("arp -a " & $Ping, @SystemDir, @SW_HIDE, $STDIN_CHILD + $STDOUT_CHILD)
$Msg = GUIGetMsg()
$line = StdoutRead($foo)
MsgBox(4096, "MAC ADRESSE", $line, 0)
Exit
Haut
kay69
Niveau 2
Niveau 2
Messages : 27
Enregistré le : jeu. 03 sept. 2009 14:56
Status : Hors ligne

Re: [..] Ping + ARP

#6

Message par kay69 »

C'est ce que tu cherchais ?

Code : Tout sélectionner

#include <Constants.au3>
#include <GUIConstants.au3>
#include <Constants.au3>

While 1
    $Ping = InputBox('Adresse Ip', "IP de imp", " ")
    If $ping = "" Then Exit
    $verif = Ping($Ping)
    $Test = Run("ping " & $Ping, @SystemDir, @SW_HIDE, $STDIN_CHILD + $STDOUT_CHILD)
    $foo = Run("arp -a " & $Ping, @SystemDir, @SW_HIDE, $STDIN_CHILD + $STDOUT_CHILD)
    $Msg = GUIGetMsg()
    $line = StdoutRead($foo)
    $box = MsgBox(4096, "MAC ADRESSE", $line, 0)
WEnd
Haut
africanism
Niveau 4
Niveau 4
Messages : 85
Enregistré le : mar. 24 juin 2008 20:05
Status : Hors ligne

Re: [..] Ping + ARP

#7

Message par africanism »

parfait mais peut ton fermer le script en cliquant sur la fenêtre de résulta mac adresse plutôt que ip ?
Haut
kay69
Niveau 2
Niveau 2
Messages : 27
Enregistré le : jeu. 03 sept. 2009 14:56
Status : Hors ligne

Re: [..] Ping + ARP

#8

Message par kay69 »

Avec une msgbox comme celle ci dessous oui sinon non.

Code : Tout sélectionner

#include <Constants.au3>
#include <GUIConstants.au3>

#include <Constants.au3>
While 1
    $Ping = InputBox('Adresse Ip', "IP de imp", " ")
    If $ping = "" Then Exit
    $verif = Ping($Ping)
    $Test = Run("ping " & $Ping, @SystemDir, @SW_HIDE, $STDIN_CHILD + $STDOUT_CHILD)
    $foo = Run("arp -a " & $Ping, @SystemDir, @SW_HIDE, $STDIN_CHILD + $STDOUT_CHILD)
    $Msg = GUIGetMsg()
    $line = StdoutRead($foo)
    $box = MsgBox(4101, "MAC ADRESSE", $line, 0)
    If $box = 2 Then Exit
WEnd
Haut
africanism
Niveau 4
Niveau 4
Messages : 85
Enregistré le : mar. 24 juin 2008 20:05
Status : Hors ligne

Re: [R] Ping + ARP

#9

Message par africanism »

Merci parfait.
Haut
africanism
Niveau 4
Niveau 4
Messages : 85
Enregistré le : mar. 24 juin 2008 20:05
Status : Hors ligne

Re: [R] Ping + ARP

#10

Message par africanism »

desole encore moi
comment je peut ecrit les info dans un fichier texte ?

voici ce que j'ai fait mais ca ne donne rien

Code : Tout sélectionner

#include <Constants.au3>
#include <GUIConstants.au3>

#include <Constants.au3>
While 1
    $Ping = InputBox('Adresse Ip', "IP de imp", " ")
    If $Ping = "" Then Exit
    $verif = Ping($Ping)
    $Test = Run("ping " & $Ping, @SystemDir, @SW_HIDE, $STDIN_CHILD + $STDOUT_CHILD)
    $foo = Run("arp -a " & $Ping, @SystemDir, @SW_HIDE, $STDIN_CHILD + $STDOUT_CHILD)
    $Msg = GUIGetMsg()
    $line = StdoutRead($foo)
    $box = MsgBox(4101, "MAC ADRESSE", $line, 0)
    FileWriteLine("d:\mac.txt", "" & GUICtrlRead($line))
    If $box = 2 Then Exit
WEnd
Haut
africanism
Niveau 4
Niveau 4
Messages : 85
Enregistré le : mar. 24 juin 2008 20:05
Status : Hors ligne

Re: [..] Ping + ARP

#11

Message par africanism »

c'est good j'ai trouve
voici mon code

Code : Tout sélectionner

#include <Constants.au3>
#include <GUIConstants.au3>
#include <File.au3>

#include <Constants.au3>
$file = FileOpen("d:\mac.txt", 1)
While 1
    $Ping = InputBox('Adresse Ip', "IP de imp", " ")
    If $Ping = "" Then Exit
    $verif = Ping($Ping)
    $Test = Run("ping " & $Ping, @SystemDir, @SW_HIDE, $STDIN_CHILD + $STDOUT_CHILD)
    $foo = Run("arp -a " & $Ping, @SystemDir, @SW_HIDE, $STDIN_CHILD + $STDOUT_CHILD)
    $Msg = GUIGetMsg()
    $line = StdoutRead($foo)
    $box = MsgBox(4101, "MAC ADRESSE", $line, 0)
    _FileWriteToLine("D:\mac.txt", 1, "", 0)
    _FileWriteToLine("D:\mac.txt", 2, "" & $line, 0)
    FileClose($file)
    If $box = 2 Then Exit
WEnd
Haut
Répondre

Retourner vers « Aide Générale »