"Selbst-Ausschalten (Power down)" verhindern
Es gibt Applikationen, die sollen wachsam sein, auch wenn mal keiner auf dem Display herumtippt. Leider "schläft" der PocketPC nach eingestellter Zeit aber ein, sodaß weder Anzeige noch Programm weiterhin aktiv sind. Um dies zu verhindern, kann man folgenden simplen Trick anwenden.
Deklarationsteil:
| Public Const
MOUSEEVENTF_MOVE = &H1 Public Declare Sub Mouse_Event Lib "coredll.DLL" Alias "mouse_event" _ (ByVal dwFlags As Long, ByVal dx As Long, _ ByVal dy As Long, ByVal dwData As Long, _ ByVal dwExtraInfo As Long) |
Der Trick besteht einfach darin, ein Mausereignis (hier:"move") zu emulieren. Man platziert einfach einen Timer auf einer Form der Applikation und führt im Timerereignis folgendes aus:
Beispiel:
Mouse_Event MOUSEEVENTF_MOVE, 0, 0, 0, 0 |
...und schon bleibt unser Zeitgenosse hellwach ;-) Durch den Timer kann man vorteilhafterweise selbst bestimmen, wann ein "Einschlafen" verhindert werden soll und wann nicht.