[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, регистрируйте её, пользуйте:

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

Код:

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. Зачем это Вам?