Контроль открытых кем-то файлов

[Random]

Доброго времени суток! Давненько не посещял я этот славный форум.
И как всегда прошу помочь с кодом. Проблема такая: никак до меня не дойдёт как программно в WinХР (и вообще)
отследть какие в данный момент открыты файлы пользователями в сети (однораанговой).
Так же как мы все можем посмотреть кто у нас копается в компе: "Управление компьютером" -----> "Открытые файлы".
В идеале хочу иметь возможность управлять этим доступом (закрывать или даже довать доступ в соответсвии с некоторым фильтром).
Заранее багодарен

[Random]

Хотя бы имя API ? Просто, понимаете, у меня вооще нет вариантов как это сделать.

[NashRus]

NET FILE
и смотри какие функции эта утилита импортирует.

[Random]

NET FILE
и смотри какие функции эта утилита импортирует.

Это вариант, спасибо. Только консоль не очень удобна.
Мне хотель бы что-то вроде NetShareGetInfo.
Мои попытки использовать ее, чтобы показать открытые файлы не увенчались успехом.

[Хакер]

Это вариант, спасибо. Только консоль не очень удобна.

Тебе не утилиты предложили для использования, а в качестве источника информации о том, какие функции требуются, чтобы получить нужны тебе данные.

[Random]

Тебе не утилиты предложили для использования, а в качестве источника информации о том, какие функции требуются, чтобы получить нужны тебе данные.

Для меня это не элементарно. Очевидно какое-то средство для просмотра экпортируемых фунций есть?

[Хакер]

Dependency Viewer — оконная ултита в составе Visual Studio.
dumpbin — консольная утилита в составе Visual Studio (ставится вроде вместе с MSVC++).
Куча сторонных утилит вроде PE Explorer-ов и тому подобного.
Можно посмотреть в отладчике OllyDbg.
Гуру могут посмотреть и в Hex-редакторе.

[Random]

Да там чёрт ногу сломит...
Например:
function WNetOpenEnumW(dwScope, dwType, dwUsage: DWORD; lpNetResource: PNetResourceW;
var lphEnum: THandle): DWORD; stdcall; external 'mpr.dll' name 'WNetOpenEnumW' index 66;
Все описания для СИ... Как ЭТО переварить в VB? / или хотяб ы как определить искомую?

[Хакер]

Это в жизни не описание для Си. Это описание для отвратительного Delphi. В VB6 переварить элементарно при наличии базовых познаниях о типах. Задавай более конкретные вопросы, ответы на которые позволяет тебе понять механизм переваривания — ответим.

[Хакер]

Вообще говоря, лентяи обычно не переводят, а ищут готовое: «Declare Function WNetOpenEnum»

[Random]

Сейчас сижу морщу лоб...Вот, выстрадал пару АПИ.

Declare Function WNetOpenEnum Lib "mpr.dll" Alias "WNetOpenEnumA" (ByVal dwScope As Long, ByVal dwType As Long, ByVal dwUsage As Long, lpNetResource As NETRESOURCE, lphEnum As Long) As Long
Declare Function WNetEnumResource Lib "mpr.dll" Alias "WNetEnumResourceA" (ByVal hEnum As Long, lpcCount As Long, lpBuffer As Any, lpBufferSize As Long) As Long
Осталось проверить что можно из них выудить что-то.
-------------------------------------------------------------------------
ПС.
Попутно нашел программку на Делфи, делающию все что я хотел.
Знатоки на верном ли я пути? http://www.delphimaster.ru/articles/netmon/index.html

[Random]

Вообще говоря, лентяи обычно не переводят, а ищут готовое: «Declare Function WNetOpenEnum»

Думаете я не искал готовое?

[Random]

Нашел решение.Точнее нужную ф-ю:

Код: Выделить всё

Private Declare Function NetSessionEnum Lib "netapi32" _
  (ByVal servername As Long, _
   ByVal UncClientName As Long, _
   ByVal username As Long, _
   ByVal level As Long, _
   bufptr As Long, _
   ByVal prefmaxlen As Long, _
   entriesread As Long, _
   totalentries As Long, _
   resume_handle As Long) As Long
   

К сожалению самостоятельно не получилось создать программный код. Кому интересно решение см. здесь :
http://www.freevbcode.com/ShowCode.asp?ID=8501