Debug.Print

[Jack Ferre]

Debug.Print компилируется в исполняемый файл.

220px-Paris_Tuileries_Garden_Facepalm_statue.jpg (9.38 Кб) Просмотров: 2159

[The trick]

Нет.

[Jack Ferre]

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

Debug.Print "thread id: " & GetCurrentThreadId

GetCurrentThreadId выполняется в скомпилированном экзешнике. Дамаю и сам Debug.Print тоже пытается куда-нибудь вывести текст. Иначе нафига вообще выполнять код в этой строке.

Проблема в том, что у меня весь код напичкан Debug.Print-ами. Ладно если просто переменную вывожу, а то ж функции всякие вызываю.

[Jack Ferre]

А вот и доказательства:

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

Private n As Long

Private Function mf() As Long
    n = 777
End Function

Private Sub Form_Load()
    Debug.Print mf
    Caption = n
End Sub


[The trick]

viewtopic.php?f=68&t=42654
Естественно, ты изменяешь глобальные данные.
Выполняется не Debug.Print, а так, как-будто его там нет, просто вызов функции.
Откуда VB6 знает что внутри GetCurrentThreadId? Может там идет инициализация какой нибудь библиотеки?

[Jack Ferre]

Я относился к строке Debug.Print как к коментарию, который не попадет в экзешник. И при отладке потоков не обращал на неё внимание. А тем временем тот же GetCurrentThreadId вполне удачно рушит программу.

[The trick]

И при отладке потоков не обращал на неё внимание. А тем временем тот же GetCurrentThreadId вполне удачно рушит программу.

Нужно либо объявлять ее в TLB, либо инициализировать контекст.
Вручную инициализировать контекст вероятно кроме Хакера никто не умеет.
Можно инициализировать контекст вызовом VBDllGetClassObject, либо сразу вызвать метод InitDllAccess объекта rby_ThreadPool. Я пробовал так делать, контекст инициализируется, но затираются некоторые глобальные переменные, т.к. для StandartEXE выход из InitDllAccess - это выход из приложения. InitDllAccess в правильном варианте StandartEXE возвращает управление только после окончания приложения.

[Хакер]

Зато Assert не попадает