Кто нибудь на форуме создавал свои отладочные движки?

[daFix]

Собственно сабж. Какие у кого возникали проблемы при их написании, и как вы их решали

[Lumen]

Вот пример:
Сразу говорю - не моё.

[jangle]

Вот пример:
Сразу говорю - не моё

Боян!

[daFix]

Это я уже видел... Очень слабенький исходник, хреново написан. Единственное что там класс дизассемблера присутствует, а так ничего особого.
И ещё! Помоему тут на сайте валялся исходник демонстрирующий мультипоточность в VB приложениях, но ни как не могу его найти... Не завалялся ни у кого? И ещё один вопрос до кучи! Как узнать адрес своих функций? Помоему было что то типа AdressOf "Имя функции"... Примерно так, ни как не могу его вспомнить

[tyomitch]

AddressOf ИмяФункции (без кавычек, и только как аргумент при вызове)

[daFix]

О! Пасиба tyomitch! Всё работает =) Последний вопрос снимается

[Antonariy]

Помоему тут на сайте валялся исходник демонстрирующий мультипоточность

Таких исходников полно, но многопоточность в vb работает исключительно криво.

Кстати, реально ли написать ActiveX dll допустим на с++, которая предоставляла бы возможность создавать потоки в vb? Учитывая существование в природе ntsvc.ocx (а сервис требует по крайней мере два потока), мне кажется, что это возможно.

[tyomitch]

В Standard EXE -- невозможно.
В ActiveX EXE -- возможно и безо всяких сторонних примочек.

[jangle]

Кстати, реально ли написать ActiveX dll допустим на с++, которая предоставляла бы возможность создавать потоки в vb?

Можно и на PB написать Native DLL для работы с многопоточностью.

[Antonariy]

В ActiveX EXE -- возможно и безо всяких сторонних примочек.

Опаньки... А как? "Стандартно"? То есть Create/TerminateThread + pcode?

Можно и на PB написать Native DLL для работы с многопоточностью.

Кхм... Было бы круто, если б кто-нибудь написал...

[keks-n]

Antonariy
В ActiveX EXE надо просто выставить Thread Per Object и натравить CreateObject на самого себя. Всё, поток создан.

Если надо, могу накатать DLL, которая даст мультипоточность в VB ActiveX DLL - проинициализирует рантайм для потока и передаст куда надо управление.

[jangle]

Кхм... Было бы круто, если б кто-нибудь написал...

Там все просто, поддержка безопасной многопоточности встроена прямо в язык:

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

#COMPILE EXE

FUNCTION PBMAIN () AS LONG
DIM idThread(10) AS LONG, x AS LONG, s AS LONG
FOR x = 1 TO 10
THREAD CREATE MyThread(x) TO idThread(x)
NEXT x
DO
  FOR x = 1 TO 10
    THREAD STATUS idThread(x) TO s
    IF s THEN ITERATE DO
  NEXT
LOOP WHILE s
MSGBOX"All threads finished!"
END FUNCTION

FUNCTION MyThread (BYVAL x AS LONG) AS LONG
MSGBOX "Begin thread" & STR$(x)
SLEEP 1000
MSGBOX "Finished thread " & STR$(x)
END FUNCTION

[tyomitch]

Если надо, могу накатать DLL, которая даст мультипоточность в VB ActiveX DLL - проинициализирует рантайм для потока и передаст куда надо управление.

Не стоит. Мэттом Курландом всё уже написано и опубликовано.
И даже использовано мной в выложенном на этом форуме глобальном хуке.


jangle, у тебя просили библиотеку для поддержки многопоточного кода на VB, а не на IEEE-совместимом турбобейсике без нормальной среды и без поддержки COM.

[keks-n]

tyomitch
Есть вопрос. Если рантайм ещё вообще никем не проинициализирован, и управление получает VB-шный код, то чего НЕЛЬЗЯ делать? Я могу вызвать внешнюю функцию, получить из неё указатель на интерфейс и с этим интерфейсом что-то сделать?

Просто есть мнение, что я смогу написать инициализацию рантайма для Native DLL непосредственно на VB и не мучить лишний раз линкер.

+ В последний раз, когда я видел часовой хук, я так и не понял, что там такое происходит ... + Он не передаёт управление по цепочке хуков, вроде.

[tyomitch]

Да всё он передаёт.

Native DLL у тебя как кто собирается, как Standard EXE (как у GSerg-а со товарищи), или как ActiveX DLL? Во втором случае написать инициализацию рантайма непосредственно на VB очень просто. Я даже Хакеру в аську скидывал свои соображения по этому поводу.

[Хакер]

Я даже Хакеру в аську скидывал свои соображения по этому поводу.

Может это был какой-то другой Хакер? Во-всяком случае, я что-то не припоминаю такого. Может у меня уже склероз старческий развивается?



ЗЫ. От чего-то не нравится мне этот топик сильно...

[daFix]

А конкретно по сабжу ничего нету?

[keks-n]

tyomitch
Как ActiveX. Я даже могу достучаться до оригинальной DllMain если надо. Пока инициализация идёт так:
1) CoInitialize
2) Оригинальный DllMain
3) LoadTypeLibEx, поиск первого попавшегося CoClass
4) DllGetClassObject, создание того класса
5) Рантайм проинициализирован и готов к работе

Есть одно НО - я не могу прилинковать объектник с импортами и приходится получать адрес GetProcAddress весьма экзотическим способом, который не хочет работать в висте. Я уж собирался искать в своей таблице импорта ссылку на msvbvm60.dll, а в её заголовке импорт GetModuleHandle и GetProcAddress.

Хочу туда воткнуть эмуляцию зарегестрированности DLL, т. е. её надо будет только грузануть в память.