FAIRE UN PING SOUS DOS AVEC VB
Pir@tor2000
-
9 janv. 2001 à 14:56
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
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
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/57-faire-un-ping-sous-dos-avec-vb
https://codes-sources.commentcamarche.net/source/57-faire-un-ping-sous-dos-avec-vb
6 juin 2008 à 14:47
commande=app.path & "\ping.exe .....
5 juin 2006 à 15:32
Resultat = Shell(docmd, vbMinimizedNoFocus)
povez vous m'aider?
29 sept. 2003 à 15:23
10 août 2003 à 22:42
Win98 n'est pas mort !
11 févr. 2003 à 11:31
28 déc. 2002 à 22:08
30 août 2002 à 21:29
et pour command.com, sous nt, 2k & je suppose xp, ça s'appelle cmd.exe !!
15 mai 2002 à 11:16
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
12 mai 2002 à 18:47
ip=inputbox("adresse ip?")
shell "ping " & ip & " > 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 ???
12 mai 2002 à 18:45
tu fais un ping 'adress_ip' > fichier.txt à l'aide de la commande SHELL !
qu'en penses-tu ?
7 mai 2002 à 10:00
http://www.vbfrance.com/article.asp?Val=372
pokbizou
6 mai 2002 à 17:02
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
31 juil. 2001 à 15:52
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 & "
esultat.txt"
Ad_a_tester = AdIP
Commande = "c:command.com /cping " & Ad_a_tester & " >" & Fichier
Resultat = Shell(Commande, 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 = False
Handle = FreeFile
Open Fichier For Input As #Handle
While Not EOF(Handle)
Input #Handle, Ligne
If InStr(Ligne, "R" & Chr(130) & "ponse de " & Ad_a_tester & " : octets=") <> 0 Then
EstOK = True
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
-==Crazy/Man==-
PS: noté que le back-slash ne fonctionne pas sur le systeme de post ( du moins chez moi sa m'apparait pas ))
31 juil. 2001 à 15:22
il faut lire
Fichier = App.Path & ""back-slash"resultat.txt"
-==Crazy/Man==-
PS: désole por les précedant post
31 juil. 2001 à 15:17
Fichier = App.Path & "
esultat.txt"
et non
Fichier = App.Path & "esultat.txt"
(voila que je cree des bug moi meme
31 juil. 2001 à 15:16
Fichier = App.Path & "resultat.txt"
par
Fichier = App.Path & "
esultat.txt"
sinon ton fichier texte ce retrouvera a la racine de ton disque dur
@+ ( jusqu'au prochain bugging ) :-)
31 juil. 2001 à 14:38
pour la resoudre remplacer la ligne :
Resultat = Shell(doCmd, vbMinimizedNoFocus)
par
Resultat = Shell(Commande, vbMinimizedNoFocus)
en plus si vous voulez ping une adresse IP il faut savoir la taper . une adresse IP est du type:
XXX.XXX.XXX.XXX (noté le point )
et non pas du type :
YYY,YYY,YYY,YYY (note la virgule )
Sinon c n bon code dans l'ensemble ;-)
11 juil. 2001 à 22:51
par la code "Resultat = Shell(doCmd, vbMinimizedNoFocus)
Voudriez m'aider de chercher la solution.
Merci Beaucoup.
4 mars 2001 à 02:23
9 janv. 2001 à 14:56