Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #57 da revista programar. Faz já o download aqui!

w00t!

[VB6] Winsock a não funcionar bem :\

Mensagens Recomendadas

w00t!    0
w00t!

Private Sub Form_Load()
Winsock1.RemoteHost = "217.79.182.170"
Winsock1.RemotePort = 80
Winsock1.Connect
End Sub

Private Sub Winsock1_Connect()
If Winsock1.State = sckConnected Then
msgbox("Conectado!")
else
msgbox("Não há conexão!")
End If
End Sub

Se o site estiver UP, ele mostra a mensagem "Conectado", mas se estiver Down (ou se for um IP inválido) não acontece nada.. :confused:

Alguem sabe porquê?

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Tiago Salgado    2
Tiago Salgado

Experimenta no evento StateChanged do Winsock a verificaçao do erro...do tipo

Private Sub Winsock1_StateChanged(ByVal State As Integer)

Select Case state

   Case Is icError
        msgbox "Erro"

End Select

End Sub

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade