Hi,ich habe mir die 90 Tage Testversion runtergeladen und nun bin ich bei einem Toten Punkt angekommen^^
ich brauche für meinen Browser den ich nebenbei amche eine ini zum Speichern,ich benutzte dafür die API,habe jedoch ein paar Probs.
Wenn ich diesen Teil einfüge zum Code
------------------------------------
Function GetINISetting(ByVal Filename As String, ByVal Key As String, ByVal Setting As String, ByVal Default As Variant) As Variant
Dim Temp As String
Call GetPrivateProfileString(Key, Setting, Default, Temp, Len(Temp), Filename)
GetINISetting = Mid(Temp, 1, InStr(1, Temp, Chr(0)) - 1)
End Function
------------------------------------
Sagt er mir das Default nur am Anfang einer Deklaration gültig ist,was soll ich machen???
Achja,das Script hat ein extra Modul namens iniscript.
Hier sit das ganze Modul :
---------------
Module iniscript
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationname As String, ByVal lpKeyName As String, ByVal lsString As String, ByVal lplFilename As String) As Long
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 Long, ByVal lpFileName As String) As Long
Sub SaveINISetting(ByVal Filename As String, ByVal Key As String, ByVal Setting As String, ByVal Value As Object)
Call WritePrivateProfileString(Key, Setting, Value, Filename)
End Sub
Function GetINISetting(ByVal Filename As String, ByVal Key As String, ByVal Setting As String, ByVal Default As Variant) As Variant
Dim Temp As String
Call GetPrivateProfileString(Key, Setting, Default, Temp, Len(Temp), Filename)
GetINISetting = Mid(Temp, 1, InStr(1, Temp, Chr(0)) - 1)
End Function
End Module
---------------
Etwas kurz,aber eigentlich sollte es sein Nutzen erfüllen,wäre da nicht der Fehler.
M.F.G
DerTod2
PS:Freue mich über jegliche Antwort
DerTod2 Gast |
