Einzelnen Beitrag anzeigen
Alt 11.09.2003, 19:19   #10
reemrev
Inventar
 
Registriert seit: 31.01.2000
Beiträge: 1.706

Mein Computer

Standard

für VB

Dim Datum_heute As Date
dim starten as Variant

Datum_heute = Now 'aktuelles Datum speichern
Date = DateValue("11.9.2003") 'Systemdatum ändern.

starten = Shell("C:\WINDOWS\CALC.EXE", 1)

'irgendwas passiert jetzt zb die zeitlich begrenzte Demo laufen lassen
'das Programm nicht beenden(!) es sei denn, du speicherst in eine IniDatei

Date = Datum_heute ' aktuelles Datum wieder zurücksetzen

musst nur aufpassen, dass man vor Mitternacht das Programm wieder beendet äh, die Uhrzeit muss man aus dem Datum extrahieren fällt mir grad ein
reemrev ist offline   Mit Zitat antworten