vbs - свернуть окно
Есть .hta файл:
HTML код:
<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>
При нажатии на кнопку "Свернуть" происходит сворачивание всех окон на панель задач. Как сделать так, чтобы сворачивалось только это, хта-шное окно, а состояние остальных не менялось. Можно ли свернуть это окно также и в трей, к часам? |
Код:
sub start()
Set oShell = CreateObject("WScript.Shell")
oShell.SendKeys "% N"
end sub
|
Не работает. При нажатии на кнопку выскакивает меню. |
bk99, а чем не устраивает стандартная оконная кнопка минимизации?
|
Свернуть:
Код:
<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>
|
OSArev, спасибо, кудесник!
Kazun, и тебе спасибо, добрый человек, с твоей подачи...
Iska, просто у меня на <button onclick="start"> ещё всякое понавешено и хотелось бы чтоб оно в свёрнутом состоянии всё работало, чтоб не надо было нажимать лишний раз кнопку минимизации.
Вопрос вдогонку - существует ли возможность таким же образом сворачивать окно в трей к часам (не в панель задач).
|
Цитата:
Цитата bk99
Вопрос вдогонку - существует ли возможность таким же образом сворачивать окно в трей к часам (не в панель задач). »
|
Без сторонних библиотек/средств — нет. |
Время: 11:22.
© OSzone.net 2001-
