Newsgroup: it.comp.lang.visual-basic
Titolo: Fare un ping col Visual Basic!

Qualcuno potrebbe indicarmi un modo semplice (se c'e') per effettuare un
ping verso un host per verificarne la disponibilita', all'interno di un
programma scritto in VB?
Grazie.
Ho trovato qualcosa che fa uso di icmp.dll ma mi e' sembrato un po'
complesso, vorrei semplicemente crearmi una istruzione che mi crea un ping e
mi ritorna true oppure false.
Grazie 1000.
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.683 / Virus Database: 445 - Release Date: 12/05/2004

 Grazie 1000.
non e' proprio semplicissimo, ma trovi tutto il codice in
www.mvps.org/vbnet
cerca ping
j.

 mi ritorna true oppure false.
Non conosco funzioni che lo facciano automaticamente, cmq in modo piuttosto
banale potresti semplicemente fare
Shell("ping hostdaverificare >c:\pom-ping.txt")
Poi aprirlo e guardarti l'ouput. Non e' sicurissimo, ma e' semplice e veloce
(del tipo che se non devi usarlo per applicazioni commerciali va piu' che
bene)
Cmq, tieni conto che oggi come oggi il Ping non e' nemmeno piu' affidabile.
Un'host potrebbe essere disponibilissimo a sessioni di ogni tipo, eppero'
non rispondere MAI ai ping...

 Shell("ping hostdaverificare >c:\pom-ping.txt")
ROTFL!
_____________________________________________
James Tiberius Kirk, matricola SC 937-076 CEC
  Nato a Riverside, nello Iowa, USA, Terra
            il 1277.1 (26/03/2233)

 non rispondere MAI ai ping...
La tua idea e' simpatica :-)
L'applicazione non e' commerciale, voglio semplicemente realizzare un
piccolo demone per il live-update di un software che distribuiamo.
So bene che molti sistemi non rispondono alle richieste icmp, ma il server
in questione e' il mio quindi no problem :-)
Approfitto per ringraziare te e gli altri per le risposte.
Ciao.


c:\.... non produce risultati. Ho provato anche 2>c:\.... ma ninete :-(


> c:\.... non produce risultati. Ho provato anche 2>c:\.... ma ninete :-(
Usa ShellExecute =)
www.allapi.net
hth,
Lokar
-- 
Sito Comune: 
http://www.it-lang-vb.net/
Manifesto: 
http://www.it-lang-vb.net/docs/Manifesto.txt
Statuto: 
http://www.it-lang-vb.net/docs/Statuto.txt
UGIdotNET - 
http://www.ugidotnet.org

 >c:\.... non produce risultati. Ho provato anche 2>c:\.... ma ninete :-(
FERMO!
Due secondi e ti passo la soluzione, un momento please.

 > >c:\.... non produce risultati. Ho provato anche 2>c:\.... ma ninete :-(
Dicevo...
Non ti da' l'output semplicemente perche' NON ha un output. Sembra ridicolo,
ma se non gli crei tu manualmente una finestra di console allora l'output
non viene generato.
Quindi:
Shell "cmd /c ping www.quellochetipare.altro >c:\pom-ping.txt", vbHide

 >c:\.... non produce risultati. Ho provato anche 2>c:\.... ma ninete :-(
riprovo, almeno un clic sul link diretto dovresti farcela...
http://vbnet.mvps.org/code/internet/ping.htm
j.

 Shell("ping hostdaverificare >c:\pom-ping.txt")
brrrrrr, rabbrividiamo!
please, segui il consiglio di javalab: se è troppo complesso, beh, è 
arrivato il momento di imparare qualcosa di nuovo.
Se non ricordo male, quel link (l'ho usato anch'io) ti dice come pingare 
un IP: se vuoi ottenere l'ip dal nome dell'host, puoi usare (mi sembra 
che nel sito citato non lo spiegava):
Public Function GetIPfromURL(ByVal URL As String) As String
   Dim ptrHosent As Long
   Dim ptrAddress As Long
   Dim ptrIPAddress As Long
   Dim sIP As String
 
   sIP = Space$(4)
   ptrHosent = gethostbyname(URL & vbNullChar)
   If ptrHosent <> 0 Then
      ptrAddress = ptrHosent + 12
      CopyMemory ptrAddress, ByVal ptrAddress, 4
      CopyMemory ptrIPAddress, ByVal ptrAddress, 4
      CopyMemory ByVal sIP, ByVal ptrIPAddress, 4
      GetIPfromURL = CStr(Asc(sIP)) & "." & CStr(Asc(Mid$(sIP, 2, 1))) 
& "." & CStr(Asc(Mid$(sIP, 3, 1))) & "." & CStr(Asc(Mid$(sIP, 4, 1)))
   End If
 
End Function
Le dichiarazioni delle funzioni le trovi nel visualizzatore api.
Ciao,
Moreno
Inviato da 
www.mynewsgate.net

 Grazie.
Prego, ciao!
-- 
Mattia un pò meno stacanovista...

 che nel sito citato non lo spiegava):
ciao moreno, ogni tanto ti si rivede :)
a chiedere ping in vbnet, i primi due link sono
How to Ping an IP Address Using Visual Basic
How to Ping an IP Address By Host Name
me lo ricordavo perche' li ho usati per bing, e vanno a meraviglia.
ma non ho messo il secondo perche' chiedeva cose semplici :))
ciao, j.

 ciao, j.
ottimo, non ho guardato, allora non serviva... ricordo che quando serviva a 
me non c'era ed ho dovuto perderci un po' di più. Meglio così.
