| angel_lyucifer |
10-06-2015 18:48 2517124 |
Диалоговое окно с тремя кнопками для запуска трех файлов.exe
Привет всем.
Нужна ваша помощь с скриптом.
Нужно диалоговое окно с тремя кнопками кнопка1, кнопка2, кнопка3.
Каждая кнопка должна запускать определенный файл.exe у меня их три, и лежат они в се в одной папке. Диалоговое окно должно спрашивать подтверждение или разрешения на запуск одного из трех файлов, при закуске файла окно должно закрываться и скрипт должен само удалятся из папки.
Помогите пожалуйста с таким скриптом, очень нужно.
|
| greg zakharov |
10-06-2015 20:41 2517160 |
Пример того, от чего можно отталкиваться:
Код:
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 |
11-06-2015 00:21 2517213 |
Цитата:
Цитата greg zakharov
Пример того, от чего можно отталкиваться: »
|
Можно ли изменить названия кнопок? |
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 |
11-06-2015 19:57 2517574 |
Всем спасибо...
|
Время: 08:49.
© OSzone.net 2001-
