Faire un ping sous dos avec vb

Soyez le premier à donner votre avis sur cette source.

Snippet vu 38 910 fois - Téléchargée 99 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

Messages postés
1
Date d'inscription
lundi 11 décembre 2006
Statut
Membre
Dernière intervention
6 juin 2008

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 .....
Messages postés
1
Date d'inscription
mercredi 31 mai 2006
Statut
Membre
Dernière intervention
5 juin 2006

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?
Messages postés
2
Date d'inscription
lundi 29 septembre 2003
Statut
Membre
Dernière intervention
22 juillet 2005

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 ?
Messages postés
34
Date d'inscription
samedi 5 avril 2003
Statut
Membre
Dernière intervention
10 juillet 2005

Snif ! y me faut la meme chose mais pour 98 se !

Win98 n'est pas mort !
Messages postés
18
Date d'inscription
dimanche 12 janvier 2003
Statut
Membre
Dernière intervention
30 mars 2003

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.