Программы и управление их окнами...

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
young
Обычный пользователь
Обычный пользователь
 
Сообщения: 95
Зарегистрирован: 19.06.2003 (Чт) 15:12
Откуда: Липецк

Программы и управление их окнами...

Сообщение young » 04.11.2003 (Вт) 17:21

Доброго вам всем времени суток, дамы и господа! 8)
Есть такое дело. нужно нопасать программу удалённо управляющую системой, так вот, застопрился над следующей функцие.
Отображение списка открытых программ в компоненин list, и по возможности, закрывание их, сворачивание, разворачивание, перетаскивание(именно типа открывается форма один в один как сама прога и вы её таскаете) смена фокуса между прогами, кто знает. плиз обьясните на примере просто локального компа, потом сам переведу в сетевую форму....

ZeroX
Бывалый
Бывалый
 
Сообщения: 207
Зарегистрирован: 29.04.2003 (Вт) 12:36
Откуда: Мой адрес не дом и не улица, мой адрес Советский Союз

Сообщение ZeroX » 04.11.2003 (Вт) 17:57

Поищи здесь, примерчик был эт точно
Каждый warning мечтает стать error'om

young
Обычный пользователь
Обычный пользователь
 
Сообщения: 95
Зарегистрирован: 19.06.2003 (Чт) 15:12
Откуда: Липецк

Сообщение young » 05.11.2003 (Ср) 13:25

ZeroX - там всё до такой степени в свалку сваленно, что что-либо пытаться найти, практически бесполезно. Час искал, так и не откопал.
Да, и ещё, закрытие окна нашёл на vbsterrets.ru, ну там ещё кой чё накопал, но как получить список открытых программ?! Ctrl-Alt-Delete - это же как-то делает! :shock:

Susanin
Начинающий
Начинающий
 
Сообщения: 21
Зарегистрирован: 20.06.2003 (Пт) 19:57
Откуда: Самара

Сообщение Susanin » 05.11.2003 (Ср) 15:31

Посмотри
http://www.mtu-net.ru/sharig/IndexMainTopic.htm
Я когда этот сайт нашел - скачал его полностью..
Susanin

young
Обычный пользователь
Обычный пользователь
 
Сообщения: 95
Зарегистрирован: 19.06.2003 (Чт) 15:12
Откуда: Липецк

Сообщение young » 06.11.2003 (Чт) 9:11

Susanin - бедный ты бедный! Наверное трое суток качал!? :D
Короче, кой чё откопал:
Нужно налепить на форму элемент list и запихнуть код:
Код: Выделить всё
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long,
    ByVal wCmd As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA"
    (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias
    "GetWindowTextLengthA" (ByVal hwnd As Long) As Long

Const GW_HWNDFIRST = 0
Const GW_HWNDNEXT = 2

Но чё-то не парит, мож это из-за w2k, али у меня чё-то не парит, кто может, попробуйте, если работает, плиз, киньте готовый исходник в мыло young@list.ru

Kostyan
Постоялец
Постоялец
 
Сообщения: 439
Зарегистрирован: 20.09.2002 (Пт) 4:14
Откуда: Россия, Уссурийск

Сообщение Kostyan » 10.11.2003 (Пн) 7:59

young :lol: Ну рассмешил, какой же это код, это только декларация (объявление) функций и констант. И заставить работать эти строчки невозможно...
А насчет твоей проблемы - есть такая API-функция, сейчас не вспомню как называется... она делает "снимок" системы в данный момент, в снимке содержатся данные о всех запущенных прогах. Я постараюсь найти её, как только - так сообщу.

Susanin
Начинающий
Начинающий
 
Сообщения: 21
Зарегистрирован: 20.06.2003 (Пт) 19:57
Откуда: Самара

Сообщение Susanin » 10.11.2003 (Пн) 9:40

2 young
Да ничего, на 2 Мб/с быстренько так скачивался.... :D
А по поводу кода - ну так там прямо твой пример есть, полностью, добавь те элементы, что там в примере сверху написано, и скопируй ВЕСЬ код. У меня тоже W2k и все примеры бычат отменно :wink:
Susanin
А все ли дороги ведут в Рим?

Susanin
Начинающий
Начинающий
 
Сообщения: 21
Зарегистрирован: 20.06.2003 (Пт) 19:57
Откуда: Самара

Сообщение Susanin » 10.11.2003 (Пн) 9:46

ЗЫ. Примерчик тебе отправил :D
Susanin
А все ли дороги ведут в Рим?


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 6

    TopList