Сниффер на VB, перенос кода с C++ на VB
Доброе время суток!
Вообщем, нужно сделать вывод содержимого(content) пакета
на C++ content достается из буфера
Пример (вывод в консоль):
а вот как сделать на VB я незнаю(
Содержимое(content) нужно просто записать в переменную))
Пробовал сделать так:
При таком раскладе прога просто падает
P.S. Проект на VB в аттаче
Вообщем, нужно сделать вывод содержимого(content) пакета
на C++ content достается из буфера
Пример (вывод в консоль):
Код:
printf(&Buffer[sizeof(IPHeader) * 2]);
а вот как сделать на VB я незнаю(
Содержимое(content) нужно просто записать в переменную))
Пробовал сделать так:
Код:
Dim hdr as IPHeader
Dim content as String
CopyMemory content, Buffer, Len(hdr) * 2
Dim content as String
CopyMemory content, Buffer, Len(hdr) * 2
При таком раскладе прога просто падает
P.S. Проект на VB в аттаче
Цитата: bugz123323
Доброе время суток!
Вообщем, нужно сделать вывод содержимого(content) пакета
на C++ content достается из буфера
Пример (вывод в консоль):
а вот как сделать на VB я незнаю(
Содержимое(content) нужно просто записать в переменную))
Пробовал сделать так:
При таком раскладе прога просто падает
P.S. Проект на VB в аттаче
Вообщем, нужно сделать вывод содержимого(content) пакета
на C++ content достается из буфера
Пример (вывод в консоль):
Код:
printf(&Buffer[sizeof(IPHeader) * 2]);
а вот как сделать на VB я незнаю(
Содержимое(content) нужно просто записать в переменную))
Пробовал сделать так:
Код:
Dim hdr as IPHeader
Dim content as String
CopyMemory content, Buffer, Len(hdr) * 2
Dim content as String
CopyMemory content, Buffer, Len(hdr) * 2
При таком раскладе прога просто падает
P.S. Проект на VB в аттаче
а чего бы ей и не падать? было бы удивительно.
ну поправьте меня плз)
напишите как надо, если не сложно
напишите как надо, если не сложно
Цитата: bugz123323
ну поправьте меня плз)
напишите как надо, если не сложно
напишите как надо, если не сложно
Контекст не ясен. Может, укрупните исходник?
Какая версия VB у Вас установлена?
Уважаемый - если тебя уж так это волнует - то скачай исходник. И ты легко заметишь что автор использует VB 6.0
Цитата: kot_
Уважаемый - если тебя уж так это волнует - то скачай исходник. И ты легко заметишь что автор использует VB 6.0
Виноват не посмотрел исходник. Ну как я и думал автор использует API функции. У меня половина функций равны 0 то есть не работают. Одни начинают работать когда меняешь ByVal на ByRef или Long на Integer.
В старый версиях Long=-2,147,483,648 до 2,147,483,647 сейчас Integer=-2,147,483,648 до 2,147,483,647
угу. но вроде бы ТС с этим разобрался по аське, по крайней мере больше сообщений не было. :)