Forum ViSiBLe

Bem Vindo
Se registrares neste fórum, podes fazer parte da nossa comunidade.Prezamos aqui pela participação ACTIVA de cada membro.


Atençao: Nao precisa Confirma a sua conta no hotmail (Basta Registrar e Começar a participar do forum.)
Precisamos de administradores e moderadores!! Clique Aqui!

Anuncio


    Status do Servidor

    Compartilhe

    MrViSiBLe
    Fundador ViSiBLe
    Fundador ViSiBLe

    Número de Mensagens : 3688
    Idade : 24
    Localização : Cuiaba
    Agradecimentos Agradecimentos : 864
    Data de inscrição : 10/12/2008

    Status do Servidor

    Mensagem por MrViSiBLe em 10/6/2010, 01:00

    Muito simples,
    se o server de conexão o Winsock recebe e avisa que ta ON, caso contrario, OFF.

    O que vamos Utilizar:
    1 Label [Ira mostra o status]
    2 Textbox [Text1 para IP & Text2 p/ porta]
    1 Winsock
    1 Botão

    Vamos aos Códigos;

    No Winsock: Evento Error
    Label1.Caption = "Offline!"Label1.ForeColor = &HFF&Winsock1.Close

    No Winsock: Evento Connect
    Label1.Caption = "Online!"Label1.ForeColor = &HFF00&Winsock1.Close

    No Botão:
    On Error GoTo ConnectWinsock1.Connect Text1, Text2Connect: If Err.Number = 40018 Then MsgBox "Winsock nao suporta esse IP ou Porta", vbInformation + vbOKOnly, "Digitou errado" End Else Resume Next End If

    Se não souber como add Winsock, só pergunta ;T
    O Código é simples, fácil entendimento e muito funcional;
    basta saber onde irá aplica-lo


    _________________
    MrViSiBLe Gosto? agradeça. clique em [b]+ Ta Ai do lado Olha  >>>>>Nao Custa Nada[/b]
    [Você precisa estar registrado e conectado para ver esta imagem.]
    [Você precisa estar registrado e conectado para ver esta imagem.]
    [Você precisa estar registrado e conectado para ver esta imagem.]
    [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: 12/8/2016, 02:54