[VB.NET]读写ini

1. '引用读写ini
2. PrivateDeclareFunctionGetPrivateProfileStringLib"kernel32"Alias"GetPrivateProfileStringA"(ByVallpApplicationNameAsString,ByVallpKeyNameAsString,ByVallpDefaultAsString,ByVallpReturnedStringAsString,ByValnSizeAsInt32,ByVallpFileNameAsString)AsInt32
3. PrivateDeclareFunctionWritePrivateProfileStringLib"kernel32"Alias"WritePrivateProfileStringA"(ByVallpApplicationNameAsString,ByVallpStringAsString,ByVallpFileNameAsString)AsInt32
5. PublicFunctionGetini(ByValSectionAsString,ByValAppNameAsString,ByValFileNameAsString)AsString
6. DimStrAsString=LSet(Str,256)
7. GetPrivateProfileString(Section,AppName,lpDefault,Str,Len(Str),FileName)
8. ReturnMicrosoft.VisualBasic.Left(Str,InStr(Str,Chr(0))-1)
9. EndFunction
11. PublicFunctionWriteINI(ByValSectionAsString,ByValFileNameAsString)AsLong
12. WriteINI=WritePrivateProfileString(Section,FileName)
13. EndFunction
15. DimTempStrAsString=Application.StartupPath&"/Option.ini"'路径
16. Valuesstr=Getini("runoption","refresh","",TempStr)'读ini
17. WriteINI("runoption","autoin",TempValues,TempStr)’写ini