Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Адрес процесса 
:(
    Опции темы
Dred
Дата 11.3.2007, 12:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 71
Регистрация: 6.1.2007

Репутация: нет
Всего: нет
Как узнать адреса запущеных процессов процессов? smile 
PM MAIL   Вверх
W4FhLF
Дата 11.3.2007, 12:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


found myself
****


Профиль
Группа: Участник Клуба
Сообщений: 2831
Регистрация: 2.12.2006

Репутация: 3
Всего: 121
Вопрос неккоректен. Адреса чего именно? MZ заголовка или какого-то конкретного модуля в процессе? Адреса точки входа в программу? Адреса в физической или виртуальной памяти?


--------------------
"Бог умер" © Ницше
"Ницше умер" © Бог
PM ICQ   Вверх
Dred
Дата 11.3.2007, 13:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 71
Регистрация: 6.1.2007

Репутация: нет
Всего: нет
Например запушена прога, и мне надо знать папку *.ехе файла....
PM MAIL   Вверх
W4FhLF
Дата 11.3.2007, 14:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


found myself
****


Профиль
Группа: Участник Клуба
Сообщений: 2831
Регистрация: 2.12.2006

Репутация: 3
Всего: 121
А адрес тут причём? Что тебе известно об этой программе?



--------------------
"Бог умер" © Ницше
"Ницше умер" © Бог
PM ICQ   Вверх
Dred
Дата 11.3.2007, 14:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 71
Регистрация: 6.1.2007

Репутация: нет
Всего: нет
Ну не адрес а путь к *.ехе файлу...... всех процессов 

К примеру в процесах запущена прога Прога.ехе
И мне надо узнать путь к ней(размещение ее на диске). "D:\Progs\Прога.ехе"


 smile 



Это сообщение отредактировал(а) Dred - 11.3.2007, 14:57
PM MAIL   Вверх
W4FhLF
Дата 11.3.2007, 15:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


found myself
****


Профиль
Группа: Участник Клуба
Сообщений: 2831
Регистрация: 2.12.2006

Репутация: 3
Всего: 121
CreateToolhelp32Snapshot + TH32CS_SNAPPROCESS тебе в помощь, примеры найдёшь без проблем, если захочешь. 


--------------------
"Бог умер" © Ницше
"Ницше умер" © Бог
PM ICQ   Вверх
Dred
Дата 11.3.2007, 15:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 71
Регистрация: 6.1.2007

Репутация: нет
Всего: нет
Код

Const TH32CS_SNAPHEAPLIST = &H1
Const TH32CS_SNAPPROCESS = &H2
Const TH32CS_SNAPTHREAD = &H4
Const TH32CS_SNAPMODULE = &H8
Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or _
            TH32CS_SNAPPROCESS Or _
            TH32CS_SNAPTHREAD Or _
            TH32CS_SNAPMODULE)
Const TH32CS_INHERIT = &H80000000
Const MAX_PATH As Integer = 260

Private Type PROCESSENTRY32
    dwSize As Long
    cntUsage As Long
    th32ProcessID As Long
    th32DefaultHeapID As Long
    th32ModuleID As Long
    cntThreads As Long
    th32ParentProcessID As Long
    pcPriClassBase As Long
    dwFlags As Long
    szExeFile As String * MAX_PATH
End Type

Private Declare Function CreateToolhelp32Snapshot Lib "Kernel32" _
            (ByVal lFlags As Long, _
            ByVal lProcessID As Long) As Long

Private Declare Function Process32First Lib "Kernel32" _
            (ByVal hSnapShot As Long, _
            uProcess As PROCESSENTRY32) As Long

Private Declare Function Process32Next Lib "Kernel32" _
            (ByVal hSnapShot As Long, _
            uProcess As PROCESSENTRY32) As Long

Private Declare Sub CloseHandle Lib "Kernel32" _
            (ByVal hPass As Long)

Private Sub Form_Load()

    Dim hSnapShot As Long, uProcess As PROCESSENTRY32
    'Делаем снимок системы
    hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0&)
    'Измеряем размер структуры
    uProcess.dwSize = Len(uProcess)
    'Получаем информацию о первом процессе
    r = Process32First(hSnapShot, uProcess)
    Me.AutoRedraw = True
    Do While r
        Me.Print Left$(uProcess.szExeFile, IIf(InStr(1, _
            uProcess.szExeFile, Chr$(0)) > 0, _
            InStr(1, uProcess.szExeFile, _
            Chr$(0)) - 1, 0))

        'Получаем информацию о следующем процессе
        r = Process32Next(hSnapShot, uProcess)
    Loop
    'Закрываем дескриптор кадра
    CloseHandle hSnapShot
End Sub


Вот нашол... ноето показует токо список процессов.... а как найти путь к ним?
PM MAIL   Вверх
Dred
Дата 11.3.2007, 17:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 71
Регистрация: 6.1.2007

Репутация: нет
Всего: нет
Ну че никто не знает? smile 
PM MAIL   Вверх
W4FhLF
Дата 11.3.2007, 18:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


found myself
****


Профиль
Группа: Участник Клуба
Сообщений: 2831
Регистрация: 2.12.2006

Репутация: 3
Всего: 121
Получи первый модуль спомощью Module32First прежде создав новый снапшот: CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, uProcess.th32ProcessID), в структуре MODULEENTRY32 которую заполнит Module32First будет поле szExePath и там путь до исполняемого модуля. 


--------------------
"Бог умер" © Ницше
"Ницше умер" © Бог
PM ICQ   Вверх
Dred
Дата 11.3.2007, 18:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 71
Регистрация: 6.1.2007

Репутация: нет
Всего: нет
Можеш показать как ето будет выглядеть если не лень... smile    Я просто не все понял что ты написал.. Спасибо.

Это сообщение отредактировал(а) Dred - 11.3.2007, 18:35
PM MAIL   Вверх
W4FhLF
Дата 11.3.2007, 19:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


found myself
****


Профиль
Группа: Участник Клуба
Сообщений: 2831
Регистрация: 2.12.2006

Репутация: 3
Всего: 121
Цитата(Dred @  11.3.2007,  18:31 Найти цитируемый пост)
Я просто не все понял что ты написал..


ну так в поиск по словам CreateToolhelp32Snapshot + TH32CS_SNAPMODULE smile 


--------------------
"Бог умер" © Ницше
"Ницше умер" © Бог
PM ICQ   Вверх
Dred
Дата 12.3.2007, 15:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 71
Регистрация: 6.1.2007

Репутация: нет
Всего: нет
Находит токо на делфах... smile 
PM MAIL   Вверх
~FoX~
Дата 12.3.2007, 21:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 10
Всего: 68
Цитата(Dred @  12.3.2007,  16:11 Найти цитируемый пост)
Находит токо на делфах... smile  

Не понял разницы....АПИ оно и есть АПИ.....



--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0884 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.