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

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

Новые блоги и статьи Все статьи Все блоги /
Гайд, как ворваться в вайб-кодинг в мае 2026 Noname2331 17.05.2026 Простите за получившееся полотно текста, я даже не знаю, как его разбить на главы. Тут, что называется, ни добавить ни убавить, одна сцена одним дублем. На моих глазах недавно случилось чудо. Как. . .	[golang] Алгоритм «Хак Госпера» alhaos 17.05.2026 Алгоритм «Хак Госпера» Хак Госпера (Gosper's Hack) — алгоритм нахождения следующего по величине числа с тем же количеством установленных бит. Придуман Биллом Госпером в 1970-х, опубликован в. . .	Рисование бинарного древа до 6-го колена на js, svg. russiannick 17.05.2026 <svg width="335" height="240" viewBox="0 0 335 240" fill="#e5e1bb"> <style> <!]> </ style> <g id="bush"> </ g> </ svg> function fn(){ let rost;/ / высота древа let xx=165,yy=210,w=256;	FSharp: interface of module DevAlt 16.05.2026 Интерфейс модуля F# позволяет управлять доступностью членов, содержащихся в реализации модуля. По-умолчанию все члены модуля доступны: module Foo let x = 10 let boo () = printfn "boo" . . .
Хитросплетение родственных связей пантеона греческих богов. russiannick 14.05.2026 Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .	[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .

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

	Тестирование полезных кодов и примеров 15.10.2012, 00:56. Показов 30480. Ответов 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