Тестирование полезных кодов и примеров

Dragokas · Регистрация: 25.12.2011

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

Если Ваш код из темы Готовые решения и полезные коды на Visual Basic 6.0

неправильно собран или неработоспособен, он будет перенесен сюда.

Для доведения кода в рабочее состояние в порядке обсуждения создайте новую тему

Dragokas · 01.03.2019, 16:58 **[ТС]**

kreotodr, нажмите первую кнопку в этой программе, и сообщите каков будет там результат: https://github.com/dragokas/hijackthis

Если тоже самое, то напишите, что возвращает ProductType в:

Visual Basic
1
GetProductInfo(osi.dwMajorVersion, osi.dwMinorVersion, osi.wServicePackMajor, osi.wServicePackMinor, ProductType)

и каково реальное название редакции вашей ОС.

@kreotodr · 01.03.2019, 17:11

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

нажмите первую кнопку в этой программе

Какая из них правая...???

Dragokas · 01.03.2019, 17:12 **[ТС]**

Первая, а не правая. Та что выделена синим.

@kreotodr · 01.03.2019, 19:44

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

нажмите первую кнопку в этой программе

Platform: x64 Windows 10 (Enterprise 2015 LTSB), 10.0.14393.2791 (ReleaseId: 1607), Service Pack: 0 (и оно же реальное....)

GetProductInfo(osi.dwMajorVersion, osi.dwMinorVersion, osi.wServicePackMajor, osi.wServicePackMinor, ProductType) ==>0

Dragokas · 01.03.2019, 19:54 **[ТС]**

Не совсем то, что просил, ну и ладно.

Вообщем, тот перечень устарел, так что берите новую версию класса из вышеуказанной программы.

@oplrox · 20.06.2019, 01:58

The trick, большое спасибо за ваши работы!
Вопрос насчет проигрывателя Mp3 из памяти. В вашем плеере через кнопку открывается новая форма и начинается параллельное вопроизведение. Каждый клик на кнопке создает новый экземпляр формы. Подскажите, как можно сделать чтоб звуки проигрывались одновременно без создания новой формы?

@The trick · 20.06.2019, 06:36

oplrox, форму можно не создавать. Просто создать еще один экземпляр класса в той же форме.

@oplrox · 20.06.2019, 07:55

The trick, всё получилось, правда при старте параллельного воспроизведения, происходит секундная задержка уже воспроизводимого звука. Этого можно избежать? Если что извиняйте за глупые вопросы, я еще новенький и только разбираюсь как эта кухня работает)
Также еще один насущный вопрос. Есть mp3-файл, в него необходимо поставить метку в стринговом виде, что-то типа watermark'а, это может быть небольшое слово или некий набор цифр, устойчивый к перекодировке. Может Вам уже встречалось решение, или что-то наподобие?

@The trick · 20.06.2019, 08:13

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

Этого можно избежать?

Скиньте пример, я посмотрю.

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

Есть mp3-файл, в него необходимо поставить метку в стринговом виде, что-то типа watermark'а, это может быть небольшое слово или некий набор цифр, устойчивый к перекодировке. Может Вам уже встречалось решение, или что-то наподобие?

Теги подойдут? Или именно в звуковые данные необходимо вставить типа стеганографии?

@oplrox · 20.06.2019, 10:40

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

Скиньте пример, я посмотрю.

Придется снова извиниться, только что запустил на работе (winXP), всё работает, возможно проблема в портабельной студии которой пользуюсь дома на семерке, она вобщем и так часто подглючивает.

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

Теги подойдут?

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

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

Или именно в звуковые данные необходимо вставить типа стеганографии?

Да, именно так. Пробовал искать подобные решения, самое простое что смог найти - AUDIO TATTOO, но платное. Кроме того, автор по почте ответил, что программа еще не доработана. И еще такой вариант - XWMG-1 Audio Watermark Generator, тоже платный. Спрашиваю, потому что сам занимаюсь музыкой и очень бы хотелось иметь данный функционал на бейсике.

@The trick · 20.06.2019, 11:39

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

Да, именно так. Пробовал искать подобные решения, самое простое что смог найти AUDIO TATTOO, но платное. Кроме того, автор по почте ответил, что программа еще не доработана.
И еще такой вариант XWMG-1 Audio Watermark Generator, и тоже платный. Спрашиваю, потому что сам занимаюсь музыкой и очень бы хотелось иметь данный функционал на бейсике.

Для таких форматов (с потерями) нужно прятать информацию в фазе или спектре. Также мб даже лучше будет прятать в эхе, потом через авторкорреляцию смотреть разности пиков. Для фазы можно пересобрать сигнал закодировав данные в фазовом спектре, но при большом сжатии там частоты будут убираться, поэтому нужно хранить только в относительно мощных гармониках. Эхо будет, я думаю, самым устойчивым, но и самым заметным.

@oplrox · 20.06.2019, 12:11

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

Для таких форматов (с потерями) нужно прятать информацию в фазе или спектре.

Пробовал таким способом, но его неудобство в кол-ве телодвижений, каждый раз нужно рисовать спектр, потом заново рендерить файл. И как Вы сказали, будет урезка частот при сжатии, с реверберацией и вовсе заметно. Программы, приведенные выше, как-то добавляют в файл именно текстовые значения (небольшой длины), которые не теряются даже после перекодировки из формата в формат. Интересный и не очевидный алгоритм. Ну это так, для общего развития. The trick, спасибо за ответ и информацию.

@The trick · 20.06.2019, 14:21

oplrox, рисовать спектр можно и в vb, делай fft и там амплитуды гармоник изменяй.

@oplrox · 20.06.2019, 15:02

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

oplrox, рисовать спектр можно и в vb, делай fft и там амплитуды гармоник изменяй.

Тему уже нашел, изучаю

С трудом верится что осилю, сложновато уж как-то. Зато теперь есть куда копать

@The trick · 20.06.2019, 15:05

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

С трудом верится что осилю, сложновато уж как-то. Зато теперь есть куда копать

https://www.cyberforum.ru/post5213260.html

@oplrox · 21.06.2019, 00:06

Вложение 1050168

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

Скиньте пример, я посмотрю.

Итак, всё же есть прерывания звука. Пример проекта во вложении.

@The trick · 21.06.2019, 07:10

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

Итак, всё же есть прерывания звука. Пример проекта во вложении.

Потому что используется блокирующая функция URLDownloadToFile, нужно использовать асинхронный режим работы. А вообще в VB есть встроенные средства для скачивания асинхронно - Usercontrol.AsyncRead. Прерывание в Shell происходит потому что Shell ждет пока инициализируется процесс. Нужно использовать альтернативу, к примеру ShellExecute.

@oplrox · 21.06.2019, 19:12

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

А вообще в VB есть встроенные средства для скачивания асинхронно - Usercontrol.AsyncRead.

The trick, наверно имеется ввиду чтение содержимого страницы по URL? К сожалению это не подойдет, необходимо именно закачать файл. Несколько часов провозился с Usercontrol'ом, так ничего и не вышло, только код страницы в результате. За основу бралось это решение.

PS/ С ShellExecute хорошо получилось, взял на вооружение, прост в освоении и полезнее обычного шелла.

@LeonID2410 · 26.06.2020, 12:36

The trick, Добрый день
Пытаюсь использовать Ваш код для шифрования ActiveX exe. В процедуре EncryptMe возникает ошибка 6 Overflow в строке CheckSum = ((CheckSum * 123) Xor exeDat(fileOfst)) And &HFFFFFFF. Замена переменных Long на Double не помогает. Можно ли как-то обойти эту ошибку? Шифруемый файл размером около 1700 кБ.
Спасибо

@The trick · 26.06.2020, 13:52

LeonID2410, при компиляции нужно компилировать с оптимизациями:

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

Dragokas 18031 / 7734 / 892 Регистрация: 25.12.2011 Сообщений: 11,502 Записей в блоге: 16

	Тестирование полезных кодов и примеров 15.10.2012, 00:56. Показов 29736. Ответов 301 Метки нет (Все метки) Если Ваш код из темы Готовые решения и полезные коды на Visual Basic 6.0 неправильно собран или неработоспособен, он будет перенесен сюда. Для доведения кода в рабочее состояние в порядке обсуждения создайте новую тему 2

Dragokas 18031 / 7734 / 892 Регистрация: 25.12.2011 Сообщений: 11,502 Записей в блоге: 16
	01.03.2019, 17:12 [ТС]
	Первая, а не правая. Та что выделена синим. 0

Dragokas 18031 / 7734 / 892 Регистрация: 25.12.2011 Сообщений: 11,502 Записей в блоге: 16
	01.03.2019, 19:54 [ТС]
	Не совсем то, что просил, ну и ладно. Вообщем, тот перечень устарел, так что берите новую версию класса из вышеуказанной программы. 0

@oplrox 3 / 3 / 0 Регистрация: 27.11.2015 Сообщений: 11
	20.06.2019, 01:58
	The trick, большое спасибо за ваши работы! Вопрос насчет проигрывателя Mp3 из памяти. В вашем плеере через кнопку открывается новая форма и начинается параллельное вопроизведение. Каждый клик на кнопке создает новый экземпляр формы. Подскажите, как можно сделать чтоб звуки проигрывались одновременно без создания новой формы? 0

@The trick Модератор 10051 / 3896 / 884 Регистрация: 22.02.2013 Сообщений: 5,849 Записей в блоге: 79
	20.06.2019, 06:36
	oplrox, форму можно не создавать. Просто создать еще один экземпляр класса в той же форме. 1

@oplrox 3 / 3 / 0 Регистрация: 27.11.2015 Сообщений: 11
	20.06.2019, 07:55
	The trick, всё получилось, правда при старте параллельного воспроизведения, происходит секундная задержка уже воспроизводимого звука. Этого можно избежать? Если что извиняйте за глупые вопросы, я еще новенький и только разбираюсь как эта кухня работает) Также еще один насущный вопрос. Есть mp3-файл, в него необходимо поставить метку в стринговом виде, что-то типа watermark'а, это может быть небольшое слово или некий набор цифр, устойчивый к перекодировке. Может Вам уже встречалось решение, или что-то наподобие? 0

@The trick Модератор 10051 / 3896 / 884 Регистрация: 22.02.2013 Сообщений: 5,849 Записей в блоге: 79
	20.06.2019, 14:21
	oplrox, рисовать спектр можно и в vb, делай fft и там амплитуды гармоник изменяй. 0

@LeonID2410 0 / 0 / 0 Регистрация: 05.06.2020 Сообщений: 3
	26.06.2020, 12:36
	The trick, Добрый день Пытаюсь использовать Ваш код для шифрования ActiveX exe. В процедуре EncryptMe возникает ошибка 6 Overflow в строке CheckSum = ((CheckSum * 123) Xor exeDat(fileOfst)) And &HFFFFFFF. Замена переменных Long на Double не помогает. Можно ли как-то обойти эту ошибку? Шифруемый файл размером около 1700 кБ. Спасибо 0

@The trick Модератор 10051 / 3896 / 884 Регистрация: 22.02.2013 Сообщений: 5,849 Записей в блоге: 79
	26.06.2020, 13:52
	LeonID2410, при компиляции нужно компилировать с оптимизациями: 0