angel_lyucifer, в данном примере и заданной категории — нет. Используйте HTA, наподобие:
Скрытый текст
Код:
<html id="Sample">
<head>
<meta charset="windows-1251">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
<meta http-equiv="Content-Language" content="ru">
<title>Sample</title>
<hta:Application
Icon = "%SystemRoot%\System32\notepad.exe"
Id="Sample"
ApplicationName="Sample"
Border="normal"
BorderStyle="normal"
Caption="yes"
ContextMenu="no"
InnerBorder="yes"
MaximizeButton="no"
MinimizeButton="yes"
Navigable="no"
Scroll="auto"
ScrollFlat="no"
Selection="no"
ShowInTaskbar="yes"
SingleInstance="yes"
SysMenu="yes"
Version="1.0"
WindowState="normal"
/>
<style type="text/css">
BODY {
font: x-small Verdana, Arial, sans-serif;
color: WindowText;
background-color: ButtonFace;
}
</style>
<script language="VBScript">
Option Explicit
Sub OnClick_cmdNotepad()
CreateObject("WScript.Shell").Run "notepad.exe", 1, False
End Sub
Sub OnClick_cmdCalc()
CreateObject("WScript.Shell").Run "calc.exe", 1, False
End Sub
Sub OnClick_cmdRegedit()
CreateObject("WScript.Shell").Run "regedit.exe", 1, False
End Sub
</script>
</head>
<body id="tagBody" scroll="auto">
<div align="center">
<input type="button" name="cmdNotepad" id="cmdNotepad" value="Блокнот" onclick="OnClick_cmdNotepad">
<input type="button" name="cmdCalc" id="cmdCalc" value="Калькулятор" onclick="OnClick_cmdCalc">
<input type="button" name="cmdRegedit" id="cmdRegedit" value="Редактор реестра" onclick="OnClick_cmdRegedit">
</div>
</body>
<script language="VBScript">
With window
.resizeTo tagBody.scrollWidth + 25, tagBody.scrollHeight + 32
.moveTo (.screen.availWidth - tagBody.offsetWidth) \ 2, (.screen.availHeight - tagBody.offsetHeight) \ 2
End With
</script>
</html>
или рисуйте в дочернем окне IE, или пользуйте PowerShell.
