AW: Makros sollen nur 14 Tage lauffähig sein
26.08.2006 18:44:09
Rene
Hallo!
Du könntest es über die Registrierdatenbank machen, z.B. so:
Public Const TestDay = ""
Public Const Passw = ""
Public Const KeyWord3 = "
Public Const ProdNum = ""
Public Const Name = ""
Public Const MessCode = ""
Public Const Angabe = ""
Public Const Ident = ""
Sub Share34_install()
Dim exdat As Date
On Error Resume Next
expire = False
exdat = GetSetting("RMH_Installationen", "AZTab01", "Date")
DDAY = GetSetting("RMH_Installationen", "AZTab01", "exdat")
ExKZ = GetSetting("RMH_Installationen", "AZTab01", "ExKZ")
reg = GetSetting("RMH_Installationen", "AZTab01", "Reg")
DistID = GetSetting("RMH_Installationen", "AZTab01", "DistID")
Lizenz = GetSetting("RMH_Installationen", "AZTab01", "Lizenz")
ProdID = GetSetting("RMH_Installationen", "AZTab01", "Prod-ID")
RegKey = GetSetting("RMH_Installationen", "AZTab01", "RegKey")
If exdat <= TestDay Then GoTo Fehlerm:
Exit Sub
Fehlerm:
exdat = Date + 60
DDAY = Angabe
ExKZ = ""
reg = MessCode
DistID = ""
Lizenz = Name
ProdID = Ident
RegKey = ""
SaveSetting "RMH_Installationen", "AZTab01", "Date", exdat
SaveSetting "RMH_Installationen", "AZTab01", "exdat", DDAY
'SaveSetting "RMH_Installationen", "AZTab01", "ExKZ", ExKZ
SaveSetting "RMH_Installationen", "AZTab01", "Reg", reg
'SaveSetting "RMH_Installationen", "AZTab01", "DistID", DistID
SaveSetting "RMH_Installationen", "AZTab01", "Lizenz", Lizenz
SaveSetting "RMH_Installationen", "AZTab01", "Prod-ID", ProdID
'SaveSetting "RMH_Installationen", "AZTab01", "RegKey", RegKey
MsgBox "Installation abgeschlossen", vbOKOnly + vbInformation, "*** Hinweis ***"
Exit Sub
weiter:
MsgBox "Wenn Sie die Sonderfunktionen testen oder registrieren möchten, " & vbCrLf & _
"müssen Sie Administratorrechte besitzen, da Einträge in die " & vbCrLf & _
"Registrierdatenbank geschrieben werden müssen", vbOKOnly + vbInformation, "Hinweis"
End Sub
Vielleicht hilft Dir das weiter.
Gruß, Rene