Como creo la conexion con CSocket Master?

[Edu]

Bueno, eso mismo.. necesito crear una conexion simple y no puedo :S, declaro bien las variables y todo, solo me faltaria q me digan cuales comandos usar o en q orden:

server.bind , server.localport, o remoteport no se cual va porq usando la logica no me anda :S

Despues para conectarse es mas simple creo pero no se si esto esta bien

cliente.connect "hydbah.no-ip.org" , "5555"

por ejemplo.. Y esta actualizado el no-ip si, a ver quien me lo soluciona q ya lo hice una vez si pero perdi el proyecto y no me acuerdo ahora :S, desp de la conexion para fijarme si se conecto uso el evento server_connect() no?

[BlackZeroX]

mmm...

CSocketMaster tre ejemplos, pero aun asi manejalo como WinSock OCX... y si no traes ni idea... a leerse la Help de las Clase

Dulces Lunas!¡.

[Edu]

mmm...

Ya vi los ejemplos, pero por ejemplo el chat q es lo q me interesa, esta el server y el cliente en un mismo proyecto :S , y usa cliente.localip, puerto , y eso me suena a q funciona solo en la misma pc xD, a ver si alguien sabe..

Y uso CSocketMaster para no depender de la ocx, podria llevarla como recurso pero ya es mas lio, es mas facil con winshock lo se, pero me han recomendado csocketmaster por eso

[Edu]

Nadie me ayuda?

[Psyke1]

.
Si sabes usar winsock sabes usar cSocketMaster, el manejo es muy similar.
Como te dijo Black, el cSocketMaster trae ayuda.
Si no pones el codigo no podremos ver el fallo.

Supongo que habras declarado la clase:

Código [Seleccionar] Expandir

Dim WS as cSocketMaster
Set WS = New cSocketMaster

DoEvents!

[BlackZeroX]

.
Este CSocketMaster trae un UC con el cual podras manejar Igual que el OCX del Windosck.

http://infrangelux.sytes.net/FileX/?file=CSocketMaster.rar&dir=/BlackZeroX/Programacion/vb6

Dulces Lunas!¡.

[Edu]

Bueno se q me van a decir q no puedo hacer q me hagan las cosas sino no aprendo nada, pero aca les dejo:

http://www.megaupload.com/?d=W9YB6HPW

Si me solucionan la conexion para hacerlo pc a pc remota les agradezco, pero si tenia un error me podrian explicar porq sino si no aprendo nada :/

Aclaraciones: Lean el code si desconfian primero ( ya se que lo haran xD) pero digo porq el servidor va para mis victimas del spynet o talvez luego le hago otras cosas para enviarlo y q cree entrada en el registro, y... en el form load bloquea la tecla Windows, el Tab, la mayusucula y si abres el administrador de tareas se cierra, pero si cierran el programa desde la cruz "x" cosa de q llame al evento form_unload, vuelve todo a la normalidad.

Eso si, yo tengo windows xp sp2, no se si andara igual en otros SO :S pero espero q si o sino me dicen

Edit: Recien mire lo q subi a megaupload y el servidor esta configurado para q se conecte a server.localip, asique asi anda pero solo en la misma pc ( ejecutando los 2) pero habria q cambiar el server.localip por "xxxzeroxxx.no-ip.org" ( pero ustedes haran las pruebas con su ip o  su no-ip XD)

No creo q me ayuden xD pero si por ahi alguien se aburre y me ayuda talvez en el form_load del servidor me hacen algun bucle para q intente conectarse siempre, asi funcionaria como un troyano de conexion inversa, q son cositas q les pondre desp xD

[BlackZeroX]

localip --> regresa la IP del equivo local...
Remopthost --> Dirrecion IP del equivo a conectarse... ( localhost, 127.0.0.1  son IPS locales sin contar las IPS de la Red LAN que hay standarts para esto )
RemotePort --> Puerto a conectarse

Por lo tanto en el cliente puede ser lo nsiguiente...

Caso En linea:

Código (Vb) [Seleccionar] Expandir



call Connect (IPREMOTA,PUERTOREMOTO)



Caso 2:

Código (Vb) [Seleccionar] Expandir



RemoteHost = "www.google.com.mx"
RemotePort = 80
call Connect



LocalPort --> PArte del puerto en escucha (Servidor)
listen --> pode y registra el puerto en escucha.

Caso Particular

Código (Vb) [Seleccionar] Expandir



Localport = 80
call listen



Evento Peticion

Código (vb) [Seleccionar] Expandir



Private Sub Ws_Our_ConnectionRequest(ByVal requestid As Long)
   with WS_Out
       call .close
       call .accept (requestid)
   end with
End Sub



Nota, puedes aceptar la conexión en otro Socket si asi lo deseas:

Caso de conexion Lenta (Pero Segura):

Código (vb) [Seleccionar] Expandir



Private Sub Ws_Our_ConnectionRequest(ByVal requestid As Long)
   call Ws_Our.close
   with WS_OtroSocket
       call .close
       call .accept (requestid)
   end with
   call Ws_Our.listen
End Sub



Caso Rapido en la conexion... (Inestable)

Código (vb) [Seleccionar] Expandir



Private Sub Ws_Our_ConnectionRequest(ByVal requestid As Long)
   with WS_OtroSocket
       call .close
       call .accept (requestid)
   end with
End Sub



Edito:


Enlace ejemplar

http://foro.elhacker.net/index.php/topic,17665.msg233177.html#msg233177


Aqui tienes Ejemplos de Chats que he hecho...

3 Ejemplos:

http://infrangelux.sytes.net/FileX/?dir=/BlackZeroX/Programacion/vb6/ejemplos%20VB6/Chats%20Simples

1 Ejemplo Mas
http://infrangelux.sytes.net/FileX/?file=chat.zip&dir=/BlackZeroX/Programacion/vb6

1 Ejemplo Mas (Ajeno)
http://infrangelux.sytes.net/FileX/?file=chat.zip



Si no entendiste esto Estas muerto... y si no me entendiste nada de nada pasate a por google, recursos visual basic, openproject, PSC, uff vbFrance... u otra lugar donde haya ejemplos.

Dulce Infierno Lunar!¡.

[BlackZeroX]

en el codigo que usas solo sustituye

Código (vb) [Seleccionar] Expandir



Server.Bind  "3333"



por

Código (Vb) [Seleccionar] Expandir



Server.localport =  3333



Dulce Infienro Lunar!¡.

[Edu]

Hice eso q dijiste y no ha funcionado, pero talvez por el q me testea si anda tiene xp sp3, y yo tengo sp2 no se..