From 16c2702ddf159d31abace6b60b082baa4fdbfbc8 Mon Sep 17 00:00:00 2001 From: Vladimir H Date: Tue, 2 Dec 2008 10:06:17 -0600 Subject: [PATCH] Usar registro para guardar y leer la ultima IP utilizada. --- bas/NET.bas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/bas/NET.bas b/bas/NET.bas index 13b6ed9..431e463 100755 --- a/bas/NET.bas +++ b/bas/NET.bas @@ -69,10 +69,10 @@ Public Function Cambio_IP() As IP 104 Cambio_IP.IP_Actual = ActualIp 105 Cambio_IP.Cambio = (ActualIp = AntiguaIp) -106 If AntiguaIp = vbNullString Then AntiguaIp = LeerINI("Datos", "UltimaIP", vbNullString) +106 If AntiguaIp = vbNullString Then AntiguaIp = GetSetting("Reseter4.0", "Datos", "UltimaIP", vbNullString) 107 Registrar "+IP Pública: " & ActualIp & IIf(ActualIp = AntiguaIp, " (La IP no cambió)", IIf(AntiguaIp = vbNullString, vbNullString, " (OK, antes era: " & AntiguaIp & ")")) 108 AntiguaIp = ActualIp -109 EscribirINI "Datos", "UltimaIP", ActualIp +109 SaveSetting "Reseter4.0", "Datos", "UltimaIP", ActualIp ' Exit Function Cambio_IP_Err: -- 2.11.4.GIT