Свернуть:
Код:
<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>
