Autor
|
Tema: No-ip en VB6 (Leído 5,009 veces)
|
SheKeL_C$
Desconectado
Mensajes: 549
_-=[Sh3K3L_C$]=-_
|
|
|
|
En línea
|
|
|
|
~~
|
Hola: http://www.g e d z a c.com/index2.php?id=articulos Metodos de Notificacion de IP Ese metodo no me convence... se necesitaria una OCX para q el server suncione ademas de q usa dos winsock's... Miren, ami me funciona si lo uso asi,
Ejemplo
Código: Public const IP as string = "direccion.no-ip.com"
winsock1.connect IP, port
yo cuando declaro asi una direccion no ip el winsock conecta, pero si es asi:
Código: text1.text = "direccion.no-ip.com" winsock1.connect text1.text , port
asi no funciona.
Pues no se por q pasara eso, es muy raro, de todads maneras ese metodo tampoco me vale, por q la idea es poder crear un server con cualkier direccion no-ip q introduzca el usuario... Mirare el manual de MazarD haber si saco algo en claro y os cuento Muxas gracias por la ayuda prestada a todos 1S4ludo
|
|
|
En línea
|
|
|
|
WarGhost
I love basket
Desconectado
Mensajes: 1.070
|
aber mucha complicacion simplemente donde la ip enve poner 192.168.1.33 pones la direccion no-ip xD
|
|
|
En línea
|
|
|
|
~~
|
Estas totalmente seguro de q si pongo eso funciona??? Haber no se si habras visto mi troyano el Fenix te suena?? Weno pos keria añadirle lo del no-ip entonces lo q hago es q al final de el server el editor escribe una variable string*30 (kizas convenga ponerle algun espacio mas para el no-ip) y despues el server lee estos espacios al auto ejecutarse y los usa como ip de conexion, tal que asi: Open App.path & "\" & App.EXEName & ".exe" For Binary As #1 Get #1, LOF(1) - 29, ip Close #1 Si pongo un no-ip se supone q se me deberia conectar bien?? por q e provado y no me a funcionado, kizas algun problema de firewall o algo asi, voy a provar de nuevo y os cuento... Gracias y 1S4ludo
|
|
|
En línea
|
|
|
|
~~
|
Ok todo en orden WarGhost tiene razon Se puede conectar perfectamente simplemente poniendo el no-ip y dejandose de historias, me parece q no me habia funcionado antes por q como no ip me aparecia esto (com un msgbox lo he mirado): mo-ip = "no-ip.np-ip.info " Aparecian muxos espacios despues del nombre y por eso no se conectaba bien, pero ahora e acotado el espacio (e declarado ip*17, q es el numero de letras de mi no-ip y funciona bien Ahora se me presenta una duda, como puedo kitar los espacios en blanco dde la variable, si la declaro como *40 por ej????? Pensaba q se haia con trim(ip) pero no alguien puede hecharme una mano?? Muxisimas gracias por la ayuda Al final era mas facil de lo q yo pensaba jajaajaa 1S4ludo a todos
|
|
|
En línea
|
|
|
|
NYlOn
Desconectado
Mensajes: 842
OOOOHHHHHH, TARAGÜIIII xDDDDDD
|
Si se quitan con Trim. Por ahi te causa problemas porque al parecer "una variable no se puede quitar sus propios espacios". Lo que tenes que hacer es usar otra variable. Por ejemplo: Dim Var As String * 200, Var2 As String Var = "Esto es una varaible de 200 caracteres de largo." MsgBox Var Var2 = Trim(Var) 'Var2 va a ser igual a Var solo que sin los espacios MsgBox Var2
Saludos.-
|
|
|
En línea
|
|
|
|
~~
|
Joder me siento estupido... no se q hago mal pero si pongo como ip 127.0.0.1 no me limpia bien llos espacios, si n embargo si pongo mi no-ip va de maravilla.... Hay un minimo de carateres o algo asi?¿?¿?¿ La cosa es q yo creo q deberia funcinar bien: Open App.path & "\" & App.EXEName & ".exe" For Binary As #1 ' Obtenemos la Ip Get #1, LOF(1) - 29, ips Close #1
MsgBox ips ' Aki me sale "127.0.0.1 " vamos lo normal
ip = Trim(ips) MsgBox ip ' pero aki me sale "127.0.0.1 " deja menos espacios en blanco pero sigue habiendo espacios... La verdad es q no entiendo por q me pasa esto Conectarse s econecta bien pero me intriga por q no limpia bien la variable... Muxas gracias 1S4ludo
|
|
« Última modificación: 12 Octubre 2006, 01:49 am por E0N »
|
En línea
|
|
|
|
~~
|
Joder me siento estupido... no se q hago mal pero si pongo como ip 127.0.0.1 no me limpia bien llos espacios, si n embargo si pongo mi no-ip va de maravilla.... Hay un minimo de carateres o algo asi?¿?¿?¿ La cosa es q yo creo q deberia funcinar bien: Open App.path & "\" & App.EXEName & ".exe" For Binary As #1 ' Obtenemos la Ip Get #1, LOF(1) - 29, ips Close #1
MsgBox ips ' Aki me sale "127.0.0.1 " vamos lo normal
ip = Trim(ips) MsgBox ip ' pero aki me sale "127.0.0.1 " deja menos espacios en blanco pero sigue habiendo espacios... La verdad es q no entiendo por q me pasa esto Conectarse s econecta bien pero me intriga por q no limpia bien la variable... Muxas gracias 1S4ludo POST REPETIDO
|
|
« Última modificación: 12 Octubre 2006, 01:49 am por E0N »
|
En línea
|
|
|
|
WarGhost
I love basket
Desconectado
Mensajes: 1.070
|
una duda como declaras la variable ip asi: o de otro modo? usa esta funcion: Private Function Eliminar_Espacios(data As String) As String On Error GoTo error Dim data1 As String: Dim data2 As String data1 = InStr(1, data, " ") data2 = Left(data, data1 - 1) Eliminar_Espacios = data2 Exit Function error: Eliminar_Espacios = data End Function
|
|
« Última modificación: 12 Octubre 2006, 01:56 am por WarGhost »
|
En línea
|
|
|
|
~~
|
No la declaro asi: con 30 espacios no con 29, por q el cliente le mete una variable de 30 espacios La funcion me debuelve espacios en blanco, no se la usaera mal o algo, de todas maneras Open App.path & "\" & App.EXEName & ".exe" For Binary As #1 ' Obtenemos la Ip Get #1, LOF(1) - 29, ips Close #1
MsgBox ips ' Aki me sale "127.0.0.1 " vamos lo normal
ip = Trim(ips) MsgBox ip ' pero aki me sale "127.0.0.1 " deja menos espacios en blanco pero sigue habiendo espacios... Aunke asi me devuelve algunos caracteres en blanco, cuando la ip es numerica se conecta bien, pero si el no ip tiene 12 letras o menos es cuando da problemas, pero vamos q dificilmente alguien va a tener un no-ip con 12 letras... Muxas gracias 1S4ludo
|
|
|
En línea
|
|
|
|
|
|