[решено] Скрипт вывода сообщения

[zion87]

Добрый день, вечер, ночь - кому как...
вообщем интересует такой вопрос, как вывести на экран сообщение от (vbs, js) только чтоб в сообщении было более одной строки?

var WSHShell = WScript.CreateObject("WScript.Shell");
WSHShell.Popup("Нажмите ОК для перехода", 20, "test");

выводит сообщение "Нажмите ОК для перехода"
http://s018.radikal.ru/i505/1201/8b/6160c138cf0d.jpg
вот, а мну необходимо чтобы сообщение содержало более 1 строки и еще интересует вопрос возможно ли силами скрипта сделать две кнопки допустим ок так и остается,а например еще одна кнопка выполняет
taskkill /f /im:cmd.exe - ну вообщем убивает какой то процесс
желательно чтобы после запуска сообщения окно (Cscript.exe)
http://s018.radikal.ru/i511/1201/ca/f1f4cbf8870e.jpg
сворачивалось в трей

[Anonymоus]

Перевод строки:
var WSHShell = WScript.CreateObject("WScript.Shell");
WSHShell.Popup(" Нажмите ОК \n для перехода", 20, "test");
http://rghost.ru/35804873/image.png

По остальным вопросам - ожидайте, пока вам кто-то более знающий ответит, я в JS\VBS совсем не разбираюсь.

[Iska]

вот, а мну необходимо чтобы сообщение содержало более 1 строки »
На VBScript аналогично — разве что используются встроенные константы:
WScript.Echo "Hello" & vbCrLf & "World!"

возможно ли силами скрипта сделать две кнопки »
Используйте тот же самый метод Popup (http://msdn.microsoft.com/en-us/library/x83z1d9f.aspx) или MsgBox (под VBScript). Примеры смотрите по ссылке.

желательно чтобы после запуска сообщения окно (Cscript.exe) сворачивалось в трей»
Невозможно — в WSH нет встроенных средств для работы с окнами и трэем. Используйте в качестве хоста «wscript.exe» — окна консоли не будет.

[OSArev]

С тремя кнопками пойдёт?
result = MsgBox ("Пример работы кнопок." & Chr(10) & "Нажмите любую кнопку.", vbYesNoCancel, "Smart Box")
Select Case result
Case vbYes
WScript.echo "Была нажата кнопка ""Да"""
Case vbNo
WScript.echo "Была нажата кнопка ""Нет"""
Case vbCancel
WScript.echo "Была нажата кнопка ""Отмена"""
End Select
Iska, извиняюсь. Не видел, что Вы уже дали ответ...

[zion87]

Iska, запустил в качестве хоста «wscript.exe» окно не появилось - отлично
OSArev, я так понял, что кол-во кнопок неизменно в этом коде??
и раз нет средств работы с окнами то привязать к кнопке закрытие программы не получиться?

[OSArev]

Кнопок можно и поменьше, и прогу можно вырубить
Set oShell = CreateObject("WScript.Shell")
oShell.Exec("calc.exe")

result = MsgBox ("Вырубить Калькулятор?", vbYesNo, "ProcessClose")
Select Case result
Case vbYes
ProcessClose("calc.exe")
Case vbNo
WScript.Quit
End Select

Function ProcessClose(sProcName)
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name = '" & sProcName & "'")

For Each objProcess in colProcessList
objProcess.Terminate()
Next
End Function

[zion87]

Отлично OSArev, все работает!!!