Нативный 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 - не получилось.

Новые блоги и статьи Все статьи Все блоги /
Транслитерация текста с кириллицы на латиницу (вариант №2) Maks 13.11.2026 Обновленная версия ранее созданной обработки. Добавлено: - Проверка исходного текста на кириллицу, через обращение к стандартной функции "ТолькоКириллицаВСтроке" из общего модуля. . .	Часы с термометром и праздничным календарем yariko 12.11.2026 Сегодня мы рассмотрим как можно сделать отличные многофункциональные часы. Итак, поставим конкретную задачу: разработать часы с календарем, двумя термодатчиками, выводом поздравительных сообщений. . .	Транслитерация текста с кириллицы на латиницу (вариант №1) Maks 11.11.2026 Решил облегчить жизнь себе и коллегам админам при создании электронных почтовых ящиков для пользователей, в результате написал обработку "Транслитерация текста" с кириллицы на латиницу, а в ней. . .	Книги по геймдизайну, левел-дизайну, игровым механикам и проектированию игрового опыта 8Observer8 08.11.2026 Содержание блога \| English Version 1. 2003 - 06 - Designing Virtual Worlds (1st Edition) Автор: Richard A. Bartle \| Объем: 768 стр. Ссылки: Amazon . . .
Родители токсичные абьюзеры по отношению к своим детям ругают их оскорбляют не любят zorxor 08.11.2026 Жить в атмосфере постоянных оскорблений, критики и холодности со стороны родителей — это тяжелое и болезненное испытание, которое оставляет глубокие эмоциональные раны. Токсичное и абьюзивное. . .	Как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Ответ от Джемени ИИ. zorxor 08.11.2026 Джемени, как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Многие люди, возвращаясь домой, сразу переодеваются в максимально свободную одежду или вовсе предпочитают. . .	Паттерн очереди действий/команд (Action / Command Queue). Система очереди действий и кат-сцен с SDL3 Callbacks, cglm и OpenGL 8Observer8 07.11.2026 Содержание блога \| English Version Руководство для начинающих по реализации паттерна очереди действий/ команд (Action / Command Queue) на C++ (C++20) с использованием официального SDL3 Callbacks. . .	Проверка полного ФИО в типовом справочнике Maks 07.11.2026 Решение реализовано в конфигурации КА2, на примере справочника "КонтактныеЛицаПартнеров". Задача: Запрет инициалов. Не допускаеть использование сокращений вида "И. И. ", "И. И. ", "И И" и. . .

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

@testuser2 1412 / 878 / 93 Регистрация: 08.02.2017 Сообщений: 3,753 Записей в блоге: 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 Модератор 10069 / 3914 / 886 Регистрация: 22.02.2013 Сообщений: 5,863 Записей в блоге: 79
	25.11.2023, 19:29
	testuser2, для этого как раз и существует ActiveX библиотеки. Их можно использовать из 64 битного софта. Компилируй ActiveX EXE или DLL - создавай объекты. 0

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

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

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

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

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

Нативный CopyMemory

Решение