Серый форум — Vbs для невозможности свернуть окно

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

2013-10-02T15:58:27Z

Никакой странности: либо Вы определяете не то приложение по исполняемому файлу, либо искомое окно - дочернее, а не главное для приложения.

В любом случае, без конкретики будет беспредметный разговор.

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

2013-10-02T13:48:38Z

Спасибо, только странность какая то запускаю скрипт, окно не разворачивается, а в трее моргает лаунчер.

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

2013-10-02T12:32:45Z

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

 Set SH = CreateObject("WScript.Shell")
 Set locator = CreateObject("WbemScripting.SWbemLocator")
 Set service = locator.ConnectServer()
Do
 Set props = service.ExecQuery("select * from Win32_Process where name = 'notepad.exe'")
 For Each objProcess in props
 SH.AppActivate objProcess.ProcessId
 Next
 WScript.Sleep 5000
Loop
 SH.SendKeys "{Enter}"

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

2013-10-02T10:29:47Z

Напишите пожайлуста готовый скрипт, а то у меня ошибки какие то вылазиют. Заранее спасибо.

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

2013-10-01T21:08:06Z

Вы полагаете, что «все пользователи» будут терпеть это? Сильно сомневаюсь.

Оборачивайте от «Set props =» и до «Next» включительно в цикл Do…Loop и добавьте перед «Next» паузу. Ровно так же, как это сделано в предыдущем скрипте.

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

2013-10-01T20:16:51Z

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

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

 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}"

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

2013-10-01T19:03:22Z

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

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

2013-10-01T17:46:12Z

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