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

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, при компиляции нужно компилировать с оптимизациями:

Новые блоги и статьи Все статьи Все блоги /
интеграция AnyLogic с самописным REST API и переход на Odoo anaschu 03.07.2026 Успешная интеграция AnyLogic с самописным REST API и переход на промышленную Odoo WMS Сегодня проделал огромный путь от простой симуляции физических процессов до построения полноценной. . .	Поиск всех путей на ориентированном графе. Linux dcc0 02.07.2026 Переработка старого кода из моей статьи. Через несколько переработок от PHP кода к C89 (надеюсь, 89). Но довольно запутанно получилось. Код для Linux. Но если убрать time и то, что с ним. . .	Сам себя обучал rest api anaschu 02.07.2026 Педагогический лайфхак: Почему чистый REST API для ученика намного круче, чем готовые библиотеки Когда мы отказались от капризного JAR-файла AnyLogic и переписали код на стандартный HttpClient,. . .	rest api anylogic - выполнение модели на своём русском сайте anaschu 02.07.2026 Как подружиться с AnyLogic Cloud API, победить провайдеров и развернуться Java-бэкенд в Docker на бесплатном хостинге: Двухдневный лог борьбы Всем привет! Хочу поделиться свежим (и довольно. . .
Где деньги лежат kumehtar 02.07.2026 Это - японская подводная лодка I-52 (тип C2, кодовое имя Momi) вышла из Японии в марте 1944 года с миссией в оккупированную немцами Францию (Лорьян). Это была одна из «Янаги»-миссий по обмену. . .	Krabik для WoW 3.3.5a, многоязычный AmbA 02.07.2026 Допилил бота, думаю что окончательно. Изменения: - добавлена многоязычность - добавлено снятие скриншотов - добавлено поддержание бафов хождения по воде (для жреца, дк и шамана) - и так, по. . .	Алиса нашла кучу ошибок компиляции и запуска в проекте, который без проблем компилировался и запускался))) anaschu 30.06.2026 Я пока посмеюся, но завтра проверю. А вообще интерсно. Дал алисе файл, в котором точно нет ошибок компиляции и запуска, и попросил их найти. Нашла кучу))) Критические ошибки, мешающие компиляции и. . .	сукцессия 16. Общий обзор, в основном что бы другие ии поняли anaschu 29.06.2026 # Передаточный документ: модель микоризной сукцессии (для нового чата) Этот документ предназначен для того, чтобы новый чат Claude мог продолжить работу без необходимости заново разбираться в. . .

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

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

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

Dragokas 18035 / 7738 / 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 Модератор 10060 / 3905 / 885 Регистрация: 22.02.2013 Сообщений: 5,854 Записей в блоге: 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 Модератор 10060 / 3905 / 885 Регистрация: 22.02.2013 Сообщений: 5,854 Записей в блоге: 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 Модератор 10060 / 3905 / 885 Регистрация: 22.02.2013 Сообщений: 5,854 Записей в блоге: 79
	26.06.2020, 13:52
	LeonID2410, при компиляции нужно компилировать с оптимизациями: 0