Mensajes

Creo que lo que tienes que hacer es Abrir puertos que que se conecten a un no-ip.

Salu2

[Comprimir JPG!!:]

Buscando se encuentra todo  :

Comprimir JPG!!:

• http://foro.elhacker.net/index.php/topic,133221.0.html
  
  Ocupa mucho mi imagen:
  
• http://foro.elhacker.net/index.php/topic,135071.0.html
  
  Modulo cJPEG:
  
• http://foro.elhacker.net/index.php/topic,135071.msg635582.html#msg635582
  
  
  Salu2

Va a tratar de multi historias sabe como va a ser online no se puede hacer una historia fija.

osea que va a ser que alla misiones diferentes etc...

P.D:Además en cuanto se haga el motor gráfico ya se puede hacer diferentes expansiones del juego de un jugador y demás.

que yo sepa no, aunque no e usado mucho gamvas

para cuando se maximiza esta esto:

Código [Seleccionar] Expandir

Private Sub Form_Resize()

End Sub

hay pones para que no se deforme el formulario y ya.

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.

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 

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

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

una duda y que servidor usas porque vamos casi ningun funciona.