IP sin ponerla en el SINFO !!!!

  • Iniciador del tema Anonymous
  • Fecha de inicio
Estado
Cerrado para nuevas respuestas.

Shura

Dragón Ancestral Lvl 2
quedan muchos desechos, fijate, porq no sirbe de mucho el codigo inservible =P
 
A

Anonymous

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

facundo

Oráculo Lvl 3
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
 

zapato

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

Anonymous

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

Lagalot

Newbie Lvl 6
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

Newbie Lvl 6
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?
 
Estado
Cerrado para nuevas respuestas.
Arriba