VBS/WSH/JS - vbs

Kazun · Отправлено: **12:13, 20-12-2011** | #2

Код:

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

bk99 · Отправлено: **12:45, 20-12-2011** | #3

Цитата Kazun:

Код: ...»

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

Iska · Отправлено: **15:09, 20-12-2011** | #4

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

OSArev · Отправлено: **01:52, 21-12-2011** | #5

Свернуть:

Код:

<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 · Отправлено: **10:03, 21-12-2011** | #6

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

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

Iska · Отправлено: **19:25, 21-12-2011** | #7

Цитата bk99:

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

Без сторонних библиотек/средств — нет.