Foro de elhacker.net

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?

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!¡.

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

Nadie me ayuda?

.
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:

DoEvents! :P

.
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!¡.

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 (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

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:

 
call Connect (IPREMOTA,PUERTOREMOTO)
 
 

Caso 2:

 
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

 
Localport = 80
call listen
 
 

Evento Peticion

 
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):

 
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)

 
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!¡.

en el codigo que usas solo sustituye

 
Server.Bind  "3333"
 
 

por

 
Server.localport =  3333
 
 

Dulce Infienro Lunar!¡.

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..