По истечению времени закрыть все приложения - VB
Формулировка задачи:
Можно ли сделать так?
На форме есть TextBox и кнопка. В TextBox ввели цифру, А потом нажали на кнопку. И по истечению времени (а время мы казали цифрой), закрываются абсолютно все приложения на компе...
Решение задачи: «По истечению времени закрыть все приложения»
textual
Листинг программы
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.ShutDown()
next