ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Закрыть прогу
10 сообщений из 10, страница 1 из 1
Закрыть прогу
    #34287245
Morion
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Morion
Гость
Как можно закрыть запущенное приложение?

Например, я октрыл программу Morion так:

Код: plaintext
1.
2.
3.
4.
Dim e As New Shell

...

e.Open "C:\Program Files\Morion\Morion.exe"

А теперь хочу, чтобы при нажатии на кнопку "Закрыть" эта самая программа закрывалась?
...
Рейтинг: 0 / 0
27.01.2007, 15:07
| Ответить | Цитировать | Написать  
Закрыть прогу
    #34287252
Andrey911
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrey911
Гость
Почему у меня так не получаеться: Dim e As New Shell ?
или ты не в VB6 работаешь ? Уточни пожалуйста.
...
Рейтинг: 0 / 0
27.01.2007, 15:17
| Ответить | Цитировать | Написать  
Закрыть прогу
    #34287365
Morion
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Morion
Гость
Andrey911Почему у меня так не получаеться: Dim e As New Shell ?
или ты не в VB6 работаешь ? Уточни пожалуйста.

http://]http://www.sql.ru/forum/actualthread.aspx?tid=246377&hl=shell

как тут.
...
Рейтинг: 0 / 0
27.01.2007, 18:04
| Ответить | Цитировать | Написать  
Закрыть прогу
    #34287368
Morion
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Morion
Гость
То есть сначала надо добавить новый компонент Microsoft Shell Controls And Automation
...
Рейтинг: 0 / 0
27.01.2007, 18:08
| Ответить | Цитировать | Написать  
Закрыть прогу
    #34287646
Andrey911
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrey911
Гость
Попробуй упростить одной строчкой запуск без подключения дополнительных библеотек
SHELL "Путь и название фанйла"[,Возможно выбрать параметр окна при открытии]
...
Рейтинг: 0 / 0
28.01.2007, 00:31
| Ответить | Цитировать | Написать  
Закрыть прогу
    #34287754
Morion
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Morion
Гость
Andrey911Попробуй упростить одной строчкой запуск без подключения дополнительных библеотек
SHELL "Путь и название фанйла"

Так я уже пытался. Появляется ошибка.

Andrey911[,Возможно выбрать параметр окна при открытии]

Можешь про это уточнить???
...
Рейтинг: 0 / 0
28.01.2007, 10:10
| Ответить | Цитировать | Написать  
Закрыть прогу
    #34287870
Andrey911
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrey911
Гость
Если у тебя Windows XP, то вот тебе работающий пример, а если другой, то пишы свой путь и файл
Все выиды параметров открытия
notepad.exe это блокнот
Shell "C:\WINDOWS\system32\notepad.exe", vbMaximizedFocus
Shell "C:\WINDOWS\system32\notepad.exe", vbMinimizedFocus
Shell "C:\WINDOWS\system32\notepad.exe", vbHide
Shell "C:\WINDOWS\system32\notepad.exe", vbMinimizedNoFocus
Shell "C:\WINDOWS\system32\notepad.exe", vbNormalFocus
Shell "C:\WINDOWS\system32\notepad.exe", vbNormalNoFocus
1. развернутое окно
2. свернутое
3. vbHide по моему скрить означает (я не пробовал)
4. свернутое и фокус не передает этой програме
5. свернутое окно
6. свернутое окно и фокус не передает этой програме
Фокус, если не знаешь это выделения, а в даном случае есть окна активные а есть пасивные. На котором фокус - то и есть активное. В любом окне, где много кнопочек попробуй нажать несколько раз клавишу TAB и ты увидишь как фокус переходит с одного елемента на другой.
...
Рейтинг: 0 / 0
28.01.2007, 12:58
| Ответить | Цитировать | Написать  
Закрыть прогу
    #34287983
Morion
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Morion
Гость
Спасибо. Это я усвоил. А как теперь открытое приложение закрыть?

А что-нибудь с ним ещё можно сделать?
...
Рейтинг: 0 / 0
28.01.2007, 14:50
| Ответить | Цитировать | Написать  
Закрыть прогу
    #34288027
Andrey911
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrey911
Гость
По этому вопросу тебе ничем не могу конкретно помочь.
В моей книге есть...
Пример1Как передать любой видимой программе код штучного нажатия клавиш
Тоисть теоретически я припускаю что можно передать на эту программу комбинацию Alt+F4, но я чесно говоря пробовал только передавать разные символы и ентер для автоматического заполнения форм. Если тебе нужно, тогда я поищу...
Пример2Как посмотреть список работающих программ и переход на нее
тоже надо времья...
...
Рейтинг: 0 / 0
28.01.2007, 15:44
| Ответить | Цитировать | Написать  
Закрыть прогу
    #34289573
Nikz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nikz
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_CLOSE = &H10

Private Sub Command1_Click()
Dim lHWND As Long
Shell "notepad"
lHWND = FindWindow(vbNullString, "Untitled - Notepad")
Call SendMessage(lHWND, WM_CLOSE,  0 ,  0 )
End Sub
...
Рейтинг: 0 / 0
29.01.2007, 13:27
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Закрыть прогу
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=34287754&tid=2164614]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 415ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 3ms
others: 220ms
total:  719ms
созд. / загр.: 719ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]