Como dar um ping em um servidor no VB6

Escrito por jim campbell | Traduzido por francisco de castro
  • Compartilhar
  • Tweetar
  • Compartilhar
  • E-mail

Pode-se utilizar a biblioteca de link ICMP do Windows para dar um ping em um endereço no Visual Basic 6 (VB6). A DLL está inclusa no sistema operacional Windows para lidar com solicitações de rede TCP/IP. Esse é o protocolo utilizado em redes internas e na internet. Deve-se incluir a DLL no código VB6 para poder dar um ping no servidor e atribuir os resultados a uma "string".

Nível de dificuldade:
Moderado

Outras pessoas estão lendo

Instruções

  1. 1

    Clique com o botão direito no arquivo SLN que contém o VB6 e em "Abrir com". Dê duplo clique no programa "Visual Basic" na lista de programas.

  2. 2

    Clique com o botão direto no formulário que desejar utilizar, para dar um ping no servidor. Copie e cole o link do DLL a seguir no início do arquivo VB6:

    Private Declare Function IcmpCreateFile Lib "icmp.dll" () As Long Private Declare Function WSAStartup Lib "WSOCK32.DLL" (ByVal wVersionRequired As Long, lpWSADATA As WSADATA) As Long

    Essas duas DLLs fornecem as funções para ping e comunicação através do protolo TCP/IP.

  3. 3

    Dê um ping no servidor. O código a seguir dá um ping no servidor:

    Public Function ping("servidor", Reply As ICMP_ECHO_REPLY) As Long

    Substitua "servidor" pelo nome ou endereço IP do servidor. A resposta é armazenada na variável "eco reply".

  4. 4

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

    Dim ping As String ping = Reply.Status MsgBox ping

Não perca

Filtro:
  • Geral
  • Artigos
  • Slides
  • Vídeos
Mostrar:
  • Mais relevantes
  • Mais lidos
  • Mais recentes

Nenhum artigo disponível

Nenhum slide disponível

Nenhum vídeo disponível