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.)

WWW.FORUMVISIBLE.COM

Temos vagas na STAFF !! Clique Aqui!

Status do Servidor

Compartilhe
avatar
MrViSiBLe
Administrador
Administrador

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

Status do Servidor

Mensagem por MrViSiBLe em Qua 6 Out 2010 - 1: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

    Data/hora atual: Seg 21 Ago 2017 - 15:47