был тут флейм по поводу сабжа
был даже прикол по поводу (шутка типа )
вот я тоже решил подумать (я в VB баран бараном так что если че не так поправьте, это теоретические предпосылки к реализации)
кароче нада делать так
делаем некий массив с нашим откомпилированым кодом
типа char[] так далее
дальше нам нужна внешняя либа которая собственно и запустит код
тоесть прога на ВБ вызывает эту либу и передает ей в качестве параметра адрес массива
либа в свою очередь делает виртуал протект для того сегмента в котором массив ( сто пудово дата сегмент и не имеет атрибута ехе) и устанавливает ему окромя реад-врите еще и ехе флажок, ну и делает jmp туда
все чики поки код будет запущен

Цитата

ну и делает jmp туда

Тут не уверен. Было предположение, что она отдельный поток вызывает с этой процедурой. Просто кто-то сказал если я не ошибаюсь, что также можно хуки ставить. Не проверял и не обдумывал, пока не до того...

Цитата

код будет запущен

И к чему это? Конечно будет запущен
p.s. как ты понял тоже самое можно провернуть и в любом другом языке, который разрешает вызовы API

cardinal
да я это давно понял
тода уж нада упростить все
в теории нада обработчик исключений на адрес массива переставить
потом ченить на ноль к примеру поделить

Если честно: я ни хрена не понял

cardinal
ну что происходит когда на ноль делиш к примеру? или ud2 делаеш?
вылазит окошко о том что прога выполнила ..... и так далее, тоесть срабатывает вындосовский обработчик
если к примеру адрес этого самого обработчика перенести на адрес массива с нашим кодом
то полсе тогоже самого деления на ноль будет выполнен наш код

Цитата

ну что происходит когда на ноль делиш к примеру?

вылазит ошибка... (это я думаю про себя)...

Цитата

или ud2 делаеш?

не знаю, что такое ud2...

Цитата

вылазит окошко о том что прога выполнила

в смысле выполнила ошибку?

Цитата

то полсе тогоже самого деления на ноль будет выполнен наш код

Ииииии что это нам даст?

p.s. извини если сильно торможу - у меня от pn переходов сейчас голова пухнет

Есть прекрасные исходники по этой теме, кто интересуется - Сюда

Это я изучал, когда писал свою собственную статейку на этот счет. Можешь посмотреть:
http://forum.vingrad.ru/index.php?showtopic=15962
А вообще на том сайте, который ты указал, есть еще пара интересных вещей... Надо будет почитать.

bom
ну и мы про то же

Цитата

Кроме того в программе есть несложные (уже не на ассемблере, а на API) реализации диалоговых окон отрытия и сохранения файлов,

а это просто изумительная фраза

oleg1973

Цитата

это просто изумительная фраза

Для справки.
Юзанье API функций в VB довольно геморойное дело по сравнению с теми же Дельфями.

bom
для справки

Цитата

(уже не на ассемблере, а на API)

API не язык програмирования

Цитата(oleg1973 @ 4.4.2004, 02:02)

был тут флейм по поводу сабжа был даже прикол по поводу (шутка типа ) вот я тоже решил подумать (я в VB баран бараном так что если че не так поправьте, это теоретические предпосылки к реализации) кароче нада делать так делаем некий массив с нашим откомпилированым кодом типа char[] так далее дальше нам нужна внешняя либа которая собственно и запустит код тоесть прога на ВБ вызывает эту либу и передает ей в качестве параметра адрес массива либа в свою очередь делает виртуал протект для того сегмента в котором массив ( сто пудово дата сегмент и не имеет атрибута ехе) и устанавливает ему окромя реад-врите еще и ехе флажок, ну и делает jmp туда все чики поки код будет запущен

И чем это дело-то уростит ? Пару ненужных лишних параметров не придется передавать ?

Цитата

тоесть прога на ВБ вызывает эту либу и передает ей в качестве параметра адрес массива

Как раз то и делается в примере, внешняя либа - это user32.dll, вызывает CallWindowProcA, и в качестве параметра передаёт адрес массива, а также и доп. параметры, которые могут понадобится в функции...
Добавлено @ 15:39
Насчет виртуал протекта - можно 1 раз вначале проги это сделать на все данные и всё. Но раз Cardinal ничего не делал, значит и так доступно для исполнения...

Добавлено @ 15:43
Или же, Олег, я тебя не понял ?

oleg1973, ну хватит тут прикалываться . Лучше бы объяснил, что ты выше имел в виду с делением на ноль и т.д. и смысл сего...

cardinal, он имеет в виду, что надо поставить обработчик исключений.
Например, поделил ты на 0 - и управление передастся этому обработчику. А в обработчике, например, сидит твоя асм-функция, или же происходит её вызов.
В Delphi это выглядит так:

Код

try // - тут устанавливается адрес нового обработчика ошибок  ...  a := b / 0; // происходит исключение except  < обработчик >; // при исключении (ошибке) это выполняется end; // - восстанавливается адрес старого обработчика

Только не знаю, насколько это дело упростит, по-моему, даже усложнит, т.к. Васик может и сам время от времени ставить свои обработчики Exception'ов...

Код

try // - тут устанавливается адрес нового обработчика ошибок ... a := b / 0; // происходит исключение except < обработчик >; // при исключении (ошибке) это выполняется end; // - восстанавливается адрес старого обработчика

Если это так, то я не пойму зачем. Чем не устраивает:

Код

CallWindowProc pLShiftCode, VarPtr(value), shift, 3&, 4&

Лично я так юзаю. Меня вполне устраивает. Даже больше.

P.s.
Обработчик ошибок в барсике

Код

Sub Tratata()     On Error Goto Eric     ..........     ..........     ..........     Exit Sub Eric:     'Obravbotka oshibki end sub

Че-то я даже тута ничего не понял по поводу UD2!

Это сообщение отредактировал(а) Mephisto - 5.4.2004, 17:33