закрытие чужой(своей) программы / Visual Basic

ReSQL.ru

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

Гость

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

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

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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

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

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

закрытие чужой(своей) программы

#38450950

Клевер

Участник

Сообщения: 216

Рейтинг: 0 / 0

моя программа имеет множество версий(ясно дело, чем новее, тем лучше), поэтому перед установкой она должна проверить, имеется ли на компе старая версия, удалить её, установиться. я делаю это так:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.

Private Sub ystan()
On Error GoTo Povtor
If Dir(putbb & "\Down.exe") <> "" Then
Shell "taskkill.exe /f /im Down.exe"
Kill putbb & "\Down.exe"
Exit Sub
Povtor:
Timer13.Enabled = True
Exit Sub
End Sub

Private Sub Timer13_Timer()'интервал 50-100мск
Timer13.Enabled = False
ystan
End Sub

всё работает как надо, если старая версия программы запущена. но если она и так выключена, то код даёт taskkill'у команду закрыть процесс Down.exe, затем устанавливает новую версию, после чего taskkill убивает процесс новой программы! т.е. программа вырубает сама себя, не успев установиться полностью. и, соб-но, вопрос:

как проверить, запущен ли тот или иной процесс, правильно убить его?

...

Рейтинг:

0 / 0

02.11.2013, 19:17

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

закрытие чужой(своей) программы

#38451045

i45

Участник

Сообщения: 8 244

Рейтинг: 0 / 0

Клевер,

Exit Sub перед End Sub не нужен.

http://www.nullskull.com/q/20914/how-to-detect-an-open-programe-g--winword.aspx

...

Рейтинг:

0 / 0

02.11.2013, 22:00

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

закрытие чужой(своей) программы

#38451074

Клевер

Участник

Сообщения: 216

Рейтинг: 0 / 0

i45,

не тестил код на случаи, когда процесс отсутствует, их несколько, либо процесс свой, но при беглом запуске всё работает как надо, спасибо)

...

Рейтинг:

0 / 0

02.11.2013, 23:02

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

закрытие чужой(своей) программы

#38451429

i45

Участник

Сообщения: 8 244

Рейтинг: 0 / 0

Клевер,

My pleasure

:)

...

Рейтинг:

0 / 0

03.11.2013, 22:52

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

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

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

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

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

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

start [/forum/topic.php?fid=60&msg=38450950&tid=2156712]:	0ms
get settings:	11ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	68ms
get topic data:	14ms
get forum data:	2ms
get page messages:	44ms
get tp. blocked users:	1ms
others:	14ms

total:	176ms