No-ip en VB6

Iniciado por ~~, 9 Octubre 2006, 16:38 PM

0 Miembros y 1 Visitante están viendo este tema.

SheKeL_C$


~~

Hola:

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

CitarMiren, 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  :P

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
¿Qué culpa tengo yo de tener la sangre roja y el corazón a la izquierda?

~~

Estas totalmente seguro de q si pongo eso funciona???  :huh: :huh:
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



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

Citarmo-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  ;D ;D ;D ;D

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  ;D

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:

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

~~

#16
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  :huh: :huh: :huh: :huh: :huh:
Conectarse s econecta bien pero me intriga por q no limpia bien la variable...

Muxas gracias  ;)
1S4ludo

~~

#17
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  :huh: :huh: :huh: :huh: :huh:
Conectarse s econecta bien pero me intriga por q no limpia bien la variable...

Muxas gracias  ;)
1S4ludo



POST REPETIDO

WarGhost

#18
una duda como declaras la variable ip asi:

dim ips as String * 29

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
¿Qué culpa tengo yo de tener la sangre roja y el corazón a la izquierda?

~~

No la declaro asi:

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

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