Hej, jeg har skrevet et meget simpelt program så jeg slukke min comp på tid. Jeg har gjort det i VBS da det var nemmest. Men jeg kan ikke få en 'visual'timer til at virke:
Code
- Dim TimeSec
- Dim TimeMin
- set oShell = createobject("wscript.shell")
- TimeMin = InputBox("Type time till shutdown, in minutes")
- if Timemin > 1 then
- TimeSec=60
- Do
- TimeSec=TimeSec-1
- oShell.popup TimeMin & ":" & TimeSec & "Time till shutdown.!", 1
- if TimeSec=0 then
- TimeSec=60
- TimeMin=TimeMin-1
- end if
- Loop While TimeMin<>0
- oShell.Run "Shutdown.exe -s -t 1"
- end if
Så tæller den ned, men problemet er at da den jo åbner og lukker msgbox'en så opdateren den og min fullscreen apps går ud i windows. Nogen der kan tænke på en løsning?
Overvejede lidt at skrive det i c++, men er lidt rusten og kan ikke helt finde ud af h.time functionen.. :o
/krokcy
EDIT: har søgt meget efter en måde så man bare kan åbne én msgbox og så opdaterer dén. But no such luck.!