<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
- '引用读写ini
- Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Int32, ByVal lpFileName As String) As Int32
- Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Int32
- Public Function GetINI(ByVal Section As String, ByVal AppName As String, ByVal lpDefault As String, ByVal FileName As String) As String
- Dim Str As String = LSet(Str, 256)
- GetPrivateProfileString(Section, AppName, lpDefault, Str, Len(Str), FileName)
- Return Microsoft.VisualBasic.Left(Str, InStr(Str, Chr(0)) - 1)
- End Function
- Public Function WriteINI(ByVal Section As String, ByVal AppName As String, ByVal lpDefault As String, ByVal FileName As String) As Long
- WriteINI = WritePrivateProfileString(Section, AppName, lpDefault, FileName)
- End Function
- Dim TempStr As String = Application.StartupPath & "/Option.ini" '路径
- ValuesStr = GetINI("runoption", "refresh", "", TempStr) '读ini
- WriteINI("runoption", "autoin", TempValues, TempStr)’写ini