[VB] ayuda COMException

[SecuSys]

hola tengo un problema.

He creado dos forms uno es un cliente y el otro es un servidor.

he añadido 1 winsock a cada form, configurandolo s correctamente.

En el form Cliente he puesto dos botones y un textbox.

El primer botón, lo que hace es conectarse con el servidor, y el segundo botón, envía el texto, del textbox1.

Al depurar los forms, en el form "Cliente", cuando le doy ha enviar el texto, me apareze esto:

"No se controló  COMException"

Y me dice que deshabilite eso. ¿Cómo puedo hacerlo?Ó ¿Cómo puedo solucionarlo,para que no me tire eese error?

mil gracias y saludos de antemano..
..

aquí os dejo el codigo.

Cliente:

Código:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Winsock1.Listen()
    End Sub

     Private Sub Winsock1_ConnectionRequest(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_ConnectionRequestEvent) Handles Winsock1.ConnectionRequest
        Winsock1.Close()
        Winsock1.Accept(e.requestID)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Winsock1.SendData(TextBox1.Text)
    End Sub
End Class


Servidor:

Código:

Public Class Form1

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Winsock1.CtlState = 0 Then
            Winsock1.Connect()
        ElseIf Winsock1.CtlState = 7 Then
        Else
            Winsock1.Close()
        End If
    End Sub

    Private Sub Winsock1_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles Winsock1.DataArrival
        Dim datos As String = ""
        Winsock1.GetData(datos)
        MsgBox(datos)
    End Sub
End Class

saludos..

[Mace Windu]

¿Por qué no intentas hacerlo con la ayuda del .NET Framework en vez de usar el ya antiguo control Winsock de VB6?

Salu2

[SecuSys]

es que por aora quiero usar el winsock..

[MANULOMM]

pues por eso es.. estas exportado mal el OCX del winsock, no es tan sencillo trabajar con conponentes COM, fuera de eso tendrias que portar la libreria para la aplicacion y registrarla cada vez... ademas cuando trabajas con COM el codigo no es administrado... si aun decides continuar con esta ABSURDA idea de trabajar con COM busca sobre codigo no administrado en .Net y obtendras la respuesta a este ENGORROSO asunto.

es que por aora quiero usar el winsock..

NO HAY RAZÓN NI TÉCNICA NI FÍSICA PARA DECIR ESTO, QUE MAL QUE NO UTILICES EL FRAMEWORK!!!!

Atentamente,

Juan Manuel Lombana
Medellín - Colombia

[SecuSys]

Esque los sockets no entiendo como usarlos y eso..
....

[MANULOMM]

para eso estan los tutorial... mirate el MSDN... se trata de aprender...

Atentamente,

Juan Manuel Lombana
Medellín - Colombia