tester le ping d'une adresse internet

Question

Bonjour je voudrais savoir si il est possible de d&#233;velloper un petit soft en VB6. Qui nous renseigne sur l'activit&#233; d'un site (si il est accesible ou non).

Par exemple, l'id&#233;al serait une fonction qui prend comme param&#232;tre d'entr&#233;e une URL au format string (genre "www.google.fr") et qui renvoie un "1" ou un "0" en fonction de l'&#233;tat du site.

Renfield · Answer

tu peux utiliser les APIs InternetOpen et InternetConnect

ou bien utiliser un objet WScript.Shell pour lancer la commande ping

Renfield
Admin CodeS-SourceS - MVP Visual Basic

Renfield · Answer

ou, plus simplement, un Winsock, qui tenterait une ouverture de port...

Renfield
Admin CodeS-SourceS - MVP Visual Basic

PhilocheMan · Answer

si tu veux vraiment passer par un ping :

shell "ping www.tonsite.com >testping.txt"

puis tu ouvres le fichier testping.txt dans ton code afin de v&#233;rifier si la r&#233;ponse est OK (tu peux m&#234;me retouner le d&#233;lai de r&#233;ponse si ca te chante )

Renfield · Answer

un fichier text :o pas besoin ^^

(pipe, ou r&#233;cup&#233;ration de la sortie du shell, via l'objet WScript.Shell)

Renfield
Admin CodeS-SourceS - MVP Visual Basic

PhilocheMan · Answer

Désolé M'sieur l'Admin... c'est mon côté "bucheron" qui ressort... tout à la hache Ou bien des remontées de ~~gasoil~~... QuickBasic Pis d'abord, j'aime pas les vbs...

Renfield · Answer

j'ai pas parl&#233; d'utiliser un vbs...

mais pour la forme :

Set oShell = CreateObject("WScript.Shell")
 Set oScriptExec = oShell.Exec("ping -n 1 -w 0 " & sDNS)
sBuffer = oScriptExec.StdOut.ReadAll

sortit de &#231;a, sBuffer va contenir la sortie de la commande ping, sur le serveur d&#233;crit dans sDNS

Renfield
Admin CodeS-SourceS - MVP Visual Basic

cs_snake57 · Answer

Ok d'accord mais vous auriez pas un exemple un peu plus concret de ce que je pourrais faire?

De tte les instructions que vous sitez j'en connait aucunne lol.

Renfield · Answer

que veux tu que l'on fasse de plus ? un zip ? lol

Renfield
Admin CodeS-SourceS - MVP Visual Basic

cs_snake57 · Answer

Non quand m&#234;me pas lol.

Mais bon tu pourrais m'expliquer les lignes du code que tu propose stp?

Vu que je le comprends pas je peux pas m'en servir.

Renfield · Answer

'# Notre cible
sDNS = "www.google.com"

'# je cr&#233;&#233; un objet de type WScript.Shell
Set oShell = CreateObject("WScript.Shell")

'# Je lance la commande ping, sur mon DNS (voir la doc, pour les parametres -n et -w)
'# Je r&#233;cup&#232;re au passage un objet qui est li&#233; a mon processus appel&#233;
 Set oScriptExec = oShell.Exec("ping -n 1 -w 0 " & sDNS)

'# Je peux, par exemple, m'en servir pour r&#233;cup&#233;rer (ici dans sBuffer) le texte renvoy&#233; par ping...
sBuffer = oScriptExec.StdOut.ReadAll

si tu veux des d&#233;tails, sur les membres, etc, la doc est l&#224; pour (MSDN)

Renfield
Admin CodeS-SourceS - MVP Visual Basic

cs_JMO · Answer

Bonsoir,

Exemple &#224; d&#233;velopper

Dim WshShell, obj, Command, Result, Temp, FileName, File
Set obj = WScript.CreateObject("Scripting.FileSystemObject")
Set WshShell=WScript.CreateObject("WScript.Shell")
FileName=GetTempFile("command.txt")


Result = Ping()


Function Ping()
    Command = "%COMSPEC% /C ipconfig.exe > %TEMP%\command.txt"
    Result = WshShell.Run(Command,0,True)
    Temp = obj.GetSpecialFolder(2).Path
    Set File = obj.OpenTextFile(FileName)
    Ping = file.ReadAll
    file.Close
    obj.DeleteFile FileName,True


End Function



Function GetTempFile(File)
GetTempFile=WshShell.ExpandEnvironmentStrings("%TEMP%") & "" & File
End Function


Set WshNetwork = WScript.CreateObject("WScript.Network")
MsgBox("Domaine= " & WshNetwork.UserDomain & " - Nom ordinateur= " & WshNetwork.ComputerName &_
        " - Nom utilisateur= " & WshNetwork.UserName & Result)

Renfield · Answer

quatres facons de faire un ping :

http://www.vbfrance.com/code.aspx?ID=36588

Renfield
Admin CodeS-SourceS - MVP Visual Basic

Tester le ping d'une adresse internet

12 réponses

Discussions similaires