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

[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.. 😕

Alguem sabe porquê?

[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

[w00t!]

"Case Is icError"

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

[Tiago Salgado]

Mete "Case Is = icError" ou entao apenas "Case icError"