From de300772023bb118241c59012996de290f2df0bc Mon Sep 17 00:00:00 2001
From: Vladimir H <vladimiroski@gmail.com>
Date: Mon, 8 Dec 2008 09:24:15 -0600
Subject: [PATCH] Mas formato y cambios en los registros.

---
 Reseter.vbw    | 12 ++++++------
 bas/ConfIO.bas |  7 ++-----
 bas/Global.bas |  9 +--------
 bas/NET.bas    |  6 +++---
 4 files changed, 12 insertions(+), 22 deletions(-)

diff --git a/Reseter.vbw b/Reseter.vbw
index 24017ae..93a115e 100755
--- a/Reseter.vbw
+++ b/Reseter.vbw
@@ -2,12 +2,12 @@ AuroNetConf = 0, 0, 596, 311, C
 modSocketMaster = 132, 132, 728, 443, C
 AuroNet = 44, 44, 640, 355, C
 CSocketMaster = 22, 22, 685, 333, C
-Ajustes = 66, 87, 662, 551, 
-ConfIO = 89, 117, 728, 465, C
-GUI = 45, 59, 639, 514, C
-Global = 88, 116, 684, 580, 
-modBasico = 22, 29, 663, 370, 
-NET = 67, 88, 661, 543, Z
+Ajustes = 66, 87, 662, 551, C
+ConfIO = 89, 117, 728, 465, 
+GUI = 45, 59, 639, 514, 
+Global = 88, 116, 684, 580, Z
+modBasico = 22, 29, 663, 370, C
+NET = 67, 88, 661, 543, 
 vt100 = 22, 29, 658, 367, C
 cTimer = 44, 44, 608, 405, C
 frmPrincipal = 133, 175, 727, 630, C, 23, 30, 621, 511, C
diff --git a/bas/ConfIO.bas b/bas/ConfIO.bas
index 82cc72f..92af9c6 100755
--- a/bas/ConfIO.bas
+++ b/bas/ConfIO.bas
@@ -1,8 +1,5 @@
 Attribute VB_Name = "ConfIO"
 Option Explicit
-'   Este archivo es parte del programa "reseter", el cúal es pertenece a SVCommunity.org y a Todosv.com
-'   Mantenedores principales:
-'    *Vlad
 Public Declare Function GetPrivateProfileString _
                Lib "kernel32" _
                Alias "GetPrivateProfileStringA" (ByVal lpSectionName As String, _
@@ -38,7 +35,7 @@ Public Sub Obtener_Lista_Externa()
         '</EhHeader>
         Dim Modelos() As String
         Dim szBuf As String, lLen As Integer
-100     Registrar "Cargando perfiles de dispositivos soportados..."
+100     'Registrar "Cargando perfiles de dispositivos soportados..."
         'Obtenemos los nombres de todas las secciones, vienen separadas por NullChar Chr(0)
 101     szBuf = String$(32767, vbNullChar) 'Creamos el buffer
 102     lLen = GetPrivateProfileSectionNames(szBuf, Len(szBuf), rINI_ROUTERS) 'Obtenemos el largo del la lectura
@@ -58,7 +55,7 @@ Public Sub Obtener_Lista_Externa()
 109         frmPrincipal.ComReset.AddItem Modelos(i)
         Next
 
-110     Registrar ">" & a & " perfiles cargados"
+110     Registrar "+" & a & " perfiles cargados"
         '<EhFooter>
         Exit Sub
 Obtener_Lista_Externa_Err:
diff --git a/bas/Global.bas b/bas/Global.bas
index de9dc6b..6d3a734 100755
--- a/bas/Global.bas
+++ b/bas/Global.bas
@@ -108,16 +108,9 @@ Public Sub Main()
 126     frmPrincipal.ComReset.Text = Predefinido
         'Comprobando XMR
         '------------------------
-127     Registrar "¿XMR?..."
 128     dXMR = App.Path & "\XMR.exe"
 129     dXMR_ok = (Dir$(dXMR) = vbNullString)
-
-130     If dXMR_ok Then
-131         Registrar ">No XMR..."
-        Else
-132         Registrar ">¡Si XMR!"
-        End If
-
+127     Registrar "¿XMR?... " & IIf(dXMR_ok, "¡Si!", "No...")
         '------------------------
         'Interfaz
         '------------------------
diff --git a/bas/NET.bas b/bas/NET.bas
index 10c560e..ec660f9 100755
--- a/bas/NET.bas
+++ b/bas/NET.bas
@@ -81,7 +81,7 @@ Public Sub Crear_Objeto_IE()
         '<EhHeader>
         On Error GoTo Crear_Objeto_IE_Err
         '</EhHeader>
-100     Registrar "+Objeto IE: creando..."
+'100     Registrar "+Objeto IE: creando..."
 101     hpObjetoIE = SetTimer(0, 0, 0, AddressOf lpObjetoIE)
         '<EhFooter>
         Exit Sub
@@ -256,7 +256,7 @@ Public Sub lpObjetoIE()
     Set IE = CreateObject("InternetExplorer.Application")
 
     If IE Is Nothing Then
-        Registrar ">Objeto IE: no creado"
+        Registrar "+Objeto IE: no creado"
         Exit Sub
     End If
 
@@ -264,7 +264,7 @@ Public Sub lpObjetoIE()
     IE.Visible = False
     IE.Offline = False
     IE.Silent = False
-    Registrar ">Objeto IE: creado"
+    Registrar "+Objeto IE: creado"
 End Sub
 
 Public Sub res_auro()
-- 
2.11.4.GIT