begin process at 2012 02 16 20:00:29
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Exécution

 > FAIRE UN PING SOUS DOS AVEC VB

FAIRE UN PING SOUS DOS AVEC VB


 Information sur la source

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

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Exécution Classé sous :ping, dos Niveau :Initié Date de création :15/05/1999 Vu :36 001

Auteur : Nix

Ecrire un message privé
Site perso
Ce membre participe au partage de revenus publicitaires
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

.


 Sources du même auteur

Source avec Zip Source avec une capture Source .NET (Dotnet) FAIRE UN PING (ICMP) EN VB 2005 (LE PLUS SIMPLEMENT DU MONDE...
IMPRIMER LE CONTENU D'UN RICHTEXTBOX
Source avec Zip Source avec une capture TESTEUR DE REGEX (REGULAR EXPRESSIONS)
Source avec Zip Source avec une capture FORCER LE REBOOT SOUS WINDOWS NT OU WINDOWS 2000 (REDÉMARRAG...
COMPTER LES MOTS DANS UNE CHAINE DE CARACTÈRE

 Sources de la même categorie

Source avec Zip CALCULATRICE par TPB
Source avec Zip Source .NET (Dotnet) PIERRE PAPIER CISEAUX par Ultrabytes
Source avec Zip Source avec une capture UN PATCH EN VB (V3) par PhoenixBytes
Source avec Zip Source .NET (Dotnet) [VB.NET 2008] EXECUTION MULTITHREAD DE PLUSIEURS FONCTION À ... par ShadowTzu
Source avec Zip Source avec une capture MULTITHREADING ACTIVEX par Philippe734

 Sources en rapport avec celle ci

Source avec Zip Source .NET (Dotnet) ENVOYEUR DE MAIL EN BATCH/DOS par Ant95
VBSCRIPT --> CONVERSION DE FICHIER TEXTE EN FICHIER EXCEL PA... par thorspark
Source avec Zip Source avec une capture PING (SOCKET MODE RAW) par EBArtSoft
Source avec Zip LCK **** GESTION DE PARC INFORMATIQUE par toonsy12
Source avec Zip PETIT LOGICIEL PERMETTANT DE SURVEILLER UNE LIAISON ADSL par noussibeau

Commentaires et avis

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

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

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 ?

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

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

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

Commentaire de EiNSTeiN le 28/12/2002 22:08:52

ya un command.com sous XP...

Commentaire de Taramino le 11/02/2003 11:31:07

très jolis source

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 !

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 ?

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?

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


Discussions en rapport avec ce code source dans le forum

ouvrir un exe dos dans une listboX [ par Tesla93 ] Comment faire pour ouvrire un exe dos dans uns liste box genre dans le prog en vb on tapeping 127.0.0.1 et sa nous affiche le resultat dans une listbo comme > sous DOS [ par mathieu57100 ] Bonjour,je voulais savoir si il était possible d'envoyer le résultat d'une commande DOS avec shell dans une variable.Sous DOS, si je fais par exemple Récupérer la reponse d'une commande dos avec vs2005 [ par Nikita0511 ] Bonjour à tous, je suis tout nouveau sur le forum du site et j'espere ne pas mettre tromper de thème, site tres sympas en tout cas.J'ai recherché tout cmd DOS TRACERT & PING dans applic VB [ par LeTech ] Bonjour à tous,je commencerai par féliciter toutes les personnes qui gèrent et qui apportent leurs connaissances à ce forum et qui le rendent très int URGENT : lire un fichier MS-DOS sous visual basic (UNICODE) [ par thierrydelepine ] bonjour,j'ai un fichier MS-DOS (créé en mode commandes MS-DOS avec la méthode EDIT) contenant des caractères accentués genre "é".comme ce fichier est commande dos dans un VBS [ par c0lt ] Bonjour,Comment fait on pour lancer un programme sous DOS par l'intermediaire d'un vbscript?MerciColt Fenetre DOS ds une fenetre MDI [ par aldebarre ] Bonjour, est-il possible d'avoir une fenetre console Dos ds une fentre MDISI oui comment faut -il faire??Merci d'avance leo Script "Visual Basic Script" sous DOS [ par beber49 ] Bonjour,Je suis désespéré, j'aimerai lancer un .vbs ss DOS et j'ose pas croire que c'est pas possible.J'ai essayé de copier cscript.Exe sur la disquet dos [ par VirusMan2 ] j'ai fait un prog qui test des connexion ip avec nbtsat masi j'ai pas le temps de voir le resultat que l'invite de commande se ferme !qu'est ce que je problème de visualiser contenue en dos d'une partition ntfs [ par bonami ] mes données sont en danger de perte j'ai l'ordinateur bloqué lors de démarrage de windows xp il ne veut pas faire récupération de win xp il me reste s


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,749 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales