Supportnet / Forum / Anwendungen(Java,C++...)
timelock VB6
Frage
wenn wir schon mal dabei sind...
weiß jemand wie man einen Timelock in VB6 realisieren kann, damit das Programm ab einem bestimmten Datum nicht mehr funktioniert?
Antwort 1 von Demion
Das hat mit der benutzten Programmiersprache nichts zu tun. Du mußt beim ersten Programmstart eine Nachricht in einer Datei oder der Registry verstecken und diese dann bei jedem neuen Start abfragen. Wenn die Frist abgelaufen ist, muß sich das Programm mit einer entsprechenden Meldung beenden.
Gruß,
Demion
Gruß,
Demion
Antwort 2 von floriBerlin
vielleicht wäre es bei mir besser, wenn ich ein Ablaufdatum setzte.
Also:
Wenn Systemzeit = 22.05.2006
dann Fehlermeldung
schreibt man das dann als erstes bei Form Load rein?
Also:
Wenn Systemzeit = 22.05.2006
dann Fehlermeldung
schreibt man das dann als erstes bei Form Load rein?
Antwort 3 von floriBerlin
hab das jetzt mal so gemacht, funzt aber irgendwie nicht richtig:
--------------------------------------------------------------------
If txtTimelock < Date$ Then
frmLizenz.Show
Hauptform.Hide
Else
...normaler Programmablauf
--------------------------------------------------------------------
Inhalt txtTimelock: 12-31-2007
Wie kann ich es anstellen, dass das anständig verglichen wird? (Irgendwie hab ich das Gefühl, dass da was am Datumsformat nicht stimmt.)
--------------------------------------------------------------------
If txtTimelock < Date$ Then
frmLizenz.Show
Hauptform.Hide
Else
...normaler Programmablauf
--------------------------------------------------------------------
Inhalt txtTimelock: 12-31-2007
Wie kann ich es anstellen, dass das anständig verglichen wird? (Irgendwie hab ich das Gefühl, dass da was am Datumsformat nicht stimmt.)
Antwort 4 von Demion
Von VB habe ich keine Ahnung. Aber die Abfrage muß Du anders machen. Wenn der User an dem bereffenden Tag das Programm zufällig nicht ausführt, dann läuft es ja danach ewig weiter.
Du mußt die Zeitdifferenz zwischen dem aktuellen und Deinem Fristdatum abfragen, damit das Programm auch dann stoppt, wenn die Frist bereits verstrichen ist. Dazu kannst Du die DateDiff()-Funktion verwenden:
http://www.int.gu.edu.au/courses/3008int/m03/FYI/Command_Syntax.htm
Gruß,
Demion
PS: Ich habe diese Antwort geschrieben, bevor ich Antwort 3 gesehen habe. Bin jetzt aber zu faul zum Ändern. ;-)
Du mußt die Zeitdifferenz zwischen dem aktuellen und Deinem Fristdatum abfragen, damit das Programm auch dann stoppt, wenn die Frist bereits verstrichen ist. Dazu kannst Du die DateDiff()-Funktion verwenden:
http://www.int.gu.edu.au/courses/3008int/m03/FYI/Command_Syntax.htm
Gruß,
Demion
PS: Ich habe diese Antwort geschrieben, bevor ich Antwort 3 gesehen habe. Bin jetzt aber zu faul zum Ändern. ;-)
Antwort 5 von floriBerlin
hi demion,
finde das mit der dateDiff ne ganz gute idee, ich werd mal in die Richtung weiter herumexperimentieren...
falls sonst noch jemand was brauchbares weiß.. immer her damit...
finde das mit der dateDiff ne ganz gute idee, ich werd mal in die Richtung weiter herumexperimentieren...
falls sonst noch jemand was brauchbares weiß.. immer her damit...
Antwort 6 von credo
hi flori..
mach das mal in etwa so:
Private Sub Form_Load()
AnzahlTage = DateDiff("d", Now, "31.12.2008")
If AnzahlTage <= 0 Then
frmLizenzabgelaufen.Show
frmProgramm.Hide
Else
................
End If
End Sub
mach das mal in etwa so:
Private Sub Form_Load()
AnzahlTage = DateDiff("d", Now, "31.12.2008")
If AnzahlTage <= 0 Then
frmLizenzabgelaufen.Show
frmProgramm.Hide
Else
................
End If
End Sub