На помощь (сеть) ...

[SeT]

Подскажите пожалуйста, как отследить перемещение файлов по сети (или что-то в этом роде). Очень нужно.

[alibek]

Ответь на свой вопрос обычным языком. Если сможешь, то тогда помогу с алгоритмом и кодом.

[SeT]

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

[alibek]

Объясни:
1. Как ты узнаешь, что на комп присылается файл?
2. Как ты узнаешь, что с компа посылается файл?
3. Как ты узнаешь, что это за файл?
4. Как ты узнаешь, кто сервер?
5. Как ты узнаешь, куда посылался файл?

[Antonariy]

alibek

Мониторинг TCP/IP

SeT

Это нужно что-то вроде анализатора траффика. Задача крайне сложная для VB.

[Antonariy]

Сходи на http://www.vbip.com, может там что надыбаешь.

[Sebas]

. Получение файла можно отследить через FindFileNoticefication (могу ошибиться в написании)

также, открытые файлы по сети и кем открыто, можно получить через WMI

Отправку файла, отследить получится врядли, если только перехват вызова апи, но я таких примеров на ВБ не видел...

[SeT]

alibekЗнал бы алгоритм, сам бы сделал, посидев ночи две-три. Неужели ниукого ни исходника, ни описания мониторинга, ни описания FindFileNoticefication нету???

[Konst_One]

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

Private Const FILE_NOTIFY_CHANGE_ATTRIBUTES = &H4
Private Const FILE_NOTIFY_CHANGE_DIR_NAME = &H2
Private Const FILE_NOTIFY_CHANGE_FILE_NAME = &H1
Private Const FILE_NOTIFY_CHANGE_SIZE = &H8
Private Const FILE_NOTIFY_CHANGE_LAST_WRITE = &H10
Private Const FILE_NOTIFY_CHANGE_SECURITY = &H100
Private Const FILE_NOTIFY_CHANGE_ALL = &H4 Or &H2 Or &H1 Or &H8 Or &H10 Or &H100
Private Declare Function FindFirstChangeNotification Lib "kernel32" Alias "FindFirstChangeNotificationA" (ByVal lpPathName As String, ByVal bWatchSubtree As Long, ByVal dwNotifyFilter As Long) As Long
Private Declare Function FindCloseChangeNotification Lib "kernel32" (ByVal hChangeHandle As Long) As Long
Private Declare Function FindNextChangeNotification Lib "kernel32" (ByVal hChangeHandle As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function ResetEvent Lib "kernel32" (ByVal hEvent As Long) As Long
Private Sub Form_Load()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim Ret As Long
    'Set the notification hook
    Ret = FindFirstChangeNotification("C:\", &HFFFFFFFF, FILE_NOTIFY_CHANGE_ALL)
    'Wait until the event is triggered
    WaitForSingleObject Ret, &HFFFFFFFF
    MsgBox "Event Triggered for the first time"
    'Reactivate our hook
    FindNextChangeNotification Ret
    'Wait until the event is triggered
    WaitForSingleObject Ret, &HFFFFFFFF
    MsgBox "Event Triggered for the second time"
    'Remove our hook
    FindCloseChangeNotification Ret
End Sub

[SeT]

А с ремарками нельзя? Я несовсем понял, что написано.

[Antonariy]

Вот пример, детально раскрывающий функциональность Notification. В нем комментов больше, чем кода, однако он тебе мало поможет. Он мониторит изменения конкретной папки.