Il sistema operativo Windows contiene un file DLL si utilizza nel codice Visual Basic per il ping di un server di rete. La procedura ping restituisce una risposta è possibile utilizzare il 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.

istruzione

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

2 Fare doppio clic sul file nella lista dei file di codice sorgente per il progetto. Il file si apre con un editor di VB.

3 Copiare e incollare il seguente codice nella parte superiore del file da includere la DLL di Windows nel progetto VB:

Private Declare Function ICMPSendEcho Lib "icmp.dll" _

(ByVal IcmpHandle come lungamente, _

ByVal DestinationAddress As Long, _

ByVal requestData As String, _

ByVal RequestSize come lungamente, _

RequestOptions ByVal come lungamente, _

ReplyBuffer Come ICMP_ECHO_REPLY, _

ByVal ReplySize come lungamente, _

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 di Windows che il ping di un computer dal desktop.

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

Chiamare ICMPSendEcho (hIcmp, IPaddress, "ping", Len (50), 0, Reply, Len (Reply), 20)

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

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

mypingresponse = Reply.Status