Как сделать, чтобы не загружался рантайм?

[Хакер]

А если я знаю va, может быть вообще не выделять строки, а сразу передавать этот адрес?

Всё зависит от типа аргумента. Если LPCSTR, то можно передавать адрес строки в секции кода, если просто LPSTR, то надо сделать копию, и передавать её адрес, если BSTR, то надо вызывать SysAllocString и передавать полученный от неё адрес.

А как объявить на бейсике структуру IMAGE_IMPORT_DESCRIPTOR?
viewtopic.php?p=6725674#p6725674

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

Type IMAGE_IMPORT_DESCRIPTOR
    Characteristics_or_OriginalFirstThunk As Long
    TimeDateStamp As Long
    ForwarderChain As Long
    Name As Long
    FirstThunk As Long
End Type   

[arthur2]

А что тогда за число в поле name?

Всё зависит от типа аргумента.

А если самому в тлб объявить с нужным типом? или это не для всех функций будет работать?
В чём разница между LPCSTR и LPSTR?
Например, я объявил как any...

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

[entry("MessageBoxA")] long stdcall MessageBox(
               [in] long hwnd,
               [in] void* lpText,
               [in] void* lpCaption,
               [in] long wType);

так можно сразу va передавать?

[Хакер]

Типы придуманы не для того, чтобы портить кому-то жизнь. Они созданы для того, чтобы ты знал, как именно функция поступает с данными.

Подменив типы в TLB ты совершил самообман — теперь ты ничего не знаешь о том, что именно ждёт от тебя функция (а она как ждала от тебя определённые данные, так продолжает, несмотря на то, что ты поменял типы в TLB).

Разница между LPSTR и LPCSTR в букве C, а сама буква C означает константность. Наличие этой буквы в типе указателя на строку гарантирует, что функция ничего с этой строкой не сделает, и даже пытаться не будет.

[arthur2]

то есть, если я знаю, что функция не меняет строку, то могу объявлять лонг и сразу передавать va?

[Хакер]

Ты в любом случае передаёшь Long-овый адрес.
Если функция не меняет строку, то можно передавать адрес оригинальной строки, лежащей в секции данных.
Если функция меняет, то тоже можно, но чревато.
Если секция имеет атрибут, делающий её страницы доступными для записи, то просто поменяется значение строковой константы.
Если секция не имеет его, то попытка функции переписать это место в памяти приведёт к исключению, т.е. к краху, если у тебя обработчик не установлен (а он ведь не установлен).

[arthur2]

про константы - очень интересно
Я подумал - а ведь в процедуре самомодификации можно получить va констант и оттуда же переписать их в экзешнике?

Интересно, а почему мой вариант с фиксированным байтовым массивом не прокатил?

[Хакер]

Каким образом в процедуре самомодификации ты получишь их адреса?

[arthur2]

А strptr вернет адрес копии? тады облом

[Хакер]

Конечно облом. Но направление правильное. Копия создаётся же как-то. Какой-то функцией. Которая из оригинала делает копию. И что если эту функцию перехватить и получить адрес оригинала?

Думай дальше...

[arthur2]

что-то где-то у тебя я читал про строки, строковые константы и, кажется, указатели пошел поищу

Нет, не помогло

А как организованы строковые константы? ведь не совсем так, как строки? Если попробовать varptr и сколько-то там прибавить... или это тоже будет на копию?

[Хакер]

Что значит, как они организованы? Не понял вопроса.

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

[arthur2]

Интересно, а почему мой вариант с фиксированным байтовым массивом не прокатил?

Прочитал вот этот тёмычевский топик и понял, почему:
viewtopic.php?t=25400
Без рантайма и с фиксированным массивом бейсик работать не может - потому что и у фиксированного есть дескриптор SAFEARRAY. А вот если поместить фиксированный массив в структуру, то SAFEARRAY ему будет не нужен!

Переписал свою функцию winmain на вот так:

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

Function WinMain(hInstance As Long _
                         , hPrevInstance As Long _
                         , lpCmdLine As Long _
                         , nCmdShow As Long _
                         ) As Long
With myStr
.b(0) = 207 'П
.b(1) = 240 'р
.b(2) = 232 'и
.b(3) = 226 'в
.b(4) = 229 'е
.b(5) = 242 'т

MessageBox 0, .b(0), ByVal 0, 0

End With
End Function


Теперь модифицированный файл работает!

Ну вот, теперь нужно разобраться-таки с импортом

Собственно, если получится разобраться со строками в секции - буду пользоваться строками в секции.

А оригинальну main, из которой происходит модификация, не нужно случайно затирать? А то там функции из рантайма. Или раз эта main всё равно не будет вызываться, её можно оставить?

[Хакер]

Не будет, прото мусор.

Я настоятельно рекомендую забыть про A-функции. Или ты заботишься об обратной совместимости с 9x?

[arthur2]

Не, ну в принципе, совместимость не помешает - ведь А работают и там и там

Насчёт таблицы импорта: IMAGE_IMPORT_DESCRIPTOR я вроде бы получаю. В файле их две штуки, в третьей все поля заполнены нулями.

Смотрю строку по полю name. У второй структурки по этому адресу "MSVBVM60.DLL". Я забиваю все поля нулями и записываю её обратно.

Файл после этого работает. Но в импорте MSVBVM60.DLL почему-то остался Что я сделал не так?

[arthur2]

Так-с, IMAGE_IMPORT_DESCRIPTOR оказался непричём
Я отказался от модификации таблицы импорта из main (стал делать это снаружи) и теперь ни в одной IMAGE_IMPORT_DESCRIPTOR ссылки на msvbvm60 просто нет... Но где-то ссылка всё-таки есть! Куда смотреть?

Просмотровщик показывает ссылку под именем "Bound import Directory Table". Что это за зверь? в каких полях каких структур он живет? Никак не могу найти

[arthur2]

Всё, таблицу импорта победил

Но мой способ с массивом байт вместо строк таки не работает без рантайма Где-то что-то оттуда всё же вызывается. С бипом - работает, с месаджебоксом - не хочет

[Хакер]

Я тебе сказал, что используется, и как проверять, используется ли.

И сказал, как обойтись без дурацких массивов. И выбросить в топку использование ANSI-строк для сообщений.

[arthur2]

Я помню Просто все в порядке очереди. Импорт победил, пошел долбиться головой о строки

А как проверять, используется ли, не помню, где говорил В смысле, отладчиком?