No-ip en VB6

[WarGhost]

No se pero te estas complicando la vida un poco  con lo facil que es mira:

Server:

Código [Seleccionar] Expandir

Dim IP As String * 29
Dim IP2 As String

Private Sub Form_Load()
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
Get #1, LOF(1) - 28, IP
IP2 = Trim(IP)
Close #1
msgbox IP2
End Sub

Tambien puedes usar la funciona que te menciona antes:

Código [Seleccionar] Expandir

Dim IP As String * 29
Dim IP2 As String

Private Sub Form_Load()
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
Get #1, LOF(1) - 28, IP
IP2 = Eliminar_Espacios(IP)
Close #1
MsgBox IP2
End Sub

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

en el Editor:

Código [Seleccionar] Expandir

Dim IP As String * 29
IP = "Nombredelno-ip.no-ip.org"

Open "C:\Project1.exe" For Binary As #1
  Seek #1, LOF(1) + 1
  Put #1, , IP
Close #1

leete el papper que ize sobre crear un editor de Server.

Creo que es bien facil 

[~~]

No no si facil es pero mira usa esto:

Editor:

Código [Seleccionar] Expandir

Dim IP As String * 29


Private Sub Command1_Click()
IP = "127.0.0.1"

Open "C:\Project1.exe" For Binary As #1
  Seek #1, LOF(1) + 1
  Put #1, , IP
Close #1
End Sub



Sever:

Código [Seleccionar] Expandir

Dim IP As String * 29
Dim IP2 As String

Private Sub Form_Load()
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
Get #1, LOF(1) - 28, IP
IP2 = Trim(IP)
Close #1
MsgBox IP2
End Sub

A ti no te salen unos espacios despues del 127.0.0.1 en el msgbox??? A eso es a lo q me referia...
y con la funcion pasa exactamente o mismo, no entiendo por q pasa, pero pasa 

1S4ludo

[WarGhost]

a mi no me pasa mira lo e puesto en un texbox y mira:



sin ningún espacio.

P.D: en los msgbox a veces parece que hay espacio pero no, prueba haber con un texbox.

[~~]

A pues si, tienes razon xDDD y yo aki matando me buscar un fallo por la mi***a del msgbox ¬¬'

Claro asi q era logico q se conectara aunke teoricamente tubiea espacios... 

A por cierto acabo de leer tu manual y es muy weno 

Muxas gracias a todos
1S4ludo