VBS/WSH/JS - [решено] Диалоговое окно с тремя кнопками для запуска трех файлов.exe

greg zakharov · Отправлено: **20:41, 10-06-2015** | #2

Пример того, от чего можно отталкиваться:

Код:

Dim msg

With CreateObject("WScript.Shell")
  msg = MsgBox("Да - запустить Блокнот" & vbCrLf & _
               "Нет - запустить Paint" & vbCrLf & _
               "Отмена - запустить редактор реестра", _
               vbYesNoCancel + vbQuestion, "Ланчура")
  Select Case msg
    Case vbYes
      .Run "notepad.exe"
    Case vbNo
      .Run "mspaint.exe"
    Case vbCancel
      .Run "regedit.exe"
  End Select
End With

angel_lyucifer · Конфигурация компьютера

Цитата greg zakharov:

Пример того, от чего можно отталкиваться: »

Можно ли изменить названия кнопок?

Iska · Отправлено: **01:23, 11-06-2015** | #4

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.

angel_lyucifer · Конфигурация компьютера

Всем спасибо...