Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » CMD/BAT - [решено] Проблема в echo

Ответить
Настройки темы
CMD/BAT - [решено] Проблема в echo

Аватара для angel_lyucifer

Старожил


Сообщения: 175
Благодарности: 4


Конфигурация

Профиль | Отправить PM | Цитировать

Всем привет, нужна ваша помощь! У меня есть батник, он должен писать vbs скрипт но возникла ошибка, скрипт получается не полностью.
Батник мой отказывается писать определённые строки, вот мой vbs скрипт:

PHP код: Выделить весь код

Option Explicit

Dim objWshShell

Dim intTime4Show

Dim intMinimumTime

Dim intTimeStartShowing

Dim intRetValue

Set objWshShell = WScript.CreateObject("WScript.Shell")

intTime4Show = 10

intMinimumTime = 0

intTimeStartShowing = Timer

Do

intRetValue = objWshShell.Popup(_

"Необходимый файл для корректной работы VLP не найден."& vbCrLf &"Запускается автоматическое восстановление файлов.",_

intTime4Show - (Timer - intTimeStartShowing),_

"ВНИМАНИЕ, произошла ошибка VLP!",_

vbOKOnly + vbInformation)

Loop Until intRetValue = -1 Or (Timer - intTimeStartShowing)>intMinimumTime

Set objWshShell = Nothing

WScript.Quit 0 


А вот мой бат скрипт:

PHP код: Выделить весь код

echo Option Explicit >dialog_vlp.vbs

echo Dim objWshShell >>dialog_vlp.vbs

echo Dim intTime4Show >>dialog_vlp.vbs

echo Dim intMinimumTime >>dialog_vlp.vbs

echo Dim intTimeStartShowing >>dialog_vlp.vbs

echo Dim intRetValue >>dialog_vlp.vbs

echo Set objWshShell = WScript.CreateObject("WScript.Shell") >>dialog_vlp.vbs

echo intTime4Show = 10 >>dialog_vlp.vbs

echo intMinimumTime = 0 >>dialog_vlp.vbs

echo intTimeStartShowing = Timer >>dialog_vlp.vbs

echo Do >>dialog_vlp.vbs

echo intRetValue = objWshShell.Popup(_ >>dialog_vlp.vbs

echo "Необходимый файл для корректной работы VLP не найден."& vbCrLf &"Запускается автоматическое восстановление файлов.",_ >>dialog_vlp.vbs

echo intTime4Show - (Timer - intTimeStartShowing),_ >>dialog_vlp.vbs

echo "ВНИМАНИЕ, произошла ошибка VLP!",_ >>dialog_vlp.vbs

echo  vbOKOnly + vbInformation) >>dialog_vlp.vbs

echo Loop Until intRetValue = -1 Or (Timer - intTimeStartShowing)>intMinimumTime >>dialog_vlp.vbs

echo Set objWshShell = Nothing >>dialog_vlp.vbs

echo WScript.Quit 0 >>dialog_vlp.vbs 

И в итоги получаем вот такой недописанный скрипт:

PHP код: Выделить весь код

Option Explicit

Dim objWshShell 

Dim intTime4Show 

Dim intMinimumTime

Dim intTimeStartShowing 

Dim intRetValue 

Set objWshShell = WScript.CreateObject("WScript.Shell") 

intTime4Show = 10 

intMinimumTime = 0 

intTimeStartShowing = Timer 

Do

intRetValue = objWshShell.Popup(_ 

intTime4Show - (Timer - intTimeStartShowing),_ 

"ВНИМАНИЕ, произошла ошибка VLP!",_ 

vbOKOnly + vbInformation)

Loop Until intRetValue = -1 Or (Timer - intTimeStartShowing)

Set objWshShell = Nothing

WScript.Quit 0 

Пожалуйста помогите разобраться и если можно справьте мою ошибку...

-------
Век живи, век учись! =)

Отправлено: 05:03, 03-02-2014

 

Ветеран


Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать

angel_lyucifer, изначальный посыл кода vbscript: «незакрываемый» MsgBox на заданное время — Windows Script Host, HTA (VBScript, JScript) — Серый форум состоял в:
Цитата Arlekin_s:
Как сообщение типа WScript.Echo "Hello, world!!" сделать чтобы оно не закрывалось или его нельзя было закрыть определенное количество секунд.
А в Вашем варианте минимальное количество секунд равно нулю:
Код: Выделить весь код
intMinimumTime = 0
и использование данного кода становится совершенно бессмысленным, поскольку весь он может быть заменён на простое:
Код: Выделить весь код
WScript.CreateObject("WScript.Shell").Popup( _
	"Необходимый файл для корректной работы VLP не найден." & vbCrLf & _
	"Запускается автоматическое восстановление файлов.", 10, _
	"ВНИМАНИЕ, произошла ошибка VLP!", vbOKOnly + vbInformation _
)
Посему:
Код: Выделить весь код
@echo off
setlocal enableextensions enabledelayedexpansion

>"dialog_vlp.vbs" (
	echo WScript.CreateObject^("WScript.Shell"^).Popup^( _
	echo 	"Необходимый файл для корректной работы VLP не найден." ^& vbCrLf ^& _
	echo 	"Запускается автоматическое восстановление файлов.", 10, _
	echo 	"ВНИМАНИЕ, произошла ошибка VLP^!", vbOKOnly + vbInformation _
	echo ^)
)

endlocal
exit /b 0
P.S. Для сообщения об ошибке гораздо лучше подойдут константы «vbExclamation» или даже «vbCritical», но никак не «vbInformation».

Последний раз редактировалось Iska, 03-02-2014 в 06:31.

Отправлено: 06:26, 03-02-2014 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для angel_lyucifer

Старожил


Сообщения: 175
Благодарности: 4

Профиль | Отправить PM | Цитировать

Цитата Iska:
WScript.CreateObject("WScript.Shell").Popup( _
"Необходимый файл для корректной работы VLP не найден." & vbCrLf & _
"Запускается автоматическое восстановление файлов.", 10, _
"ВНИМАНИЕ, произошла ошибка VLP!", vbOKOnly + vbInformation _
)
»
Данный vbs скрипт не работает!! -(

-------
Век живи, век учись! =)

Отправлено: 23:07, 03-02-2014 | #3


Ветеран


Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать

angel_lyucifer, ага . Теперь скобки при Popup лишние.

Пробуйте:
Код: Выделить весь код
@echo off
setlocal enableextensions enabledelayedexpansion

>"dialog_vlp.vbs" (
	echo WScript.CreateObject^("WScript.Shell"^).Popup _
	echo 	"Необходимый файл для корректной работы VLP не найден." ^& vbCrLf ^& _
	echo 	"Запускается автоматическое восстановление файлов.", 10, _
	echo 	"ВНИМАНИЕ, произошла ошибка VLP^!", vbOKOnly + vbExclamation
)

endlocal
exit /b 0
Это сообщение посчитали полезным следующие участники:

Отправлено: 08:48, 04-02-2014 | #4


Аватара для angel_lyucifer

Старожил


Сообщения: 175
Благодарности: 4

Профиль | Отправить PM | Цитировать

Iska Спасибо, теперь работает!

-------
Век живи, век учись! =)

Отправлено: 19:49, 04-02-2014 | #5



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » CMD/BAT - [решено] Проблема в echo

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
CMD/BAT - Расширение возможностей Echo Anonymоus Скриптовые языки администрирования Windows 6 22-03-2021 01:16
CMD/BAT - [решено] Новая строка в echo rudimko Скриптовые языки администрирования Windows 2 20-02-2013 15:01
CMD/BAT - Проблема:) echo yrambler2001 Скриптовые языки администрирования Windows 2 27-08-2012 15:22
CMD/BAT - не работает @echo off mitiya Скриптовые языки администрирования Windows 2 10-01-2009 17:37
команда ECHO message cer50nun Программирование и базы данных 1 17-09-2008 14:23


« Предыдущая тема | Следующая тема »


 
Переход