vbs - свернуть окно [Версия для КПК] - Компьютерный форум OSzone.net

Показать полную графическую версию : vbs - свернуть окно

bk99

20-12-2011, 11:44

Есть .hta файл:

<html>
<head>
<title></title>
<hta:application
applicationname=test
/>
<script language="VBScript">
sub start()
Set obj=CreateObject("Shell.Application")
obj.MinimizeAll
end sub
</script>
</head>
<body>

<button onclick="start">Свернуть</button></td>

</body>
</html>

При нажатии на кнопку "Свернуть" происходит сворачивание всех окон на панель задач. Как сделать так, чтобы сворачивалось только это, хта-шное окно, а состояние остальных не менялось. Можно ли свернуть это окно также и в трей, к часам?

Kazun

20-12-2011, 12:13

sub start()
Set oShell = CreateObject("WScript.Shell")
oShell.SendKeys "% N"
end sub

bk99

20-12-2011, 12:45

Код: ...» Не работает. При нажатии на кнопку выскакивает меню.

Iska

20-12-2011, 15:09

bk99, а чем не устраивает стандартная оконная кнопка минимизации?

OSArev

21-12-2011, 01:52

Свернуть:
<html>
<head>
<title></title>
<hta:application
applicationname=test
/>
<script language="VBScript">
sub start()
Set oShell = CreateObject("WScript.Shell")
oShell.SendKeys "% n{DOWN 3}{ENTER}"
end sub
</script>
</head>
<body>

<button onclick="start">Свернуть</button></td>

</body>
</html>

bk99

21-12-2011, 10:03

OSArev, спасибо, кудесник!
Kazun, и тебе спасибо, добрый человек, с твоей подачи...
Iska, просто у меня на <button onclick="start"> ещё всякое понавешено и хотелось бы чтоб оно в свёрнутом состоянии всё работало, чтоб не надо было нажимать лишний раз кнопку минимизации.

Вопрос вдогонку - существует ли возможность таким же образом сворачивать окно в трей к часам (не в панель задач).

Iska

21-12-2011, 19:25

Вопрос вдогонку - существует ли возможность таким же образом сворачивать окно в трей к часам (не в панель задач). »
Без сторонних библиотек/средств — нет.