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

Новые блоги и статьи Все статьи Все блоги /
Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .	Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .
Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .	Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .

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

@testuser2 1399 / 857 / 92 Регистрация: 08.02.2017 Сообщений: 3,635 Записей в блоге: 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 Модератор 10060 / 3905 / 885 Регистрация: 22.02.2013 Сообщений: 5,854 Записей в блоге: 79
	25.11.2023, 19:29
	testuser2, для этого как раз и существует ActiveX библиотеки. Их можно использовать из 64 битного софта. Компилируй ActiveX EXE или DLL - создавай объекты. 0

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

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

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

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

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

Нативный CopyMemory

Решение