Vbs для невозможности свернуть окно

[ЧЕМПИОН]

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

[Iska]

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

[ЧЕМПИОН]

Хорошо тогда такой вопрос. Вот у меня есть 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 (http://www.script-coding.com/AutiItX.html), регистрируйте её, пользуйте:
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. Зачем это Вам?