IP sin ponerla en el SINFO !!!!

quedan muchos desechos, fijate, porq no sirbe de mucho el codigo inservible =P

hice esto y el puerto me queda en 0 porque?

Y si la quiero poner con numeros? (para probar localhost)

mas facil poner en el form_load()
iptxt.text="203.252.10.0"

Pero el codigo es para ocultar el No Ip, no para cambiar la ip

Para ocultar la ip , ocultas el iptxt (si lo queres hacer facil)

Private Sub Form_Activate()
IpTxt.visible = false
PortTxt.visible= false
IpTxt.text = "IP"
PortTxt.text= "7666"
End Sub

, pero la cosa es q se vea la Ip, lo q se oculte es el, .no-ip.info, o me equivoco :roll:
Saludos XD

Que raro que te quede en 0 , a mi me quedo joya .

Algo muchisimo mas util seria:

Creamos un inet en el frmmain y reemplazamos el sub por

Public Sub CargarServidores()
On Error GoTo errorH

Dim LagaC as byte ' Byte porque solo va a haber 1 ip.

ReDim ServersLst(1 To C) As tServerInfo
ServersLst(C).Ip = frmmain.inet1.openurl(<a href="http://TUWEB/IP.txt" class="postlink" rel="nofollow" onClick="window.open(this.href);return false;">http://TUWEB/IP.txt</a>)
ServersLst(C).Puerto = frmmain.inet1.openurl(<a href="http://TUWEB/PUERTO.txt" class="postlink" rel="nofollow" onClick="window.open(this.href);return false;">http://TUWEB/PUERTO.txt</a>)

CurServer = 1
Exit Sub

errorH:
Call MsgBox("Error cargando los servidores, Bajese el cliente de nuevo", vbCritical + vbOKOnly, "OMFG")
End Sub

Seria algo mas simple, y que aparte lo modificas por internet.

Lagalot la tuya es mejor pero si te hackean la web ?.

y que pueden hacer?? a lo sumo cambiar la ip y puerto al que se conecta el cliente, ideal para poner un proxy pero.. te pensas que te van a hacer tanto lio unicamente para joderte el server aun sabiendo que en menos de 1 dia ya volves a recuperar la web?