(Solucionado)Como utilizar el Winsock API en Visual basic?

[700esoj]

E tratado Google y lo unico que me sale es la mierda de Winsock Control, lo que no me sirve para nada ya que es un Control que no se puede distribuir.

Alguien sabe como utilizar el API y hacer las conecciones basicas entre Server y Cliente, Enviar data y etc.?

[>> s E t H <<]

lee el indice de temas

[Rakzo-Fimbres]

Pues men, entiendo que sea un lío eso de las librerías, pero pues por aquí ronda una aplicación que va a solucionar tu problema (ofuscando la librería y el programa en un solo archivo).

Si mal no recuerdo se llama Fusion.

Para ver este enlace Registrate o Inicia Sesion

http://foro.portalhacker.net/index.php/topic,37018.0.html

[700esoj]

Woow Respuestas rapidas jejej Muchas gracias a los dos, Voy a buiscar en el indice de app y tambien echare un vistaso al programa Fusion...!


Editado:   eeem  Creo que el Fusion no  me serivra, No solo no quiero usar el Winsock Control por la distribusion pero tampoco lo PUEDO utilizar por que el Visual Basic que tengo es el que Portable que puso >>Seth<< y no me deja utilizar la libreria en mis applicaciones jeje pero gracias de todos modos

[700esoj]

Woow Respuestas rapidas jejej Muchas gracias a los dos, Voy a buiscar en el indice de app y tambien echare un vistaso al programa Fusion...!


Editado:   eeem  Creo que el Fusion no  me serivra, No solo no quiero usar el Winsock Control por la distribusion pero tampoco lo PUEDO utilizar por que el Visual Basic que tengo es el que Portable que puso >>Seth<< y no me deja utilizar la libreria en mis applicaciones jeje pero gracias de todos modos

Seth, ya busque en el Indice y no aparece lo que estoy buscando,  Me salio el post tuyo con La libreria del API pero no vi ningun post de como utilizarlo.... En otras palabras no me sirve por que no tengo conocimiento del API.

Si tu sabes algo por que no mejor me dices mas omenos como declarar una variable winsock y todo eso y como creac una coneccion de un app a otro con la API, Abrir puertos, Poner el Host IP etc.


Gracias!

[Rakzo-Fimbres]

Espera, ahora que recuerdo, creo que Seth colocó por aquí la librería completa del Winsock.

¿No fué así Seth? (Ya que no recuerdo si fué en este foro o en el Level 23)

[700esoj]

Espera, ahora que recuerdo, creo que Seth colocó por aquí la librería completa del Winsock.

¿No fué así Seth? (Ya que no recuerdo si fué en este foro o en el Level 23)

Si, fue en este foro, pero no me sirve la API si nisiquiera se utilizarla, necesito saber utilizarla y por eso cree este tema pero al parecer nadie sabe utilizarla!!

[Rakzo-Fimbres]

Para usar el Winsock es muy fácil, es más te voy a dar un pequeño empujón.

El Winsock consta de 4 eventos
Connect: Se produce cuando se conecta el Winsock a un ordenador.
Close: Se produce cuando se cierra la conexión del Winsock.
DataArrival: Este evento es uno de los más importantes, ya que es el que recibe los datos del Winsock que lo envía.
Error: Se produce cuando hay un error o se pierde la conexión del Winsock.

Ahora una pequeña conexión de prueba para el Winsock, primero preparemos los ingrediente, empezaremos haciendo un pequeño e insignificante cliente-servidor localmente, pero empezaremos con el Servidor.

Agrega un botón y agrega este code en el evento Click

Código:

   'cerramos cualquier por si acaso está abierta
    Winsock1.CloseSck

    'abrimos el puerto 8050
    Winsock1.LocalPort = "8050"

    'deja el socket escuchando conexiones entrantes
    Winsock1.Listen

En el evento DataArrival agregaremos esto:

Código:

   Dim buffer As String 'declaramos esta variable para almacenar los datos

    'obtenemos los datos y los guardamos en la variable buffer
    Winsock1.GetData buffer

    'mostramos los datos en la pantalla
    MsgBox(buffer)

Para el evento Connect

Código:

MsgBox("Te has conectado al Cliente")

Y en los eventos Close y Error agregamos este code

Código:

   'para cerrar la conexion del winsock
    Winsock1.CloseSck

Ahora vamos con el Cliente, agregaremos un textbox (para enviar el mensaje) y dos botones: uno para conectar el winsock y el otro para enviar los datos
En el evento click del boton para conectar el winsock.

Código:

   'asignar datos de conexion
    Winsock1.RemoteHost = "localhost"
    Winsock1.RemotePort = "8050"

    'cerramos el socket por si acaso
    Winsock1.CloseSck

    'conectamos con el socket a escucha
    Winsock1.Connect

Y para el botón Enviar datos:

Código:

Winsock1.SendData Text1.Text

Está super sencillo estos dos programas y sé que le pude agregar más cosas, pero por el momento para que te des una idea y comprendas el code del Winsock. Si escribí un error o tienes dudas no dudes en postearlas.

[700esoj]

Muchisimas gracias por el post,  Unque al principio no me sirvio de nada por que no tenia el winsock Control, ahora consegui un control que simula al winsock y es identico. ahora si pude probar con tu codigo y me sirvio a la perfeccion. garcias!