• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

w00t!

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

4 mensagens neste tópico

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ê?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

"Case Is icError"

Dá-me erro aí.. tens acerteza que é isso? (Uso vb6+SP6)

0

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