Rubrik: Verschiedenes / Sonstiges | VB-Versionen: VB4, VB5, VB6 | 02.03.05 |
Programm kontrolliert anhalten Programm anhalten, ohne die Meldung "keine Rückmeldung" im Taskmanager | ||
Autor: Marcus Woida | Bewertung: | Views: 19.635 |
www.mawosoft.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Ein Programm kann man bekanntermaßen mit der Sleep-API anhalten:
Option Explicit ' Benötigte API-Deklaration Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Main() Sleep 60000 End Sub
Überschreitet man dabei allerdings einen Schwellwert, meldet der Taskmanger "keine Rückmeldung"
Um dies zu vermeiden, packt man die 60 Sekunden aus obigem Beispiel in eine Schleife, die das Programm jeweils eine Sekunde anhält und eine "Ich-lebe-noch"-Meldung an Windows sendet:
Option Explicit ' Benötigte API-Deklaration Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Main() Dim i As Long For i = 1 To 60 Sleep 1000 DoEvents Next i End Sub