[решено] Скрипт вывода сообщения - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - [решено] Скрипт вывода сообщения (http://forum.oszone.net/showthread.php?t=224743)

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

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

Код:

var WSHShell = WScript.CreateObject("WScript.Shell"); 

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

выводит сообщение "Нажмите ОК для перехода"

вот, а мну необходимо чтобы сообщение содержало более 1 строки и еще интересует вопрос возможно ли силами скрипта сделать две кнопки допустим ок так и остается,а например еще одна кнопка выполняет
taskkill /f /im:cmd.exe - ну вообщем убивает какой то процесс
желательно чтобы после запуска сообщения окно (Cscript.exe)

сворачивалось в трей

Перевод строки:

Код:

var WSHShell = WScript.CreateObject("WScript.Shell"); 

WSHShell.Popup(" Нажмите ОК \n для перехода", 20, "test");

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

Цитата:

Цитата zion87

вот, а мну необходимо чтобы сообщение содержало более 1 строки »

На VBScript аналогично — разве что используются встроенные константы:

Код:

WScript.Echo "Hello" & vbCrLf & "World!"

Цитата:

Цитата zion87

возможно ли силами скрипта сделать две кнопки »

Используйте тот же самый метод Popup или MsgBox (под VBScript). Примеры смотрите по ссылке.

Цитата:

Цитата zion87

желательно чтобы после запуска сообщения окно (Cscript.exe) сворачивалось в трей»

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

С тремя кнопками пойдёт?

Код:

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, извиняюсь. Не видел, что Вы уже дали ответ...

Iska, запустил в качестве хоста «wscript.exe» окно не появилось - отлично
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

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