Wie man einen Ping von Visual Basic

Das Windows-Betriebssystem enthält eine DLL-Datei, die Sie in Ihrem Visual Basic-Code, um einen Netzwerk-Server ping. Die Ping-Prozedur gibt eine Antwort, die Sie im Code verwenden können, um festzustellen, ob der Computer online ist und im Netzwerk verfügbar. Sie müssen die Windows-DLL-Datei in Ihrem eigenen VB-Code-Datei. Nachdem die DLL enthalten ist, können Sie ping beliebigen Computer im Netzwerk.

 

VISUAL

 

Klicken Sie auf die Windows-Schaltfläche "Start", und wählen Sie "Alle Programme". Klicken Sie auf "Microsoft Visual Basic", klicken Sie dann auf "Visual Basic 6". Öffnen Sie Ihre VB-Projekt.

 

Doppelklicken Sie auf die Datei in der Liste der Quellcode-Dateien für Ihr Projekt. Die Datei wird in Ihrem VB-Editor.

 

Kopieren Sie den folgenden Code am Anfang der Datei, um die Windows-DLL in Ihr VB-Projekt sind:

 

Private Declare Function IcmpSendEcho Lib "icmp.dll" _

 

(ByVal IcmpHandle As Long, _

 

ByVal DestinationAddress As Long, _

 

ByVal RequestData As String, _

 

ByVal RequestSize As Long, _

 

ByVal RequestOptions As Long, _

 

ReplyBuffer Wie ICMP_ECHO_REPLY, _

 

ByVal ReplySize As Long, _

 

Timeout ByVal As Long) As Long

 

Der Code muss in seiner Gesamtheit kopiert werden, oder der VB-Compiler einen Fehler zurückgibt. Der Code enthält die "ICMP.DLL"-Funktion aus dem Windows-Betriebssystem, das einen Computer aus der Desktop-Pings.

 

Fügen Sie den folgenden Code, um die Remote-Computer ping:

 

Telefonisch IcmpSendEcho (hIcmp, IPaddress, "ping", Len (50), 0, Antworten, Len (Antwort), 20)

 

Ersetzen Sie "IPaddress" mit der IP-Adresse für den Remote-Computer.

 

Rufen Sie die Wiedergabe von der Ping-Befehl. Der folgende Code legt fest, ob der Ping erfolgreich war:

 

mypingresponse = Reply.Status