Você pode usar a biblioteca de ligação do Windows ICMP para executar ping um endereço em Visual Basic 6 ( VB6 ) . A DLL está incluído no sistema operacional Windows para lidar com solicitações de rede para TCP /IP, que é o protocolo usado em redes internas e na Internet. Você deve incluir a DLL no seu código VB6, ping do servidor e atribuir os resultados a uma corda . Instruções
1

o botão direito do mouse no arquivo SLN que contém o VB6 e clique em " Abrir com". Clique duas vezes no programa " Visual Basic" exibido na lista de programas.
2

botão direito do mouse no formulário que você deseja usar para executar ping no servidor . Copie e cole o seguinte link DLL para o topo do seu arquivo VB6 :

Private Declare Function IcmpCreateFile Lib " icmp.dll " ( ) As Long

Private Declare Function WSAStartup Lib " WSOCK32.DLL " (ByVal wVersionRequired as Long , lpWSADATA Como WSADATA ) As Long

Estas duas DLLs fornecem as funções de ping e comunicar através do protocolo TCP /IP.
3

Ping o servidor . O código a seguir pinos o servidor :

pingue Função Pública ( "servidor", Responder Como ICMP_ECHO_REPLY ) As Long

Substitua o " servidor" com o nome ou endereço IP do servidor. O replay é armazenado na variável " resposta de eco " .
4

Imprima os resultados do ping. O código a seguir envia o resultado para uma string e exibe o resultado em uma caixa de mensagem :

Dim pingue As String

de ping = Reply.Status

MsgBox pingue