common.bas

LineWatcher dials your ISP, keeps your connection alive and logs errors. Originally distributed as f

Attribute VB_Name = "Mod_Common"
' RICHARD GOUTORBE ( [e-mail] http://www.reseau.org/rg/ ) holds the copyright to all code in this document.
' You are granted a license to use this code under the following conditions:
' - You are free to modify the code in any way you see fit.
' - You are free to redistribute the code FOR NON-PROFIT PURPOSE provided that
'     1) appropriate credit is given to Richard Goutorbe, and
'     2) you do not charge any kind of fee for the code without the written permission of Richard Goutorbe.
' You are free to redistibute a binary compiled version of the code for any purpose, profit or non-profit.
' If you distribute the code in this form, you must give appropriate credit to Richard Goutorbe.
' PUBLISHING THE CODE ON OTHER WEB SITES, OR POSTING THE CODE ON OTHER WEB SITES FOR PUBLICATION WITHOUT THE WRITTEN PERMISSION OF RICHARD GOUTORBE, IS STRICTLY PROHIBITED.
Option Explicit

'Registry functions -----------------------------------------------------------------------------------

Public Sub WriteProfileString(SECTION As String, key As String, value As String)
    SaveSetting App.Title, SECTION, key, value
End Sub
Public Sub WriteProfileInt(SECTION As String, key As String, value As Integer)
    SaveSetting App.Title, SECTION, key, value
End Sub
Public Function GetProfileString(SECTION As String, key As String, defaultValue As String)
    GetProfileString = GetSetting(App.Title, SECTION, key, defaultValue)
End Function
Public Function GetProfileInt(SECTION As String, key As String, defaultValue As Integer)
    Dim retval As Long
    On Error Resume Next
    retval = defaultValue
    retval = GetSetting(App.Title, SECTION, key, defaultValue)
    On Error GoTo 0
    GetProfileInt = retval
End Function