clsiniop.cls

本程序可以设置本机自动与Internet时间同步。

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsIniOp"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'*************************************************************************
'**模 块 名：clsIniOp
'**说    明：星河霸业 版权所有2007 - 2008(C) Xinghe8.vicp.Net/bBs .All Rights Reserved
'**创 建 人：水木之
'**日    期：2007-08-25 14:52:41
'**描    述：好用的ini操作类,对ini文件的操作进行了封装
'**版    本：V1.0.0
'*************************************************************************
Option Explicit

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Private mvarInipath As String

Public Property Let Inipath(ByVal vData As String)
    mvarInipath = vData
End Property

'*************************************************************************
'**函 数 名：Getstr
'**输    入：ByVal SectionName(String) -
'**        ：ByVal KeyWord(String)     -
'**        ：ByVal DefString(String)   -
'**输    出：(String) -
'**功能描述：从ini文件中读信息 SectionName:区段名 KeyWord:具体键名 DefString:读取失败后返回默认
'**补    充：读出的都是String类型的,如果你想读数字型的,可用VB的val()函数将其转化
'**作    者：水木之
'**日    期：2007-08-25 14:55:24
'**版    本：V1.0.0
'*************************************************************************
Public Function Getstr(ByVal SectionName As String, ByVal KeyWord As String, ByVal DefString As String) As String
Dim ResultString As String * 255
If GetPrivateProfileString(SectionName, KeyWord, "", ResultString, 144, mvarInipath) > 0 Then '关键词的值不为空
    Getstr = Left(ResultString, InStr(ResultString, Chr(0)) - 1)
Else    '将缺省值写入INI文件
    WritePrivateProfileString SectionName, KeyWord, DefString, mvarInipath
    Getstr = DefString
End If
End Function

'*************************************************************************
'**函 数 名：Setstr
'**输    入：ByVal SectionName(String) -
'**        ：ByVal KeyWord(String)     -
'**        ：ByVal ValStr(String)      -
'**输    出：(Boolean) -
'**功能描述：向ini文件中写信息 SectionName:区段名 KeyWord:具体键名 ValStr:具体键值
'**作    者：水木之
'**日    期：2007-08-25 14:57:49
'**版    本：V1.0.0
'*************************************************************************
Public Function Setstr(ByVal SectionName As String, ByVal KeyWord As String, ByVal ValStr As String) As Boolean
   Setstr = CBool(WritePrivateProfileString(SectionName, KeyWord, ValStr, mvarInipath))
End Function


Public Function DelKeyWord(ByVal SectionName As String, ByVal KeyWord As String) As Boolean
   DelKeyWord = CBool(WritePrivateProfileString(SectionName, KeyWord, vbNullString, mvarInipath))
End Function

Public Function DelSection(ByVal SectionName As String) As Boolean
   DelSection = CBool(WritePrivateProfileString(SectionName, vbNullString, vbNullString, mvarInipath))
End Function