begin process at 2008 07 04 00:57:21
1 204 456 membres
3 nouveaux aujourd'hui
14 114 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

FAIRE UN PING SOUS DOS AVEC VB


Information sur la source

Catégorie :Exécution Classé sous : ping, dos Niveau : Initié Date de création : 15/05/1999 Vu : 29 622

Note :
6 / 10 - par 6 personnes
6,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (12)
Ajouter un commentaire et/ou une note


Description

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

Mettez cette fonction dans un Module :

Source

  • 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")
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

.
  • signaler à un administrateur
    Commentaire de pokbizou le 06/05/2002 17:02:17

    pour l'erreur 53 sous win2k, j'ai mis la ligne de commande dans un fichier ".bat" et j'execute le fichier ".bat":
    shell ("mon_fichier.bat",vbMinimizedNoFocus)
    seul problème, il faut maintenant attendre que la commande s'execute et faire attendre le prog vb qui lui n'attends pas(ce qui est génant lorsqu'on fait un ping de 1500 octets)
    Pokbizou

  • signaler à un administrateur
    Commentaire de pokbizou le 07/05/2002 10:00:24

    pour attendre l'execution du ping sous dos avant de continuer le prog vb, aller voir:
    http://www.vbfrance.com/article.asp?Val=372
    pokbizou

  • signaler à un administrateur
    Commentaire de acidtoxik le 12/05/2002 18:45:16

    en fait g peut-etre une amélioration à faire :
    tu fais un ping 'adress_ip' &gt; fichier.txt à l'aide de la commande SHELL !
    qu'en penses-tu ?

  • signaler à un administrateur
    Commentaire de acidtoxik le 12/05/2002 18:47:06

    genre :
    ip=inputbox("adresse ip?")
    shell "ping " & ip & " &gt; fichier.txt" et là tu va relire le fichier pour le réafficher après à l'ecran ! comme ça tu as bcp plus d'info sur le ping ! nan ???

  • signaler à un administrateur
    Commentaire de pokbizou le 15/05/2002 11:16:39

    à acidtoxik:
    la redirection de fichier ne fonctionne pas en utilisant shell sous win2k, c'est pour cela que j'ai mis la commande dans un fichier .bat
    pokbizou

  • signaler à un administrateur
    Commentaire de iubito le 30/08/2002 21:29:11

    ouais dans shell("ping ... &gt; resultat.txt") ça marche pa :(
    et pour command.com, sous nt, 2k & je suppose xp, ça s'appelle cmd.exe !!

  • signaler à un administrateur
    Commentaire de EiNSTeiN le 28/12/2002 22:08:52

    ya un command.com sous XP...

  • signaler à un administrateur
    Commentaire de Taramino le 11/02/2003 11:31:07

    très jolis source

  • signaler à un administrateur
    Commentaire de Kernox le 10/08/2003 22:42:45

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

    Win98 n'est pas mort !

  • signaler à un administrateur
    Commentaire de deubet le 29/09/2003 15:23:38

    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 ?

  • signaler à un administrateur
    Commentaire de naoualbtsmair2006 le 05/06/2006 15:32:35

    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?

  • signaler à un administrateur
    Commentaire de Evignon le 06/06/2008 14:47:14

    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 .....

Ajouter un commentaire

Pub



Appels d'offres

Snippets en rapport

CalendriCode

Juillet 2008
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Téléchargements

Boutique

Boutique de goodies CodeS-SourceS