Il sistema operativo Windows contiene un file DLL utilizzate nel codice Visual Basic per il ping di un server di rete . La procedura ping restituisce una risposta è possibile utilizzare nel codice per identificare se il computer è in linea e disponibile in rete . È necessario includere il file DLL di Windows nel proprio file di codice VB . Dopo che la DLL è incluso , è possibile eseguire il ping qualsiasi computer della rete . Istruzioni
1

Fare clic sul pulsante di Windows "Start" e selezionare " Tutti i programmi ". Fare clic su "Microsoft Visual Basic ", quindi fare clic su " Visual Basic 6 . " Aprire il progetto VB .

2 Fare doppio clic sul file nell'elenco dei file di codice sorgente per il progetto. Il file viene aperto con un editor di VB
3

Copia e incolla il codice riportato di seguito all'inizio del file per includere la DLL di Windows nel progetto VB : .

Privato Declare Function IcmpSendEcho Lib " icmp.dll " _

( IcmpHandle ByVal As Long , _ ByVal

DestinationAddress As Long , _ ByVal

RequestData String, _

RequestSize ByVal As Long , _

RequestOptions ByVal As Long , _

ReplyBuffer Come ICMP_ECHO_REPLY , _

ByVal ReplySize As Long , _

Timeout ByVal As Long ) As Long

il codice deve essere copiato nella sua interezza, o il compilatore VB restituisce un errore . Il codice include la funzione " icmp.dll " dal sistema operativo Windows che esegue il ping di un computer dal desktop
4

Aggiungere il seguente codice per eseguire il ping del computer remoto : .

Chiamata IcmpSendEcho ( hIcmp , IPaddress , "ping" , Len ( 50 ) , 0 , Reply , Len ( Reply ) , 20 ) per

Sostituire " IPaddress " con l'indirizzo IP del computer remoto .

5

Recupera il replay dal comando ping . Il codice seguente determina se il ping ha avuto successo :

mypingresponse = Reply.Status

• Come fare un pulsante per VBScript 
• Come fare VBA caselle di input