w00t! 0 Posted March 15, 2006 Report Share Posted March 15, 2006 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ê? Link to post Share on other sites
Tiago Salgado 2 Posted March 16, 2006 Report Share Posted March 16, 2006 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 Link to post Share on other sites
w00t! 0 Posted March 16, 2006 Author Report Share Posted March 16, 2006 "Case Is icError" Dá-me erro aí.. tens acerteza que é isso? (Uso vb6+SP6) Link to post Share on other sites
Tiago Salgado 2 Posted March 16, 2006 Report Share Posted March 16, 2006 Mete "Case Is = icError" ou entao apenas "Case icError" Link to post Share on other sites
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now