Перехват TCP пакетов

[Np5]

всем привет!
Возможно ли перехватить исходящие TCP пакеты на VB6 ? если да, то как?

[alibek]

В принципе, можно. Почитай про WinPcap. Но это не совсем VB.
Исключительно на VB нельзя.

[Np5]

В принципе, можно. Почитай про WinPcap. Но это не совсем VB.
Исключительно на VB нельзя.

Спасибо,, вчера пол дня разбирался...

Вобщем есть вопрос:

попытался определить имя адаптера, но ничего так и не получилось...
вот код...

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


Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Any, ByVal _
wParam As Any, ByVal lParam As Any) As Long

Private Type NetType
    LinkType As Long
    LinkSpeed As Long
End Type

Dim fAddress As Long
Dim mBuffer As String
Dim LenBuffer As Long
Dim HandleLib As Long
Dim lpAdapter As Long
Dim RetVal as Long

Dim NetInfo as NetType



Private Sub Form_Load()

mBuffer = Space(MAX_PATH)
LenBuffer = Len(mBuffer)

HandleLib = LoadLibrary("packet.dll")

fAddress = GetProcAddress(HandleLib, "PacketGetAdapterNames")
CallWindowProc fAddress,StrPtr(mBuffer), VarPtr(LenBuffer), 0&, 0&

fAddress = GetProcAddress(HandleLib, "PacketOpenAdapter")
lpAdapter = CallWindowProc(fAddress, StrPtr(mBuffer), 0&, 0&, 0&)


fAddress = GetProcAddress(HandleLib, "PacketGetNetType")
RetVal = CallPacketGetNetType(fAddress, lpAdapter, VarPtr(NetInfo), 0&, 0&)
RetVal = CallWindowProc(fAddress, lpAdapter, VarPtr(NetInfo), 0&, 0&)

'Структура пустая, хотя функция возвращает 1

FreeLibrary HandleLib
MsgBox mBuffer
End Sub


после этого в переменной mBuffer "Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!?}Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!"
впрочем и PacketRecivePacket тоже неработает...

Собственно что у меня не так?

[RUSYA]

Для перехвата пакетов соответственно нужно вникнуть в перехват апи функций. В Целом весь перехват сводится к глобальному хуку send/recv api... А глобальный хук ессно придётся на чём-то другом, не на VB. Можно например использовать PowerBasic, у него очень похожий синтаксис с VB, есть лишь нюансы...