Серый форум — VBScript: Время "Незакрываемости" скрпита

Re: VBScript: Время "Незакрываемости" скрпита

null@example.com (-TOXA-) — Tue, 12 Jun 2012 14:09:45 +0000

Ааа..я понял, это просто функция POPUP'а

Set a = CreateObject("Wscript.Shell")
aa=InputBox("Введите число секунд, через которые следующие окно самостояетельно закроется","Время")
a.popup "Это сообщение исчезнет через "&aa&" секунд(ы)",aa,"Почему?"

Re: VBScript: Время "Незакрываемости" скрпита

null@example.com (-TOXA-) — Tue, 05 Jun 2012 20:34:13 +0000

А через MessageBox можно так сделать?!

Re: VBScript: Время "Незакрываемости" скрпита

null@example.com (smaharbA) — Mon, 04 Jun 2012 11:10:10 +0000

+ месаджбокс удобен когда надо сделать модальное для системы окно

Re: VBScript: Время "Незакрываемости" скрпита

null@example.com (smaharbA) — Mon, 04 Jun 2012 11:08:42 +0000

попап если не активен может не считать время, старая песня

Re: VBScript: Время "Незакрываемости" скрпита

null@example.com (-TOXA-) — Fri, 01 Jun 2012 17:24:58 +0000

alexii,хм..Сейчас закрылся,а тогда я 14 минут ждал,и безрезультатно:(

Re: VBScript: Время "Незакрываемости" скрпита

null@example.com (alexii) — Fri, 01 Jun 2012 17:02:26 +0000

-TOXA-, тогда странно, почему у Вас не закрывается окно сообщения из кода, приведённого в посте #7. У меня оно закрывается без каких-либо действий пользователя через заданные 60 секунд.

Re: VBScript: Время "Незакрываемости" скрпита

null@example.com (-TOXA-) — Fri, 01 Jun 2012 15:38:30 +0000

alexii,Сначала высвечивается "Текст", а через пять секунд высвечивается "-1",У меня тоже XP SP3..

Re: VBScript: Время "Незакрываемости" скрпита

null@example.com (alexii) — Fri, 01 Jun 2012 15:17:58 +0000

-TOXA-, у меня Windows XP SP3. Работает.

С каким результатом у Вас исполнится такое:

Option Explicit

Dim objWshShell

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

WScript.Echo objWshShell.Popup("Текст", 5, "Заголовок", vbOKOnly + vbInformation)

Set objWshShell = Nothing

WScript.Quit 0

Re: VBScript: Время "Незакрываемости" скрпита

null@example.com (-TOXA-) — Fri, 01 Jun 2012 11:49:24 +0000

alexii, Извините:), но когда я даже убрал из скрипта + &H40000, и у меня получилось:

Option Explicit

Dim objWshShell

Dim intTime4Show
Dim intMinimumTime
Dim intTimeStartShowing
Dim intRetValue

Set objWshShell = WScript.CreateObject("WScript.Shell")
intTime4Show    = 60
intMinimumTime  = 10                
intTimeStartShowing = Timer                                                

Do
intRetValue = objWshShell.Popup( _
"Здесь" & vbCrLf & "некий" & vbCrLf & "текст", _
intTime4Show - (Timer - intTimeStartShowing), _
"Тут заголовок", _
vbOKOnly + vbInformation)
Loop Until intRetValue = -1 Or (Timer - intTimeStartShowing) > intMinimumTime

Set objWshShell = Nothing

WScript.Quit 0

Опять не закрывается, либо я что-то не правильно сделал, либо на разных ОС VBS функции различны, как например открытие диалога на Windows 7

Re: VBScript: Время "Незакрываемости" скрпита

null@example.com (alexii) — Thu, 31 May 2012 22:45:39 +0000

-TOXA-, я Вас поздравляю — у меня нынче тоже не закрывается . А раньше-то работало . Опытным путём выяснил, что если убрать вывод окна поверх остальных окон (MB_TOPMOST — «+ &H40000»), то работает как надо и теперь. Интересно, какое из обновлений могло привести к такому изменению поведения?!

Добавил замечание по обнаруженному Вами поведению в пост в Коллекции. Спасибо!

Re: VBScript: Время "Незакрываемости" скрпита

null@example.com (-TOXA-) — Thu, 31 May 2012 21:50:07 +0000

alexii,Извините,но скрипт по ссылке не закрывается через 10 секунд..или опять компьютер глючит..Но я уже жду 15 минут,и он не закрывается,только при нажатии Ок после 10 секунд.:)

Re: VBScript: Время "Незакрываемости" скрпита

null@example.com (alexii) — Thu, 31 May 2012 21:15:02 +0000

-TOXA-, в приведённом Вами скрипте окно сообщения MessageBox не закроется ни через 20 секунд, ни через 20 часов. Оно не закроется, пока пользователь не нажмёт «OK».

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

Но основное там — минимальное время показа; именно это пожелание участника, задавшего вопрос, вызвало данную реализацию и появление скрипта в Коллекции.

Re: VBScript: Время "Незакрываемости" скрпита

null@example.com (-TOXA-) — Thu, 31 May 2012 21:01:17 +0000

alexii, В том скрипте, как я понял, msgbox не будет закрываться 10 секунд, в моем случае не закрывается 20 секунд. А почему Вы сказали: "Не перестанет."?У меня вроде все нормально работает:)Или у меня просто компьютер особенный?:)Проверьте, пожалуйста, может все-таки будет нормально работать?:)Или хотя бы объясните почему не будет:(Я ведь новичок:)

Re: VBScript: Время "Незакрываемости" скрпита

null@example.com (alexii) — Thu, 31 May 2012 20:15:45 +0000

-TOXA-, значит, Вы действительно не поняли суть того скрипта. Просто попробуйте его запустить — станет ясно.

If Time < b Then MsgBox "Это сообщение перестанет высвечиваться через 20 секнд после включения"

Не перестанет.

VBScript: Время "Незакрываемости" скрпита

null@example.com (-TOXA-) — Thu, 31 May 2012 20:01:59 +0000

Я уже видел подобное здесь ,но я тут написал скрипт, который, по моему мнению, легче выглядит, и нормально работает,в этом скрипте может разобраться любой новичок (хотя я сам такой).Работа скрипта состоит в том, что на время скрипт не будет выключатся. Поставить время работы скрипта можно от нескольких секунд,до нескольких лет.Вообщем смотрите, комментируйте, исправляйте ошибки=)

Dim a,b
a=Time
b=TimeSerial(Hour(a),Minute(a),Second(a)+20)
Do
If Time < b Then MsgBox "Это сообщение перестанет высвечиваться через 20 секнд после включения"
If Time >= b Then Wscript.Quit
Loop