Нативный CopyMemory

@testuser2 · Регистрация: 08.02.2017

Студворк — интернет-сервис помощи студентам

Натолкнуло на рассуждения, уже ранее упомянутое.. В общем то уже ранее слышал, про замедление работы апишных функций в современных реалиях. Собственно вопрос, возможно ли копирование блока/участка с динамически меняющимся (настраиваемым) значением(?). Собственно копирование то возможно блоков разного размера, есл говорить о больших - замапив на оба блока массивы и выполнив присвоения в цикле с одного массива в другой. Тесты показывают, что блок одинакового размера копируется в 4 раза быстрей с помощью массива long, нежели битового и также в других случаях - чем меньше итераций, тем кратно быстрей. Можно копировать и большие блоки за одну операцию средствами VB. Если создать тип, с фиксированным массивом внутри, то один экземпляр типа (фактически массив) можно присвоить другому экземпляру типа. С динамическими массивами так не получится, блок перезаписывается, также как и у строк. С другой стороны у фиксированого массива свои недостатки, его нельзя замапить изменить его заголовочную структуру и даже поменять указатель на нее

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Public Type tpArr
    arr(1000) As Integer
End Type
 
Sub ffsff
    Dim ta1 As tpArr, ta2 As tpArr
    
    Debug.Print VarPtr(ta1.arr(0))
    ta1 = ta2
    Debug.Print VarPtr(ta1.arr(0))  
End Sub

@Jack Famous · 22.11.2023, 10:18

Сообщение от testuser2

Тут уж, как говориться, "маэстро взялся за дело"! Серьезная информация поступила )

полностью согласен!
The trick, впечатляет — моё почтение

@HackerVlad · 22.11.2023, 11:46

да надо самому научиться пользоваться дизассемблером
реверс-инженеринг - это интересно

Добавлено через 1 минуту
вот например, мне нужен был исходный код функции InputBox, если бы я получил этот исходный код сразу через дизассемблер например, то я сразу бы и узнал про функцию DialogBoxParam и кучу бы времени сэкономил

Добавлено через 51 секунду
самому можно быть маэстро короче

@testuser2 · 25.11.2023, 09:49 **[ТС]**

Небольшое лирическое отступление.

Кликните здесь для просмотра всего текста

Периодически можно увидеть вопрос, как можно защитить свой vba проект. Есть встроенная защита паролем, есть хак с правкой бинарника vba, но это не надежные способы. Не так давно появился Vba-compiler очень продуманый, который стоит как грузовик (если бы его у нас еще можно было купить )) Я кстати попробовал его в триал режиме, там действительно компилится библиотека, из которой функции подключаются через Declare (в vb использовать эту библиотеку не получилось) В этой связи думается, что, так скажем, 32-битная эпоха, длившаяся очень долго, была на самом деле золотым временем в VBA. Потому, что макросы VBA можно было спокойно и легко писать на VB6 и компилить в библиотеку. И уровень защиты отличный + 2x скорость. Сейчас, конечно везде и всюду x64.. И в этом плане для VBA-шников, я думаю, также как и для других пользователей VB должен быть интересен Twin Basic.. Сам я пока не пользовался, и не видел большого энтузиазма от местных респондентов, так понимаю, продукт сырой.. Собственно, на этом мысль заканчивется..

Добавлено через 23 минуты

Продолжение мысли:

Или вопросы типа "как ограничить использование файла по времени". Гипотетически это легко все можно было бы реализовать в виде vb-шной библиотеки. Коненчо существует С++ xll, но на VB то это все гораздо проще.

@HackerVlad · 25.11.2023, 13:43

Сообщение от testuser2

Есть встроенная защита паролем

Видел как взламывают пароли, которые как раз в InputBox там уже всё сто раз дизассемблировали и взломали, такие пароли щёлкаются как орешки уже давно)))

@testuser2 · 25.11.2023, 16:02 **[ТС]**

Сообщение от HackerVlad

Видел как взламывают пароли

Самое печальное, что там и не нужно взламывать пароли. Самое смешное, что для макросов vba обычно и не нужна защита уровня топ, но и той защиты которая есть не совсем достаточно.

@The trick · 25.11.2023, 19:29

testuser2, для этого как раз и существует ActiveX библиотеки. Их можно использовать из 64 битного софта. Компилируй ActiveX EXE или DLL - создавай объекты.

@testuser2 · 26.11.2023, 04:57 **[ТС]**

The trick, но там же не получится подключить 64й Excel в референсах и использовать все его типы и объекты, я не проверял конечно, но, что точно, это нельзя будет использовать в одном потоке с vba

@testuser2 · 27.11.2023, 12:31 **[ТС]**

Сообщение от The trick

К счастью есть TlbCall который не вызывает ничего лишнего

Подключил одну, потом другую из имеющихся у меня tlb в обоих есть разные вариации CM и обе вызывают фатальную ошибку приложения. В чем может быть причина. В обоих tlb CM прописан с праметром размера типа Long, хотя более правильно LongPtr, может быть в этом загвоздка или под x64 нужно вообще длать специальную tlb?
Простой код

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub TestCM()
    Dim i&, t!, a$, b$, c$
    
    a = "fgjhkjlserveeFHJHHрырвРЛЛДАКЕИжррдппрдрдрлуккушцшцббюбфы"
    b = String(Len(a), vbNullChar)
    c = b
    t = Timer
    For i = 1 To 1000000
        'Функция из Declare работает без ошибок
'        CopyMemory1 ByVal StrPtr(b), ByVal StrPtr(a), LenB(b)
'        CopyMemory1 ByVal StrPtr(b), ByVal StrPtr(c), LenB(b)
        'функция из tlb
        CopyMemoryStrToStr b, c, LenB(b)
        CopyMemoryStrToStr b, a, LenB(b)
    Next
    t = Timer - t
    Debug.Print t
End Sub

Вообще на x64 vba при обычном декларировании в обязаловку требуется добавлять ключевое слово PtrSafe "Declare PtrSafe Sub CopyMemory"

Добавлено через 18 минут
Хорошую информацию нашел (перевод)

tB планирует поддерживать экспорт TLB в будущем; когда эта функция станет доступна, я экспортирую tbShellLib как TLB для 64-битного VBA. Но до тех пор, если вы хотите заниматься 64-битной разработкой, используйте TwinBASIC. Создайте новый проект, затем выполните следующие действия, чтобы добавить tbShellLib в качестве ссылки, после чего вы сможете протестировать IActiveScript и связанные интерфейсы.

@The trick · 27.11.2023, 21:08

Попробуй эту. (функция memcpy)

@testuser2 · 28.11.2023, 04:35 **[ТС]**

The trick, такое же поведение, как и в предыдущих случаях с tlb первый вызов нормальный, на втором случается это

Code
1
ФАТАЛЬНАЯ ОШИБКА: Unhandled Access Violation Reading Oxffffffff Exception at 903451ah

Добавлено через 2 часа 36 минут
А это же еще и cdecl..

@testuser2 · 28.11.2023, 17:38 **[ТС]**

что-то тишина на формуме последнее время, наверное грипп. Пейте перекись 2 капли на стакан воды.

@HackerVlad · 28.11.2023, 19:32

Сообщение от testuser2

наверное грипп. Пейте перекись 2 капли на стакан воды

пхахаахахх да просто все заняты своей работой)))) у нас в нашем разделе и так мало людей)))

Добавлено через 52 секунды
testuser2, ты тут самый активный кстати по моему)))

@The trick · 28.11.2023, 21:12

Сообщение от testuser2

The trick, такое же поведение, как и в предыдущих случаях с tlb первый вызов нормальный, на втором случается это

Скинь проект т.к. я не знаю что у тебя за CopyMemoryStrToStr. Скинь проект или код где используется memcpy из моей tlb.

Сообщение от testuser2

А это же еще и cdecl..

Нет. Это просто псевдоним, а функция на самом деле RtlMoveMemory.

@testuser2 · 29.11.2023, 02:06 **[ТС]**

Сообщение от The trick

Скинь проект т.к. я не знаю что у тебя за CopyMemoryStrToStr.

Там несколько tlb, в т.ч. oleexp от fafalone в которой даже 3 парпметр CM указан как longptr, но он, кстати, предупреждает, что tlb работает только под x32

@HackerVlad · 29.11.2023, 11:12

Сообщение от testuser2

от fafalone

Кстати даже fafalone постоянно лестно отзывается о кодах нашего The Trick и сегодня и вчера я читал... Нашего трюкача постоянно нахваливают иностранцы))))

Добавлено через 58 секунд
fafalone кстати это наверное примерно такой же гений как и the trick

@The trick · 29.11.2023, 20:09

testuser2, да проблема в 3-м параметре. Там должно быть 64 битное значение на 64 битной платформе.

@testuser2 · 30.11.2023, 01:51 **[ТС]**

The trick, спасибо, а я если честно подозревал другое, потому, что у fafalone в tlb прописан LongPtr, но все равно, происходит ошибка

@The trick · 30.11.2023, 01:55

Сообщение от testuser2

что у fafalone в tlb прописан LongPtr, но все равно, происходит ошибка

Где?

@testuser2 · 30.11.2023, 04:59 **[ТС]**

The trick, блин, я что-то понапутал со своими CM-ками видимо ) Скажи пожалуйста, как в TLB прописать 64 битный параметр?

Добавлено через 6 минут
Вижу в Windows Data Tipes есть LONG_PTR может быть его прописывать в odl?

Добавлено через 2 часа 21 минуту
Точно, это он.
3 параметр это size_t

Code
1
typedef LONG_PTR SSIZE_T

@testuser2 · 30.11.2023, 14:23 **[ТС]**

Это я думал, что в odl поддерживаютя стандартные типы windows, он же вроде с-подобный такой, даже не знаю, можно ли там делать проверку типа #If Win64, но, сделать универсальную кроссбитную тлб на самом деле оказалось очень просто - 3й параметр надо задекларить как void (без звездочки) и все закрутилось на vba x64, при чем там быстрее оказалось на 12%. Проверил таже RtlCopyMemory (доступную в 64битной версии kernel32) и она оказалась медленей чем Move на 10%.

Добавлено через 2 часа 38 минут
C tlb-шкой можно строки копировать так (без StrPtr)

Visual Basic
1
CopyMemory ByVal b, ByVal a, CLngPtr(LenB(b))

Это заметил, кстати такое, когда строку предаешь byval, в VarPtr то возвращается указатель на буфер. VarPtr(ByVal s$), вернет тоже что и StrPtr(s). Пробовал также с массивами и апишным VarPtr (ArrPtr), чтобы возвратило указатель на SA - не получилось.

Новые блоги и статьи Все статьи Все блоги /
Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .	Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .
Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .	Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .	Цена ошибки DevAlt 23.08.2026 Человек я беспокойный и потому заинтересовался OCaml, в чате форсили функторы модулей как суперфичу. Пытаясь отдуплить концепт, наткнулся на тутор с простым примером. А главный принцип обучения от. . .

@HackerVlad Вернулся 1754 / 650 / 45 Регистрация: 10.09.2021 Сообщений: 2,807
	22.11.2023, 11:46
	да надо самому научиться пользоваться дизассемблером реверс-инженеринг - это интересно Добавлено через 1 минуту вот например, мне нужен был исходный код функции InputBox, если бы я получил этот исходный код сразу через дизассемблер например, то я сразу бы и узнал про функцию DialogBoxParam и кучу бы времени сэкономил Добавлено через 51 секунду самому можно быть маэстро короче 0

@testuser2 1409 / 868 / 93 Регистрация: 08.02.2017 Сообщений: 3,710 Записей в блоге: 2
	25.11.2023, 09:49 [ТС]
	Небольшое лирическое отступление. Кликните здесь для просмотра всего текста Периодически можно увидеть вопрос, как можно защитить свой vba проект. Есть встроенная защита паролем, есть хак с правкой бинарника vba, но это не надежные способы. Не так давно появился Vba-compiler очень продуманый, который стоит как грузовик (если бы его у нас еще можно было купить )) Я кстати попробовал его в триал режиме, там действительно компилится библиотека, из которой функции подключаются через Declare (в vb использовать эту библиотеку не получилось) В этой связи думается, что, так скажем, 32-битная эпоха, длившаяся очень долго, была на самом деле золотым временем в VBA. Потому, что макросы VBA можно было спокойно и легко писать на VB6 и компилить в библиотеку. И уровень защиты отличный + 2x скорость. Сейчас, конечно везде и всюду x64.. И в этом плане для VBA-шников, я думаю, также как и для других пользователей VB должен быть интересен Twin Basic.. Сам я пока не пользовался, и не видел большого энтузиазма от местных респондентов, так понимаю, продукт сырой.. Собственно, на этом мысль заканчивется.. Добавлено через 23 минуты Продолжение мысли: Или вопросы типа "как ограничить использование файла по времени". Гипотетически это легко все можно было бы реализовать в виде vb-шной библиотеки. Коненчо существует С++ xll, но на VB то это все гораздо проще. 0

@The trick Модератор 10067 / 3912 / 885 Регистрация: 22.02.2013 Сообщений: 5,863 Записей в блоге: 79
	25.11.2023, 19:29
	testuser2, для этого как раз и существует ActiveX библиотеки. Их можно использовать из 64 битного софта. Компилируй ActiveX EXE или DLL - создавай объекты. 0

@testuser2 1409 / 868 / 93 Регистрация: 08.02.2017 Сообщений: 3,710 Записей в блоге: 2
	26.11.2023, 04:57 [ТС]
	The trick, но там же не получится подключить 64й Excel в референсах и использовать все его типы и объекты, я не проверял конечно, но, что точно, это нельзя будет использовать в одном потоке с vba 0

@The trick Модератор 10067 / 3912 / 885 Регистрация: 22.02.2013 Сообщений: 5,863 Записей в блоге: 79
	27.11.2023, 21:08
	Попробуй эту. (функция memcpy) 0

@testuser2 1409 / 868 / 93 Регистрация: 08.02.2017 Сообщений: 3,710 Записей в блоге: 2
	28.11.2023, 17:38 [ТС]
	что-то тишина на формуме последнее время, наверное грипп. Пейте перекись 2 капли на стакан воды. 1

@The trick Модератор 10067 / 3912 / 885 Регистрация: 22.02.2013 Сообщений: 5,863 Записей в блоге: 79
	29.11.2023, 20:09
	Сообщение было отмечено testuser2 как решение Решение testuser2, да проблема в 3-м параметре. Там должно быть 64 битное значение на 64 битной платформе. 1

@testuser2 1409 / 868 / 93 Регистрация: 08.02.2017 Сообщений: 3,710 Записей в блоге: 2
	30.11.2023, 01:51 [ТС]
	The trick, спасибо, а я если честно подозревал другое, потому, что у fafalone в tlb прописан LongPtr, но все равно, происходит ошибка 0

Нативный CopyMemory

Решение