Перехват вызовов ADO

[drronnie]

Господа, помогите с проблемой.
Есть чужая прога, она работает с ADO. Возможно ли как-нибудь перехватить создание объектов ADO и вызовы методов, чтобы подменить параметры некоторых. Читал на RSDN про перехват методов COM интерфесов, но не совсем понятно. Подскажите в каком направлении копать? Заранее спасибо.

[alibek]

drronnie, tag_warning (1).
Копать в направлении "Читать правила".
Переношу.

[Sebas]

проще, таблицы на вьюхи заменить...

[drronnie]

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

[Sebas]

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

Вопрос компетенции)

[drronnie]

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

Вопрос компетенции)

Причем тут компетенция? Грубо говоря есть таблица, в которой сто записей.
И одна программа должна получить сто записей, а другая только 10. Мне в голову приходит только подкорректировать запрос второй программы, но т.к. она не в исходном коде, то нужно перехватить вызов метода, и подменить запрос.

[Sebas]

база какая?

[drronnie]

Access

[SSecurity]

резонный вопрос - как узнать, что программа спросившая БД относится к первой или второй (т.е. как разграничить 10/100 записей)
или обе проги авторизуются?
а какие именно 10 из 100 записей должна вторая прога видеть?

[alibek]

резонный вопрос - как узнать, что программа спросившая БД относится к первой или второй (т.е. как разграничить 10/100 записей)
или обе проги авторизуются?

Это разве вопрос?
Перехватывать уже работающую программу не получится, вторая программа будет просто запускаться из под написанного стартера, который и будет осуществлять перехват вызовов.

[Sebas]

С VBA в Access Не оч знаком.
Если можно в функции вытащить имя юзера или аргументы запуска. То вариант со вьюхой должен прокатить.

В SQL Server это на раз два. Не раз делал себе "Лицензии")... Ой, о чём это я?

[drronnie]

Пардон за заблуждение, речь идет не об ADO, а о DAO.
Ещё один нюанс: я внутри программы могу запустить скрипт на VBS, внутри которого могу получить объект DAO.Database. Может быть как-нибуть можно заменить адрес Invoke своей функцией, в результате чего я смогу вызывать оригинальный Invoke, а параметры изменять?

[SSecurity]

Пардон за заблуждение, речь идет не об ADO, а о DAO.
Ещё один нюанс: я внутри программы могу запустить скрипт на VBS, внутри которого могу получить объект DAO.Database. Может быть как-нибуть можно заменить адрес Invoke своей функцией, в результате чего я смогу вызывать оригинальный Invoke, а параметры изменять?

разве что переименовать Таблицу "Источник" в "Источник2", создать запрос "Источник" который бы из "Источник2" нужные строки тянул. Но это все так ... вопрос считывания, поскольку при первой же попытке редактирования записей выпадет ЕРРОР:)

Если уже читал значит надо разбираться )

[drronnie]

проще, таблицы на вьюхи заменить...

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

[Sebas]

проще, таблицы на вьюхи заменить...

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

ну, если ресь о Access.... опыта нет. В скуле не вопрос...

[alibek]

Если использовать сторонний компонент, то можно так:
http://www.microsoft.com/msj/0199/inter ... rcept.aspx

Возможно также пригодится и это:
http://www.rsdn.ru/Forum/?mid=190510

[drronnie]

Вот кое-какие наработки:
Модуль

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

Option Explicit

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Const PAGE_EXECUTE_READWRITE& = &H40&
Private Declare Function VirtualProtect Lib "kernel32" (ByVal lpAddress As Long, ByVal dwSize As Long, ByVal flNewProtect As Long, lpflOldProtect As Long) As Long


Public Sub Doo(Obj As Object)
  Dim mem As Long, lacc As Long
  CopyMemory mem, ByVal ObjPtr(Obj), 4
  mem = mem + 28 + 1 * 4
  VirtualProtect mem, 4&, PAGE_EXECUTE_READWRITE&, lacc
  CopyMemory ByVal mem, adr(AddressOf Repl), 4  'put VT entry
  VirtualProtect mem, 4&, lacc, ByVal 0&
End Sub

Public Function Repl(ByVal This As Long) As Long
  MsgBox "A"
  Repl = 22
End Function

Private Function adr(ByVal a As Long) As Long
  adr = a
End Function


форма

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

Private Sub Form_Load()
  Dim db As DAO.Database
  Set db = OpenDatabase("C:\1.mdb")
  MsgBox db.CollatingOrder
  Doo db
  MsgBox db.CollatingOrder
End Sub


Метод взят от балды, чисто теория... он идёт вторым. Заменяем указатель на CollatingOrder своим. при первом вызове CollatingOrder, возвращает 1033 (не знаю что это значит) потом заменяем указатель (вызов функции Doo), и на втором вызове CollatingOrder - вызывется моя функция Repl. Но при выходе из неё возникает ошибка
Инструкция обратилась к памяти по адресу 0х00000000. Почему?

[alibek]

Независимо от того, правильно сделано или нет, советую убирать MsgBox (и вообще всякую интерактивность) из подобных мест.
Лучше использовать Debug.Print или выводить в файл.

[drronnie]

Независимо от того, правильно сделано или нет, советую убирать MsgBox (и вообще всякую интерактивность) из подобных мест.
Лучше использовать Debug.Print или выводить в файл.

Да это так, проверить - вызывается или нет. Ещё интересно, как передаются параметры? Т.е. как их объявлять у функции? Все как Byval As Long?

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

Property* CreateProperty([in, optional] VARIANT Name, [in, optional] VARIANT Type, [in, optional] VARIANT Value, [in, optional] VARIANT DDL);


Сделал свою реализацию методов Execute, OpenRecordset.
Подменил, всё ок. Когда я их руками вызываю - заходитв мои функции, но вот программа их почему-то не вызывает никогда Или у неё какой-то свой экземпляр Database, или одно из двух.

[drronnie]

Господа, а вот в ходе дела наткнулся на следующую проблему. Страница памяти, в которую нужно внести изменения имеет флаг PAGE_READONLY, а изменить его при помощи VirtualProtect не получается, а мне нужно PAGE_READWRITE. Это как-нибудь можно обойти?

[Twister]

а изменить его при помощи VirtualProtect не получается

Что значит не получается? Я сомневаюсь, что страница в памяти какого-нибудь Access'а будет иметь атрибут супервизора. Скорее всего код кривой. Что возвращает VirtualProtect? Как ты ее вызываешь?

[drronnie]

Я беру DAO.Database в программе. Объект каждый раз разный, поэтому подменив ему vtable я ничего не добьюсь, т.к. сама программа работает с другим экземпляром и у него vtable оригинальный. Я решил, что нужно помотреть куда ссылается необходимый метод (ведь данные у кадого объекта свои, а методы одни), и там вместо оригинального кода вставить свой. Но там у страницы стоит флаг PAGE_READONLY, когда пытаюсь изменить его на PAGE_EXECUTE_READWRITE, он меняется на PAGE_WRITECOPY, ну и соответственно при записи - память не может быть "written".
Вроде бы такая же проблема у человека тут.

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

[Twister]

когда пытаюсь изменить его на PAGE_EXECUTE_READWRITE, он меняется на PAGE_WRITECOPY, ну и соответственно при записи - память не может быть "written"

Начнем с того, что PAGE_WRITECOPY эквивалентна PAGE_READONLY (не по значению константы, а по поведению). Имеменно поэтому "память не может быть written".

Дальше. Вот тут задавался аналогичный вопрос, но мудрые мелгомягкие послали его далеко-далеко на свой форум, от куда чувак, по видимому, не вернулся... Однако, я думаю, что ответ был у него под боком:

You can set the access protection value on committed pages only. If the state of any page in the specified region is not committed, the function fails and returns without modifying the access protection of any pages in the specified region.

Короче говоря, если страница не передана процессу (commit), а является всего-лишь проекцией (mapping), то ее атрибуты изменить нельзя.

Следовательно - память, атрибуты которой ты собираешься изменить, спроецирована с помощью MapViewOfFileEx (точнее с помощью NtCreateSection и NtMapViewOfSection, если копнуть глубже ).

[drronnie]

Спасибо за ответ, Twister