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:
Dim WS as cSocketMaster
Set WS = New cSocketMaster
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..