Du kan använda Windows ICMP länkbiblioteket att pinga en adress i Visual Basic 6 ( VB6 ) . DLL medföljer operativsystemet Windows för att hantera nätverk ansökningar om TCP /IP , vilket är det protokoll som används i interna nätverk och på Internet . Du måste inkludera DLL i VB6 kod , pinga servern och tilldela resultatet till en sträng . Instruktioner
1
Högerklicka på SLN -filen som innehåller din VB6 och klicka på " Öppna med . " Dubbelklicka på " Visual Basic " programmet visas i listan över program .
2
Högerklicka på formuläret som du vill använda för att pinga servern . Kopiera och klistra in följande DLL länken till toppen av din VB6 fil :
Private Declare Function IcmpCreateFile Lib " icmp.dll " ( ) As Long
Private Declare Function WSAStartup Lib " WSOCK32.DLL " ( ByVal wVersionRequired As Long , lpWSADATA som WSADATA ) As Long
Dessa två DLL tillhandahålla funktioner för att pinga och kommunicera över TCP /IP-protokollet .
3
Ping servern. Följande kod stiften servern :
Public Function ping ( " server " , svara så ICMP_ECHO_REPLY ) As Long
Ersätt " server " med namnet eller IP- adressen till servern . Reprisen lagras i " ekosvar " variabel . Ut resultaten från ping
4
ut . Följande kod skickar resultatet till en sträng och visar resultatet i en meddelanderuta :
Dim ping As String
ping = Reply.Status
MsgBox ping
Addera ditt
