Faire un ping sous dos avec vb

4/5 (20 avis)

Snippet vu 39 223 fois - Téléchargée 102 fois


Contenu du snippet

Comment puis-je éxecuter un ping sous MS-DOS

Mettez cette fonction dans un Module :

Source / Exemple :


Function PingDos(AdIP As String)
    Dim Commande As String
    Dim Resultat As Long
    Dim Ad_a_tester As String
    Dim Handle As Long
    Dim Fichier As String
    Dim Ligne As String
    Dim EstOK As Boolean
    Dim t As Long

    Fichier = App.Path & "resultat.txt"
    Ad_a_tester = AdIP
    Commande = "c:\command.com /cping " & Ad_a_tester & " >" & Fichier

    Resultat = Shell(doCmd, vbMinimizedNoFocus)

    t = Timer
    Do
        If Timer - t > 5 Then Exit Do
        DoEvents
    Loop
    Do
        DoEvents
        Err = 0
        On Error Resume Next
        If FileLen(Fichier) <> 0 And Err = 0 Then Exit Do
    Loop
    EstOK = True
    Handle = FreeFile
    Open Fichier For Input As #Handle
        While Not EOF(Handle)
            Input #Handle, Ligne
            If InStr(Ligne, "d'attente de la demande") <> 0 Then
                EstOK = False
            End If
        Wend
    Close #Handle
    Kill Fichier
    If EstOK = True Then
        MsgBox (Ad_a_tester & " Trouvé !")
    Else
        MsgBox (Ad_a_tester & "Non trouvé")
    End If
End Function

' Pour l'executer :
PingDos("127,0,0,1")

Conclusion :


.

A voir également

Ajouter un commentaire Commentaires
Evignon Messages postés 1 Date d'inscription lundi 11 décembre 2006 Statut Membre Dernière intervention 6 juin 2008
6 juin 2008 à 14:47
sur il suffit de rechercher le fichier Ping.exe et de le copier dans votre répertoire d'applicatif et de lancer la commande du type

commande=app.path & "\ping.exe .....
naoualbtsmair2006 Messages postés 1 Date d'inscription mercredi 31 mai 2006 Statut Membre Dernière intervention 5 juin 2006
5 juin 2006 à 15:32
j'est tous fais pour se programme mais l'execution me donne "erreur d'execution '53'fichier introuvable " le débogage sélectionne la ligne:
Resultat = Shell(docmd, vbMinimizedNoFocus)
povez vous m'aider?
deubet Messages postés 2 Date d'inscription lundi 29 septembre 2003 Statut Membre Dernière intervention 22 juillet 2005
29 sept. 2003 à 15:23
euh, un truc à la con : et si je veux mettre ce code sur pleins de windows qui parlent pas tous francais, je dois à chaque fois remodifier le source avec la langue locale ?
cs_Kernox Messages postés 34 Date d'inscription samedi 5 avril 2003 Statut Membre Dernière intervention 10 juillet 2005
10 août 2003 à 22:42
Snif ! y me faut la meme chose mais pour 98 se !

Win98 n'est pas mort !
Taramino Messages postés 18 Date d'inscription dimanche 12 janvier 2003 Statut Membre Dernière intervention 30 mars 2003
11 févr. 2003 à 11:31
très jolis source
Afficher les 20 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.