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

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

Новые блоги и статьи Все статьи Все блоги /
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .

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

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

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

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