Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)
-   -   Vbs для невозможности свернуть окно (http://forum.oszone.net/showthread.php?t=268888)

ЧЕМПИОН 27-09-2013 15:26 2224868

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

Iska 27-09-2013 18:23 2224975

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

ЧЕМПИОН 01-10-2013 22:27 2227038

Хорошо тогда такой вопрос. Вот у меня есть 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 01-10-2013 22:57 2227052

Берите библиотеку: Обзор библиотеки 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. Зачем это Вам?


Время: 04:34.

Время: 04:34.
© OSzone.net 2001-