Отключить MsgBox в скрипте

@George_Smith · Регистрация: 18.08.2013

Author24 — интернет-сервис помощи студентам

Здравствуйте. Имеется скрипт для создания точки восстановления в Windows 7 (на 8 не работает):

Visual Basic

'Unattended System Restore Point
'sysrestorepoint.vbs
'© Doug Knox - rev 02/11/2002
'Downloaded from [url]www.dougknox.com[/url] 
'Extracted from original code by Bill James - [url]www.billsway.com[/url]
 
Set sr = getobject("winmgmts:\\.\root\default:Systemrestore")
 
msg = "New Restore Point successfully created." & vbCR
msg = msg & "It is listed as: " & vbCR
msg = msg & "Automatic Restore Point " & Date & " " & Time
 
'Put a ' in front of the next five lines to disable the Success Failed Prompt.
If (sr.createrestorepoint("Automatic Restore Point", 0, 100)) = 0 Then
    MsgBox msg
Else
    MsgBox "Restore Point creation Failed!"
End If
 
'Remove the ' from the next 3 lines to only alert you if the process failed
'If (sr.createrestorepoint("Automatic Restore Point", 0, 100)) <> 0 Then
'    MsgBox "Restore Point creation Failed!"
'End If

Да, в самом скрипте написано, мол, если хотите отключить сообщения, то закомменьте такие-то строки. Но почему-то не работает, MessageBox появляется с уведомлением о успешности или провале создания точки восстановления.

Dragokas · 31.07.2016, 15:55

Сообщение от George_Smith

Но почему-то не работает

Дык, удалите (закомментируйте) все Msgbox. Там у Вас еще 2.

Сообщение от George_Smith

на 8 не работает

Почему так решили?

@George_Smith · 31.07.2016, 17:37 **[ТС]**

Сообщение от Dragokas

Дык, удалите (закомментируйте) все Msgbox. Там у Вас еще 2.

Да в том-то и дело, что не помогает. Насколько я понял, точку восстановления создает строка

Visual Basic

1	Set sr = getobject("winmgmts:\\.\root\default:Systemrestore")

А все остальные только генерируют messagebox. Так вот, комментирую все строки, кроме вышеупомянутой, и при запуске скрипта всплывает messagebox.
Может, имеет значение то, что запускаю я его не вручную, а через планировщик заданий? Т.е. создано задание, каждый день, в 18:00 запускать данный скрипт.

Сообщение от Dragokas

Почему так решили?

На ноутбуке установлена Windows 8.1, при запуске скрипт выдает ошибку.

Dragokas · 31.07.2016, 18:13

Что значит не работает, закомментируйте строку 15 и 17.

Добавлено через 14 секунд

Сообщение от George_Smith

На ноутбуке установлена Windows 8.1, при запуске скрипт выдает ошибку.

Какую?

@George_Smith · 31.07.2016, 20:28 **[ТС]**

Сообщение от Dragokas

Что значит не работает, закомментируйте строку 15 и 17.

Не работает, значит комментирование этих строк не приносит результата: messagebox все равно появляется. Я, хоть и в VBS полнейший профан, английский маленько знаю, прочитал, что мол, для отключения сообщения закомментируйте эти строки:

Visual Basic

'Put a ' in front of the next five lines to disable the Success Failed Prompt.
If (sr.createrestorepoint("Automatic Restore Point", 0, 100)) = 0 Then
    MsgBox msg
Else
    MsgBox "Restore Point creation Failed!"
End If

Блин, комментил их, комментил весь скрипт, кроме 7 строки - нуль эффекта.

Сообщение от Dragokas

Какую?

Честно, не помню, я для проверки нужно доставать и включать ноут - неохота. Да и фиг с ним. На win7 работает идеально, только бесит этот messagebox, из-за него частенько приложения теряют фокус, игры переключаются в оконный режим и прочие радости

Dragokas · 31.07.2016, 20:35

Сообщение от George_Smith

Не работает, значит комментирование этих строк не приносит результата: messagebox все равно появляется. Я, хоть и в VBS полнейший профан, английский маленько знаю, прочитал, что мол, для отключения сообщения закомментируйте эти строки:

Из кода 1-го поста не видно, что Вы это сделали.

Сообщение от George_Smith

messagebox все равно появляется

Покажите скриншот сообщения.

@George_Smith · 31.07.2016, 21:23 **[ТС]**

Вот, смотрите.

Сообщение от Dragokas

Из кода 1-го поста не видно, что Вы это сделали.

У меня есть две копии этого скрипта. Над одним я экспериментирую, а другой лежит на всякий случай. В 1-ом посте я код как-раз и вставлял со второго скрипта.

Dragokas · 31.07.2016, 21:50

Скриншот 1:
Зачем Вы закомментили все?

Я вам русским языком говорю закомментировать только 15-ю и 17-ю строку?

Сообщение от George_Smith

У меня есть две копии этого скрипта. Над одним я экспериментирую, а другой лежит на всякий случай. В 1-ом посте я код как-раз и вставлял со второго скрипта.

Ну так тогда зачем выкладывать на форум заведомо неверный вариант с MsgBox-ами, от которых Вы как раз и хотите избавиться?

Скриншот 2.
Тут и ежу понятно, что Вы запускаете тот вариант, в котором прописана строка № 15 с MsgBox и вот этим текстом:

Сообщение от George_Smith

msg = "New Restore Point successfully created." & vbCR
msg = msg & "It is listed as: " & vbCR
msg = msg & "Automatic Restore Point " & Date & " " & Time

@Dmitrii · 01.08.2016, 06:10

Сообщение от George_Smith

... на 8 не работает...

Работает, но нужны повышенные привилегии.

@George_Smith · 01.08.2016, 07:49 **[ТС]**

Сообщение от Dragokas

Тут и ежу понятно, что Вы запускаете тот вариант, в котором прописана строка № 15 с MsgBox и вот этим текстом

Ежи не такие и умные :-) В том то и дело, что на втором скрине запущен скрипт, который показан на 1 скриншоте.

Короче, судя по всему, тему можно закрывать.
c:\windows\System32\point.vbs - адрес скрипта. Решил прикола ради переместить в другое место. И вуаля - все заработало - messagebox отключен.

Dragokas, спасибо за помощь.

Сообщение от Dmitrii

Работает, но нужны повышенные привилегии.

В смысле, запускать от имени администратора?

@Dmitrii · 01.08.2016, 08:13

Сообщение от George_Smith

... запускать от имени администратора?

Да.

Dragokas 17996 / 7697 / 892 Регистрация: 25.12.2011 Сообщений: 11,470 Записей в блоге: 16
	31.07.2016, 15:55	2
	Сообщение от George_Smith Но почему-то не работает Дык, удалите (закомментируйте) все Msgbox. Там у Вас еще 2. Сообщение от George_Smith на 8 не работает Почему так решили? 0

Dragokas 17996 / 7697 / 892 Регистрация: 25.12.2011 Сообщений: 11,470 Записей в блоге: 16
	31.07.2016, 18:13	4
	Что значит не работает, закомментируйте строку 15 и 17. Добавлено через 14 секунд Сообщение от George_Smith На ноутбуке установлена Windows 8.1, при запуске скрипт выдает ошибку. Какую? 0

Dragokas 17996 / 7697 / 892 Регистрация: 25.12.2011 Сообщений: 11,470 Записей в блоге: 16
	31.07.2016, 20:35	6
	Сообщение от George_Smith Не работает, значит комментирование этих строк не приносит результата: messagebox все равно появляется. Я, хоть и в VBS полнейший профан, английский маленько знаю, прочитал, что мол, для отключения сообщения закомментируйте эти строки: Из кода 1-го поста не видно, что Вы это сделали. Сообщение от George_Smith messagebox все равно появляется Покажите скриншот сообщения. 0

@George_Smith 24 / 23 / 6 Регистрация: 18.08.2013 Сообщений: 637
	31.07.2016, 21:23 [ТС]	7
	Вот, смотрите. Сообщение от Dragokas Из кода 1-го поста не видно, что Вы это сделали. У меня есть две копии этого скрипта. Над одним я экспериментирую, а другой лежит на всякий случай. В 1-ом посте я код как-раз и вставлял со второго скрипта. Миниатюры 0

Dragokas 17996 / 7697 / 892 Регистрация: 25.12.2011 Сообщений: 11,470 Записей в блоге: 16
	31.07.2016, 21:50	8
	Скриншот 1: Зачем Вы закомментили все? Я вам русским языком говорю закомментировать только 15-ю и 17-ю строку? Сообщение от George_Smith У меня есть две копии этого скрипта. Над одним я экспериментирую, а другой лежит на всякий случай. В 1-ом посте я код как-раз и вставлял со второго скрипта. Ну так тогда зачем выкладывать на форум заведомо неверный вариант с MsgBox-ами, от которых Вы как раз и хотите избавиться? Скриншот 2. Тут и ежу понятно, что Вы запускаете тот вариант, в котором прописана строка № 15 с MsgBox и вот этим текстом: Сообщение от George_Smith msg = "New Restore Point successfully created." & vbCR msg = msg & "It is listed as: " & vbCR msg = msg & "Automatic Restore Point " & Date & " " & Time 0

@Dmitrii 2618 / 548 / 109 Регистрация: 21.03.2012 Сообщений: 1,051
	01.08.2016, 06:10	9
	Сообщение от George_Smith ... на 8 не работает... Работает, но нужны повышенные привилегии. 0

@George_Smith 24 / 23 / 6 Регистрация: 18.08.2013 Сообщений: 637
	01.08.2016, 07:49 [ТС]	10
	Сообщение от Dragokas Тут и ежу понятно, что Вы запускаете тот вариант, в котором прописана строка № 15 с MsgBox и вот этим текстом Ежи не такие и умные :-) В том то и дело, что на втором скрине запущен скрипт, который показан на 1 скриншоте. Короче, судя по всему, тему можно закрывать. c:\windows\System32\point.vbs - адрес скрипта. Решил прикола ради переместить в другое место. И вуаля - все заработало - messagebox отключен. Dragokas, спасибо за помощь. Сообщение от Dmitrii Работает, но нужны повышенные привилегии. В смысле, запускать от имени администратора? 0

@Dmitrii 2618 / 548 / 109 Регистрация: 21.03.2012 Сообщений: 1,051
	01.08.2016, 08:13	11
	Сообщение от George_Smith ... запускать от имени администратора? Да. 0