VBS/WSH/JS - Vbs для невозможности свернуть окно

[ЧЕМПИОН]

Здравствуйте, подскажите vbs скрипт чтоб он не давал свернуть окно определённой программы. Заранее спасибо.

[ЧЕМПИОН]

ЧЕМПИОН, не существует такого скрипта VBScript. Берите AutoHotKey/AutoIt, либо что-нибудь из «больших» языков и попробуйте удалить у потребного окна соответствующий стиль.

[Iska]

Хорошо тогда такой вопрос. Вот у меня есть vbs скрипт который при запуске разварачавает свёрнутое окно, вот нужно сделать чтоб его 1 раз запустить и он автоматом разворачивал допустим каждые 5 секунд. Подскажите что нужно туда дописать или как это сделать?



Пример скрипта:

Set SH = CreateObject("WScript.Shell")

Set locator = CreateObject("WbemScripting.SWbemLocator")

Set service = locator.ConnectServer()

Set props = service.ExecQuery("select * from Win32_Process where name = 'notepad.exe'")

For Each objProcess in props

SH.AppActivate objProcess.ProcessId

Next

SH.SendKeys "{Enter}"

[Iska]

Берите библиотеку:

Обзор библиотеки AutoItX3.dll

, регистрируйте её, пользуйте:

читать дальше »

Код:

Код: Выделить всё

Option Explicit
Const strWindow = "[REGEXPTITLE:^.* - Блокнот$; CLASS:Notepad]"
Dim objAutoItX3
Set objAutoItX3 = WScript.CreateObject("AutoItX3.Control")
Do
	If objAutoItX3.WinGetState(strWindow) And 16 = 16 Then
		objAutoItX3.WinSetState strWindow, "", objAutoItX3.SW_RESTORE
	End If
	WScript.Sleep 5000
Loop
WScript.Quit 0

P.S. Зачем это Вам?