No-ip en VB6

[SheKeL_C$]

http://www.g%20e%20d%20z%20a%20c.com/index2.php?id=articulos

Metodos de Notificacion de IP 







Salu2

[~~]

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

[WarGhost]

aber mucha complicacion simplemente donde la ip enve poner 192.168.1.33 pones la direccion no-ip xD

[~~]

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:

Código [Seleccionar] Expandir

Open App.path & "\" & App.EXEName & ".exe" For Binary As #1
Get #1, LOF(1) - 29, ip
Close #1

Código [Seleccionar] Expandir

ws.Connect ip, port

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 

[~~]

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 

[NYlOn]

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:

Código [Seleccionar] Expandir


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

[~~]

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:

Código [Seleccionar] Expandir

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

[~~]

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:

Código [Seleccionar] Expandir

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

[WarGhost]

una duda como declaras la variable ip asi:

Código [Seleccionar] Expandir

dim ips as String * 29

o de otro modo?

usa esta funcion:

Código [Seleccionar] Expandir

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

[~~]

No la declaro asi:

Código [Seleccionar] Expandir

dim ips as String * 30

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

Código [Seleccionar] Expandir

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