С Новым годом! Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 23.11.2010
Сообщений: 3

Закрытие приложения через ВБ

23.11.2010, 00:29. Показов 1273. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Всем доброго времени суток))
Я тут зарегистрировался только что, так что пожалуйста не сильно ругайтесь на меня))

Вобщем дело такое..) надо сделать програмку, которая открывала бы калькулятор (calc.exe) и Access (msaccess.exe) и закрывала бы эти программы, и ещё одна кнопка, которая закрывала бы созданную программу. (Надеюсь понятно обьяснил))
Почему то с файлов выложенных учителем я не нашёл того чего искал, а именно кода для открытия и закрытия приложений, но в просторах инета один код я достал, а второго всё никак не могу найти, помогите мне с ним пожалуйста, буду очень благодарен

это мой проект, сначала только на примере калькулятора, первая кнопка открывает его, вторая кнопка должна его закрывать (я хз каким кодом это можно выразить а третья кнопка закрывает программу)
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim RetVal
        RetVal = Shell("C:\WINDOWS\system32\CALC.EXE", 1)
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        End
 
    End Sub
End Class
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
23.11.2010, 00:29
Ответы с готовыми решениями:

Закрытие стороннего приложения
Помогите плиз. МОжно ли сделать так: (говорю как бы уже про готовую программу): на форме есть кнопка, при нажатии на эту кнопку,...

Закрытие Excel из приложения ВБ
Проблемма вот в чём: Есть файл экселя и всё я с ним отлично делаю из ВБ но после закрытия повторно он не запускается без перезапуска...

Закрытие приложения через SLOT(quit()
Нужно закрыть приложение через меню такой вот строчкой: mnFile -> addAction("Exit", &a, SLOT(quit())); которая находится в отличном от...

3
 Аватар для YuraAAA
1605 / 1337 / 291
Регистрация: 25.10.2009
Сообщений: 3,487
Записей в блоге: 2
23.11.2010, 01:04
Что бы закрыть приложение используем этот код
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
  Dim strTerminateThis As String
        Dim objWMIcimv2 As Object
        Dim objProcess As Object
        Dim objList As Object
        Dim intError As Integer
 
        strTerminateThis = "calc.exe" 'Имя процесса сюда <----------
 
 
        objWMIcimv2 = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\.\root\cimv2") 
        objList = objWMIcimv2.ExecQuery _
        ("select * from win32_process where name='" & strTerminateThis & "'") 'Ищем процесс
 
 
        If objList.Count = 0 Then 'Если =0, то процесс не найден
 
            objWMIcimv2 = Nothing
            objList = Nothing
            objProcess = Nothing
            Me.Close()
 
        Else
            'Иначе - завершаем
 
            For Each objProcess In objList
 
                intError = objProcess.Terminate 'Завершаем процесс и соответственно все его потоки
                'Если вернули в intError 0, то всё успешено, иначе - закрываемся
                If intError <> 0 Then
 
                    Me.Close()
 
                End If
            Next
 
 
 
            objWMIcimv2 = Nothing
            objList = Nothing
            objProcess = Nothing
            Me.Close()
End If
А запуск через Shell, как у Вас
0
0 / 0 / 0
Регистрация: 23.11.2010
Сообщений: 3
23.11.2010, 01:32  [ТС]
Хмм.. интересненько)) думал там код попроще))

но всё равно благодарю! вы мой спаситель))))
0
Частенько бываю
 Аватар для Vlanib
750 / 331 / 42
Регистрация: 20.06.2007
Сообщений: 854
23.11.2010, 04:53
Я в свое время подобную задачу решал вот так:
Visual Basic
1
2
3
4
5
6
7
8
9
Dim RetValue
Private Sub cmdOpenButton_Click()
RetValue = Shell("c:\calc.exe",1)
End Sub
 
Private Sub cmdCloseButton_Click()
AppActivate RetValue
SendKeys "%{F4}
End Sub
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
23.11.2010, 04:53
Помогаю со студенческими работами здесь

Закрытие приложения через нажатие на кнопку в form2
Есть 2 формы. Во второй форме есть кнопка, при нажатии на которую form1 &amp; form2 должны закрываться. Как это связать в одну команду?

Закрытие приложения
В общем такая проблема, открываю файл и должна начаться загрузка файла, но вместо этого, программа закрывается using System; using...

Закрытие приложения
Добрый день! Вопрос и сам способ тупой, как и я сам, но: Закрываю приложение через Enviroment.Exit(0); Куда правильнее...

Закрытие приложения.
У меня возникли проблемы с методом finish(), подскажите как можно закрыть приложение без ошибки неожиданной остановки (Выскакивает окно...

Закрытие приложения
Как полностью закрыть приложение в коде? Платформа windows phone 8.1


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru