[gora]

как вывести сообщение MsgBox в несколько строчек »

Так?

Код:

@echo off &chcp 1251 >nul
echo WScript.Quit(MsgBox(WScript.Arguments(1) ^& Chr(13) ^& WScript.Arguments(2) ^& Chr(13) ^& WScript.Arguments(3), vbYesNo+vbDefaultButton2,WScript.Arguments(0)))>"%temp%\MsgBox.vbs"
WScript "%temp%\MsgBox.vbs" "Внимание!" "Для успешной работы скрипта необходимо закрыть Word" "Вторая строка" "Третья строка"
If %ERRORLEVEL% equ 6 (chcp 866 >nul &echo  Word закрыт.) else (
chcp 866 >nul &echo  Word не закрыт.)
del /q "%temp%\MsgBox.vbs"

pause>nul

[Iska]

Я предпочитаю не «Chr(13)», а константу, причём родного стандарта — «vbCrLf».

[sov44]

Тема по-сути решена, однако возникла ошибка при интеграции сообщения в скрипт. Не могу понять, где ошибка

Код:

@Echo Off
SetLocal enabledelayedexpansion
set iSumT=0
set "dr=%USERPROFILE%\Recent"& call :Calc "%dr%" lnk
set "dr=%USERPROFILE%\Application Data\Microsoft\Office\Последние файлы"& call :Calc "%dr%" lnk
set "dr=%USERPROFILE%\Local Settings\Temporary Internet Files\Content.MSO"& call :Calc "%dr%" *
set "dr=%USERPROFILE%\Local Settings\Temporary Internet Files\Content.Word"& call :Calc "%dr%" *

pause>nul

:Calc
for /f "delims=*" %%i in ('dir /b/a-d "%dr%\*.%2" 2^>nul') do (
set "bg=%%i"
if "!bg:~0,1!"=="~" (
         echo WScript.Quit(MsgBox(WScript.Arguments(1) ^& Chr(13) ^& WScript.Arguments(2) ^& Chr(13) ^& WScript.Arguments(3) ^& Chr(13) ^& WScript.Arguments(4), vbYesNo+vbDefaultButton1,WScript.Arguments(0)))>"%temp%\MsgBox.vbs"
         WScript "%temp%\MsgBox.vbs" "Внимание!" "     Для успешной работы скрипта" "необходимо закрыть документы Word" "" "            Документы закрыты?"
         If %ERRORLEVEL% equ 6 (Echo %%i &pause) else (Goto :Calc)
         del /q "%temp%\MsgBox.vbs"
         ) else (
for %%a in ("%dr%\!bg!") do (
set /a iSumT += %%~za
del /f/q %%a
)))

[gora]

sov44, поправил две строки, в остальном ковыряться не стал

Код:

>"%temp%\MsgBox.vbs" echo WScript.Quit^(MsgBox^(WScript.Arguments^(1^) ^& vbCrLf ^& WScript.Arguments^(2^) ^& vbCrLf ^& vbCrLf ^& WScript.Arguments^(3^), vbYesNo+vbDefaultButton1,WScript.Arguments^(0^)^)^)
WScript "%temp%\MsgBox.vbs" "Внимание" "     Для успешной работы скрипта" "необходимо закрыть документы Word" "            Документы закрыты?"

[AlexVong]

Подскажите пожалуйста, как сделать чтобы выводилось сообщение, если например папка С:\1\ пуста, если нет - выполнялась след. команда?

[sov44]

Подскажите, можно-ли установить координаты расположения окна msgbox на рабочем столе, как сделать автозакрытие окна.

Код:

'MsgBox "text ", vbOKOnly + vbExclamation, "test"

Нужно для батника.

[Iska]

можно-ли установить координаты расположения окна msgbox на рабочем столе »

Нет. См. ниже другой вариант.

как сделать автозакрытие окна. »

Смотрите, пробуйте, выбирайте:

Код:

Option Explicit

InputBox "Скрипт-кодинг!", "Привет", "", 7500, 7500 ' in twips; as 500x500 px

With WScript.CreateObject("WScript.Shell")
	.Popup "Скрипт-кодинг!", 5, "Привет", , vbOKOnly + vbInformation
End With

' http://forum.script-coding.com/viewtopic.php?id=218
With WScript.CreateObject("Internet.HHCtrl")
	.TextPopup "Привет" & vbCrLf & "Скрипт-кодинг!", "Verdana,8", 6, 6, 6, 6
	WScript.Sleep 5000
End With

WScript.Quit 0

Нужно для батника. »

«Nircmdc.exe trayballoon …»?!

Или:

Код:

msg.exe 0 /time:5 "Привет, Скрипт-кодинг!"

[sov44]

Подскажите, как избавится от мелькания в панели быстрого запуска значка при запуске vbs

Код:

wscript.createobject("wscript.shell").popup replace(wscript.arguments(0),"\n",vbCrLf), 6, wscript.arguments(1), vbokonly + vbinformation

батником

Код:

@echo off
cscript //nologo "%~dp0msg.vbs" "текст 1 \n Текст 2" "шапка"

[Iska]

в панели быстрого запуска »

Где?! Может быть, на панели задач?

как избавится »

Метод .Popup() создаёт видимое окно, и пока оно будет отображаться — на панели задач будет окно приложения.