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

[arthur2]

Собственно, когда писал глобальные хуки, выяснилось, что внешняя библиотека может прекрасно работать без загрузки рантайма, на одних АПИ, объявленных в тлб.

А можно добиться того же в экзешнике?

[JohnK]

Не совсем понял вопрос. Но отвечу, насколько понял.
Для того чтобы глобальные хуки работали, их нужно чем-то инициировать один раз.
Для нормальной работы мне пришлось хуки для клавы и мышки писать на VC+ (саму библиотечку).
Чтобы хук работал его нужно включить в цепочку хуков, поэтому можно обойтись и без рантайма, если сможешь погрузить библу чем-то другим.

[arthur2]

Нет, с хуками-то как раз всё понятно
(кстати, саму библиотеку можно писать и на бейсике - она вполне может быть ActiveX)

Хуки я здесь приплёл просто для аналогии: библиотека, написанная на бейсике и обрабатывающая хук, работает без загрузки рантайма.

А я хочу, чтобы без загрузки рантайма работал экзешник. Хочу написать программку на одних АПИ, чтобы ей не нужен был рантайм.

[alibek]

А я хочу, чтобы без загрузки рантайма работал экзешник. Хочу написать программку на одних АПИ, чтобы ей не нужен был рантайм.

Строковые/математические операции тоже будешь через API выполнять?

[arthur2]

Да
Операции - будут выполняться и без рантайма, а функции - да, на АПИ. Я не хочу писать очень сложную программу, мне нужна простенькая - всё, что для нее надо, в АПИ есть

[Хакер]

Штатно и с помощью шаманств — не получится.

С помощью очень хитрых шаманств — получится. А смысл?

[arthur2]

С помощью очень хитрых шаманств — получится. А смысл?

Мне представляется, что нужно как-то отредактировать готовый экзешник?

Смысл - трудно объяснить... пусть будет просто - нездоровое любопытство

[Хакер]

Естественно, потом придётся очень хорошо переправить весь EXE-шник.
Вопрос о смысле задан потому, что столь сложная работа абсолютно не стоит насквозь неполноценного языка, который в итоге останется от VB.

[arthur2]

столь сложная работа абсолютно не стоит насквозь неполноценного языка, который в итоге останется от VB

Я не хочу писать очень сложную программу, мне нужна простенькая - всё, что для нее надо, в АПИ есть

И всё-таки - как?

[Хакер]

Чтобы точно ответить на вопрос, надо видеть код.

[arthur2]

Ну, если простейший случай:

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

Option Explicit
Sub Main()
MessageBox 0, "ляляля", "трампампам", 0
End Sub


Хочу пока просто понять принцип

[Хакер]

Это очень сложный случай. Ты же говорил, что со строками будешь работать через API? А здесь не через API.

Тебе здесь потребуется самому реализовать __vbaExceptHandler (можно не реализовывать, а затирать в коде места, где идёт установка/снятие SEH-фрейма), а ещё __vbaStrToAnsi, __vbaFreeStrList.

То есть, как минимум, та программа, которая будет модифицировать EXE файл, должна обладать способностями дизассемблера.

[arthur2]

Это очень сложный случай. Ты же говорил, что со строками будешь работать через API? А здесь не через API Тебе здесь потребуется самому реализовать __vbaExceptHandler (можно не реализовывать, а затирать в коде места, где идёт установка/снятие SEH-фрейма), а ещё __vbaStrToAnsi, __vbaFreeStrList.

тут проблема в перекодировании взад-вперед уникода, которой занимается как раз рантайм? а если заменить на байтовые массивы?

Ладно, пусть для начала будет что-нибудь совсем примитивное:

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

Sub Main()
MessageBeep 1
End Sub


[JohnK]

А не проще на другом языке (ASM, VC) написать, а не ломать VB?

PS Вот тебе получится чистейший ехе-шник без runtime.

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

.386
.model flat, stdcall
option casemap :none

include \masm32\include\windows.inc
include \masm32\include\kernel32.inc
include \masm32\include\masm32.inc

includelib \masm32\lib\kernel32.lib
includelib \masm32\lib\masm32.lib

.data
HelloWorld db "Hello World!", 0

.code
start:
invoke StdOut, addr HelloWorld
invoke ExitProcess, 0

end start


[arthur2]

JohnK Проще Но мы ведь не ищем лёгких путей

[JohnK]

Тогда я умываю руки.

PS. Конечно, если хочется заняться камасутрой с VB, то теоретически можно найти основной код в теле exe и посредствам другого языка вызывать функции из msvbvm60.dll. Я просто не представляю VB без рантайма, это есть суть VB.

[Хакер]

Ладно, пусть для начала будет что-нибудь совсем примитивное:

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

Sub Main()
MessageBeep 1
End Sub


Убрать msvbvm60 из таблица импорта. Найти в секции кода эту процедуру и занести её RVA в PE-хеадер в поле EntryPointRVA. Только процедуре придай правильный вид (нужное кол-во аргументов).

[arthur2]

В смысле main? Блин, у неё ещё и аргументы? А какие?

[Хакер]

У неё их четыре.

[arthur2]

Вот так?

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

Function WinMain(hInstance As Long _
                         , hPrevInstance As Long _
                         , lpCmdLine As Long _
                         , nCmdShow As Long _
                         ) As Long


Вроде, более-менее понятно Спасибо!

А на счёт строк: у меня в хуке ищется окно по заголовку. То есть, такой код:

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

  Const WINDOWTITLE_CLIENT = "Communication Window to ucHook"
  hwndTarget = FindWindow(vbNullString, WINDOWTITLE_CLIENT)


работает без рантайма. В чём тогда разница с MessageBox?

[Хакер]

1) С чего взял, что работает без рантайма?
2) Если это на самом деле FindWindowW и если там в TLB используется LPCSTRW и если VB обращает внимание на Const-кваливификатор типа (что вроде бы не так), то тогда он пушит адрес строки в секции данных.

[arthur2]

С чего взял, что работает без рантайма?

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

Там FindWindowA... Кажется, я понял: там ведь, хоть рантайм и не загружен, msvbvm60.dll в таблице импорта библиотеки всё равно есть, и наверное, функции типа __vbaStrToAnsi вызываться всё-таки могут...

А как нужно объявить в тлб функции со строками, чтобы __vbaStrляляля были не нужны? Как Any? или передавать первый байт?

[Хакер]

С того, что код внутри функции обратного вызова хука.

(Юзай тире. С третьего раза только понял смысл)
И что?

Там FindWindowA... Кажется, я понял: там ведь, хоть рантайм и не загружен, msvbvm60.dll в таблице импорта библиотеки всё равно есть, и наверное, функции типа __vbaStrToAnsi вызываться всё-таки могут...

Вот.

А как нужно объявить в тлб функции со строками, чтобы __vbaStrляляля были не нужны? Как Any? или передавать первый байт?

Как лонг. И передавать VA строки. Причём потом добавить в релоки все места, где такие VA указаны.

[arthur2]

Как лонг. И передавать VA строки. Причём потом добавить в релоки все места, где такие VA указаны.

Не понял Что такое VA и где его взять?

Я хотел сделать так (строк у меня будет не много, так что это будет не сложно): объявить строковые константы, которые потом легко найти в файле, переписать их внутри файла вручную на неуникод, а затем присваивать массиву байтов и передавать первый байт. Такой вариант будет работать?

[Хакер]

Такой вариант будет работать?

Такой вариант потребует ещё больше функций из msvbvm60.

VA — виртуальный адрес. Виртуальный адрес строки в памяти. Где взять — искать строку в секции данных. И, как я сказал, не забыть при модификации exe-шника добавить в релоки адрес того места кода, где будет push-инструкция с этим адресом.

[arthur2]

Такой вариант потребует ещё больше функций из msvbvm60

вот блин... А что именно? присвоение байтам строки? Кажется, действительно так от бейсика нифига не о станется

добавить в релоки адрес того места кода, где будет push-инструкция с этим адресом.

и как вычислить это место?

[Хакер]

А что именно? присвоение байтам строки?

Инициализция, удаление массива.

и как вычислить это место?

Дизассемблинг, поиск места, где вызывается функция, анализ блока push-инструкций, идущих перед целевой call-инструкцией.

Кажется, действительно так от бейсика нифига не о станется

Я же сказал. Сотая часть затрат не стоит полученного результата.

[arthur2]

Значит, работа с массивами тоже через рантайм? Редимить тоже не получится? А фиксированные массивы?

так-с... энтузиазм поиссяк

[Хакер]

В чём смысл использовать массивы? Строковые функци всё равно использоваться будут.

Редимить массивы можно с помощью OLE API. Но проверка границ VB-шная. Так что придётся в настройках оптимизации её отключить.

[Williams]

Слушай, а зачем тебе без рантайма? Просто в научных целях? Ведь он присутствует на всех ОС, кроме раритетных..