Wenn dein Programm ein Formular benutzt würd ich es so machen:
Erstell einen Timer mit folgenden Eigenschaften:
Enabled = True
Intervall = 1000 'Millisekunden, also 1 Sekunde
Ein Timer führt seine Timer()-Sub immer nach Ablauf des Intervalls aus. Im Beispiel würde er also jede Sekunde prüfen ob es 10:48 Uhr ist und falls ja die shutdown.exe aufrufen.
Falls du es trotzdem mit einer Schleife lösen willst benutze unbedingt ein DoEvents darin sonst braucht die Schleife den Großteil der Rechenleistung.
Erstell einen Timer mit folgenden Eigenschaften:
Enabled = True
Intervall = 1000 'Millisekunden, also 1 Sekunde
Code:
Private Sub Timer1_Timer()
if time >= #10:48:00# then
Shell "shutdown.exe -s"
end if
End Sub
Falls du es trotzdem mit einer Schleife lösen willst benutze unbedingt ein DoEvents darin sonst braucht die Schleife den Großteil der Rechenleistung.