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. Anleitung
1
Klicken Sie in Windows "Start" -Taste , und wählen Sie " Alle Programme". Klicken Sie auf " Microsoft Visual Basic ", klicken Sie dann auf " Visual Basic 6 ". Öffnen Sie Ihre VB-Projekt .
2
Doppelklicken Sie auf die Datei in der Liste der Quellcode-Dateien für Ihr Projekt. Die Datei wird in Ihrem VB -Editor
3
Kopieren Sie den folgenden Code am Anfang der Datei , um die Windows- DLL in Ihr VB-Projekt gehören : .
Privat 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 dem Desktop Pings
4
Fügen Sie den folgenden Code, um die Remote-Computer ping : .
Anruf IcmpSendEcho ( hIcmp , IPaddress , "ping" , Len ( 50) , 0, Antworten , Len (Antwort) , 20)
Ersetzen " IPaddress " mit der IP -Adresse für den Remote-Computer.
< br > 5
Rufen Sie die Wiedergabe von der Ping-Befehl . Der folgende Code legt fest, ob der Ping erfolgreich war :
mypingresponse = Reply.Status
