Скрипт закрывающий окно / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

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

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Скрипт закрывающий окно

3 сообщений из 3, страница 1 из 1

Скрипт закрывающий окно

#38766797

Dead-Master

Гость

Нужен скрипт работающий в фоновом режиме и закрывающий окно ошибки, нашёл такой пример. но к сожалению он не работает

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

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

While True Do
	If WShell.AppActivate("Microsoft Visual C++ Runtime Error") Then
		WShell.SendKeys "{ENTER}"
		Exit Do
	End If
WEnd

Set WShell = Nothing
WScript.Quit 1

Ошибка в строке 8 символ 1, предполагается наличие инструкции.

...

Рейтинг:

0 / 0

04.10.2014, 10:00

| Ответить | Цитировать | Написать

Скрипт закрывающий окно

#38766798

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

Set WShell = WScript.CreateObject("WScript.Shell")
x = false
do
	If WShell.AppActivate("Microsoft Visual C++ Runtime Error") Then
		WShell.SendKeys "{ENTER}"
		x = true
	End If
loop until x

Set WShell = Nothing
WScript.Quit 1

...

Рейтинг:

0 / 0

04.10.2014, 10:10

| Ответить | Цитировать | Написать

Скрипт закрывающий окно

#38766821

Dead-Master

Гость

спс, работает.
добавил ещё sleep (1000) в цикле дабы проц не кушало сильно :)

...

Рейтинг:

0 / 0

04.10.2014, 11:25

| Ответить | Цитировать | Написать

3 сообщений из 3, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Скрипт закрывающий окно

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=38766798&tid=2156186]:	0ms
get settings:	9ms
get forum list:	11ms
check forum access:	3ms
check topic access:	3ms
track hit:	38ms
get topic data:	9ms
get forum data:	2ms
get page messages:	38ms
get tp. blocked users:	1ms
others:	12ms

total:	126ms