Foro de elhacker.net

Programación => .NET (C#, VB.NET, ASP) => Mensaje iniciado por: SecuSys en 10 Enero 2009, 16:03 pm



Título: [VB] ayuda COMException
Publicado por: SecuSys en 10 Enero 2009, 16:03 pm
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..



Título: Re: [VB] ayuda COMException
Publicado por: Mace Windu en 11 Enero 2009, 14:55 pm
¿Por qué no intentas hacerlo con la ayuda del .NET Framework en vez de usar el ya antiguo control Winsock de VB6?

Salu2


Título: Re: [VB] ayuda COMException
Publicado por: SecuSys en 17 Enero 2009, 20:59 pm
es que por aora quiero usar el winsock..



Título: Re: [VB] ayuda COMException
Publicado por: MANULOMM en 20 Enero 2009, 13:32 pm
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


Título: Re: [VB] ayuda COMException
Publicado por: SecuSys en 21 Enero 2009, 21:04 pm
Esque los sockets no entiendo como usarlos y eso..
....



Título: Re: [VB] ayuda COMException
Publicado por: MANULOMM en 22 Enero 2009, 03:08 am
para eso estan los tutorial... mirate el MSDN... se trata de aprender...

Atentamente,

Juan Manuel Lombana
Medellín - Colombia