O sistema operacional Windows contém um arquivo DLL que você usa em seu código Visual Basic para executar ping um servidor de rede . O procedimento de ping retorna uma resposta que você pode usar no código para identificar se o computador está online e disponível na rede. Você deve incluir o arquivo DLL do Windows em seu próprio arquivo de código VB . Após a DLL está incluído , você pode pingar qualquer computador na rede. Instruções
1
Clique no Windows botão " Iniciar" e selecione "Todos os Programas". Clique em " Microsoft Visual Basic " e clique em "Visual Basic 6 ". Abra seu projeto VB .
2
Clique duas vezes no arquivo na lista de arquivos de código fonte para o seu projeto . O arquivo é aberto no seu editor de VB
3
Copie e cole o seguinte código no início do seu arquivo para incluir a DLL do Windows em seu projeto VB: .
Privada 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 Como ICMP_ECHO_REPLY , _ ByVal
ReplySize As Long , _
ByVal Timeout as Long ) As Long
o código deve ser copiado em sua totalidade, ou o compilador VB retorna um erro . O código inclui a função " ICMP.DLL " do sistema operacional Windows que pings um computador a partir do desktop
4
Adicione o seguinte código para o ping do computador remoto: .
Chamada IcmpSendEcho ( hIcmp , IPaddress , "ping" , Len (50) , 0, Responder , Len (Responder) , 20)
Substituir " IPaddress " com o endereço IP do computador remoto.
< br > 5
Recuperar o replay do comando ping. O código a seguir determina se o ping foi bem sucedido :
mypingresponse = Reply.Status
