bas/Ajustes.bas

   1 Attribute VB_Name = "Ajustes"
   2 Option Explicit
   3 '   Este archivo es parte del programa "reseter", el cúal es pertenece a SVCommunity.org y a Todosv.com
   4 '   Mantenedores principales:
   5 '    *Vlad
   6 'Las siguientes constantes se exponen en esta sección para facilitar su cambio
   7 Public Const PaginaIP As String = "http://dynupdate.no-ip.com/ip.php" 'Dirección de pagina que entrega la IP
   8 Public Const EstadoVer As String = "Beta 4" 'Sub-Estado del programa
   9 Public Const Intentos_Maximos As Byte = 2 'Numero máximo de intentos de reseteo sin exito - Base 0
  10 Public Const Umbral_EsperarInternetMax As Double = 300000  'Tiempo máximo a esperar por internet (mSec)
  11 Public Const Umbral_ChequeoInternet = 20000   'Intervalo entre chequeos de internet
  12 Public Const Umbral_Reintento = 30000 'Intervalo entre intentos de reseteo fallidos
  13 Public Umbral_Desconexion As Double
  14 'Las siguientes variables se exponen en esta sección para facilitar su ubicación
  15 Public rINI_OPCIONES As String       'Ruta del INI de configuración general
  16 Public rINI_ROUTERS As String   'Ruta del INI con configuración de dispositivos
  17 Public Quieto As Boolean
  18 Public NoIE As Boolean
  19 '*****************************************************************************
  20 '+Wine
  21 'Forzar suposición de desconexión + NoIE = True
  22 Public ModoLinux As Boolean
  23
  24 '*****************************************************************************
  25 Public Function LeerINI(nSeccion As String, _
  26                         nClave As String, _
  27                         Optional nValor As String = vbNullString) As String
  28     '<EhHeader>
  29     On Error GoTo LeerINI_Err
  30     '</EhHeader>
  31     Dim Buffer As String * 32767
  32     Dim Lgt As Long
  33     Buffer = String$(32767, vbNullChar)
  34     Lgt = GetPrivateProfileString(nSeccion, nClave, nValor, Buffer, Len(Buffer), rINI_OPCIONES)
  35
  36     If Lgt Then LeerINI = Left$(Buffer, Lgt) Else LeerINI = vbNullString
  37     '<EhFooter>
  38     Exit Function
  39 LeerINI_Err:
  40     Controlar_Error Erl, Err.Description, "Reseter.Ajustes.LeerINI"
  41     Resume Next
  42     '</EhFooter>
  43 End Function
  44
  45 Public Sub EscribirINI(nSeccion As String, _
  46                        nClave As String, _
  47                        ByVal nValor As String)
  48     '<EhHeader>
  49     On Error GoTo EscribirINI_Err
  50     '</EhHeader>
  51     WritePrivateProfileString nSeccion, nClave, nValor, rINI_OPCIONES
  52     '<EhFooter>
  53     Exit Sub
  54 EscribirINI_Err:
  55     Controlar_Error Erl, Err.Description, "Reseter.Ajustes.EscribirINI"
  56     Resume Next
  57     '</EhFooter>
  58 End Sub