Готовые решения и полезные коды на Visual Basic 6.0 - VB - Страница 12

@fever brain · 25.11.2017, 18:09

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

Битовые операции

Решил тоже показать как это работает

хотя многие и так знают

Топик:

Добавлено через 15 минут
Ниже архив в котором скомпилированный exe (это если у кого нет редактора VB6)

@Pro_grammer · 29.11.2017, 17:03

Если приходиться переписывать код с других языков программирования на VB6, то знаете, что все константы из WinApi нужно обязательно декларировать в своём коде. А перед этим их значения надо ещё найти (если не помните их все наизусть

). Я тут заметил, что в PureBasic очень неплохой список встроенных констант, около 15 000. Конечно, не все относятся к WinApi, но и запас карман не трет.
Набросал простенькую программу, которая по этой базе ищет значение константы, и записывает её в формате VB6.
Вот пример работы с кодом на Делфи:

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

Вписываем в поле поиска константы по очереди, ищем их значения. Все значения собираются в текстовом поле 2, после чего мы просто копируем его и вставляем в свою программу!
Исходный код и готовая программа прилагается

@fever brain · 04.12.2017, 12:23

Шифрование текста методом Вернама

Топик:

@kreotodr · 05.12.2017, 08:43

Иногда бывает необходимо загрзиуть ком, загрузить кучу приложений, и в какойто момент заблокировать комп...

Блокировка компьютера..
Просто и "быстро" всего 7кБ кода

Visual Basic

Private Declare Function LockWorkStation Lib "user32" () As Long
 
Private Sub Form_Load()
 
      If Command = "" Or Val(Command) <= 0 Or Val(Command) > 65 Then
            MsgBox "Ошибка: Неверный синтаксис командной строки!" & vbCrLf & vbCrLf & "В качестве агрумента должно быть задано в сек, время блокировки рабочей станции. " _
                    & "Допустимые значения 1-65 сек", vbOKOnly, "prgLockAfter"
            Unload frmMain
            End
      End If
 
    tmrTm.Interval = Val(Trim(Command)) * 1000
 
End Sub
 
Private Sub tmrTm_Timer()
    LockWorkStation: Unload frmMain: End
End Sub

@CharlyChaplin · 05.03.2018, 12:37

Упражнения для ребёнка младших классов

Выложил сюда свою программу, которую написал для своей 9-и летней дочери, т.к. у неё проблемы с написанием(произношением) английских чисел от 0 до 100 и арифметическим счётом от 0 до 100. Программа ей хорошо помогла и теперь она лучше считает. Соответственно и оформление детское. Произношение английских чисел реализовано при помощи ivona-voice.

Описание:
Реализовано отображение статистики пройденных упражнений, которая сохраняется в самой программе. Никаких дополнительных файлов нет. Появлялась проблема с OCX-календарём, которую обошёл путём создания собственного календаря. Но таблицу MSFlexGrid.ocx пришлось записать в ресурсы программы и при каждом запуске регистрировать, предварительно создав сам OCX-файл, путём чтения файла-ресурса(MSFlexGrid.OCX) из двоичного массива. Файл создаётся во временной папке пользователя.

Реализована привязка статистических данных по имени пользователя Windows и по серийному номеру жёсткого диска. Здесь имеется ввиду серийный номер не логического диска, а физического диска, на котором может располагаться множество логических дисков со своими временными номерами, не имеющими значения после переустановки ОС или форматирования диска. Привязка осуществляется по желанию пользователя. Она нужна для того, чтобы другой пользователь не мог посмотреть(стереть) статистику; том числе и ребёнок без ведома родителей. Если один человек пользовался программой и внёс пароль на изменение статистики, то прежде чем поделиться программой с другим человеком, ему следует очистить статистику, иначе просмотреть её будет нельзя и она не будет накапливаться. Либо можно скачать чистый файл отсюда.

Привязка к компьютеру реализована при помощи шифрования BlowFish и алгоритма хеширования SHA-2(256). По этой причине данные статистики будут недоступны на другом компьютере, т.к. хеши имени пользователя и хеши серийных номеров, являющиеся ключами к шифрованию, будут уникальными. Рекомендуется использовать сразу 2 привязки. Думаю, что вскрывать программу также бесполезно, т.к. кроме зашифрованной строки в ней ничего не будет. "Правильных" ключей программа не знает и расшифровывает с любым ключом. Только результат может оказаться бессмысленным из-за неправильности ключа.

Модули, реализовывающие шифрование BlowFish и хеш SHA-2(256), взяты из открытых источников. В частности BlowFish был взят с официального сайта создателя данного алгоритма, на котором есть ссылка на сайт с исходником, реализованном на VB6. Есть смысл доверять этим исходным кодам, т.к. они располагаются на официальном сайте разработчика алгоритма (Брюса Шнайера) и к тому же код BlowFish исправлялся спустя год после его первого опубликования на том же сайте.

@The trick · 07.05.2018, 00:16

Процедурная генерация фигур, камера, выбор мышью Direct3D9.

Простой пример 3D сцены с генерируемой геометрией, выбором мышью объектов, управлением камерой, трансформацией объектов с использованием DirectX9. В примере показана базовая работа с нацеленной камерой (вращение вокруг цели, зум, панорама), и объектами (трансформации, генерация). Каждый объект помимо позиции также имеет точку опоры, вокруг которой и осуществляется ориентация его в пространстве. В примере процедурно генерируются сферы, усеченные конусы и параллелепипеды. Для работы нужна библиотека типов (после компиляции не требуется) и модули-аналоги D3DX функций (там же).

@The trick · 07.05.2018, 00:27

Рендеринг объектов в отдельном потоке Direct3D9.

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

@The trick · 26.05.2018, 11:39

Direct2D, DirectWrite, WIC.

Всем привет.

Представляю библиотеки типов для работы с Direct2D, DirectWrite и Windows Imaging Component. Также в архиве содержатся вспомогательные модули и примеры работы с данными библиотеками типов. Библиотеки довольно "сырые" поэтому будут дополнятся (новые сущности доступные в Win8 и позже, вспомогательные функции и т.д.) и исправляться различные баги.

Скачать.

@CharlyChaplin · 07.06.2018, 08:03

Пользовательский таймер.

Через заданное время: выключает, перезагружает, завершает сеанс, входит в спящий/ждущий режимы, завершает процесс(ы).
Можно задавать время действия, используя календарь, а также делать screenshot перед выполнением действия.

@The trick · 12.06.2018, 20:17

Модуль для работы с многопоточностью на VB6

Всем привет!
Представляю модуль для работы с многопоточностью на VB6 для Standard EXE проектов. Данный модуль разработан на основе этого решения в котором исправлены некоторые баги и добавлен дополнительный функционал. Модуль не требует никаких дополнительных зависимостей и библиотек типов, работает как в IDE (все функции работают в главном потоке) так и в скомпилированном виде.

Описание работы и сам модуль.

@The trick · 22.08.2018, 14:34

Библиотека для работы с 2D графикой cairo.

Название: arc_negative.png
Просмотров: 996

Размер: 4.6 Кб

Название: fill_style.png
Просмотров: 997

Размер: 6.0 Кб

Название: gradient.png
Просмотров: 996

Размер: 7.6 Кб

Порт кроссплатформенной библиотеки для работы с 2D графикой cairo для VB6. Также в репозитории содержится библиотека типов и множество примеров использования. На основе cairo написан фреймворк vbRichClient для VB6.

Оригинальное описание

Cairo is a 2D graphics library with support for multiple output devices. Currently supported output targets include the X Window System (via both Xlib and XCB), Quartz, Win32, image buffers, PostScript, PDF, and SVG file output. Experimental backends include OpenGL, BeOS, OS/2, and DirectFB.

Cairo is designed to produce consistent output on all output media while taking advantage of display hardware acceleration when available (eg. through the X Render Extension).

The cairo API provides operations similar to the drawing operators of PostScript and PDF. Operations in cairo including stroking and filling cubic Bézier splines, transforming and compositing translucent images, and antialiased text rendering. All drawing operations can be transformed by any affine transformation (scale, rotation, shear, etc.)

Cairo is implemented as a library written in the C programming language, but bindings are available for several different programming languages.

Cairo is free software and is available to be redistributed and/or modified under the terms of either the GNU Lesser General Public License (LGPL) version 2.1 or the Mozilla Public License (MPL) version 1.1 at your option.

Скачать.

@The trick · 01.09.2018, 12:22

DirectShow аудио-визуализатор для мультимедиа с использованием фильтра Sample Grabber.

Пример использует DirectShow для проигрывания мультимедиа файлов с визуализацией аудиоданных посредством фильтра Sample Grabber. Для IDE и скомпилированного варианта используются 2 разных подхода. Поскольку колбек метод ISampleGrabberCB::BufferCB может вызываться из произвольных потоков то отладка в IDE такого способа напрямую опасна. Для этого в IDE используется метод ISampleGrabber::GetCurrentBuffer который вызывается из основного потока, но имеет ограничения связанные с невозможностью узнать время буфера и получение только последнего буфера. Для компенсации задержки в IDE используется константа IDE_DELAY_TIME которая задает время опережения курсора записи в буфер перед курсором считывания. В скомпилированном варианте используется пользовательский объект CSampleGrabberBuffer с интерфейсом ISampleGrabberBuffer который может обслуживать вызовы из разных потоков. Поскольку этот объект принимает вызовы из разных потоков то его реализация затруднена с использованием Implements, поэтому используется "ручное" создание и реализация объекта в стандартном модуле.
Данный объект использует круговой буфер (когда курсор доходит до конца буфера он опять начинает запись сначала) для текущей позиции записи также привязывается метка времени проигрывания буфера. Согласно этой метки вычисляется позиция для курсора воспроизведения. Для сброса метки используется метод ISampleGrabberBuffer::Reset пользовательского объекта (к примеру при первом включении или изменении позиции воспроизведения).

@The trick · 24.01.2019, 00:37

PNG изображения в стандартных контролах VB6.

Всем привет.
Как известно встроенные средства Visual Basic 6.0 не поддерживают возможности работы с PNG изображениями, т.е. к примеру нельзя ипользовать Png картинку в качестве свойства Form.Picture. Я представляю небольшую библиотеку и Add-in которые позволяют обойти эти ограничения. Данная библиотека позволяет загружать и сохранять Png изображения (с альфа каналом) стандартными средствами (LoadPicture / SavePicture), а также включает поддержку Png изображений (с альфа каналом) в контролы. Любой контрол который в своей работе использует стандарнтые Ole Picture объекты будет поддерживать загрузку Png изображений. В свою очередь если изображение выводится посредством IPicture::Render то картинка будет отрисовываться с учетом альфа канала. Данная библиотека должна работать на всех версиях Windows начиная с XP.

Скачать/описание.

@The trick · 11.06.2019, 01:23

Класс таймера.

Класс который реализует функцию таймера для VBA/VB6. Совместим с 64 битным офисом. Для использования нужно просто добавить модуль в проект, задать интервал и ловить события Tick. Модуль имеет небольшую проверку позволяющего уменьшить количество сбоев при отладке.

Ссылка.

@oplrox · 22.06.2019, 04:34

Загрузка файла по URL в асинхронном режиме, методом AsyncRead через UserControl.

@The trick · 12.01.2020, 16:40

Модуль для создания нативных DLL в VB6 из проектов типа Standard EXE.

Архив содержит модуль и несколько примеров использования на языках (VB6, C, PureBasic):

Simple - показ сообщения из DLL;
ShowForm - показ формы из DLL;
CallbackThread - создание потока в DLL и вызов колбека из этого потока в EXE (используется модуль VbTrickThreading).

Пример использования DLL из C:

C

#include <windows.h>
#include <stdio.h>
#include <stdlib.h>
#include <time.h>
#include <initguid.h>
 
#include "interfaces.h"
 
volatile DWORD g_TlsSlot;
 
LONG __stdcall CallBack(IUnknown *pObj) {
    HRESULT hr;
 
    _Form *pForm;
    float fWidth, fHeight;
 
    if (FAILED(hr = pObj->lpVtbl->QueryInterface(pObj, &IID__Form, (void**)&pForm))) {
        return E_UNEXPECTED;
    }
 
    // Check if already initialized
    if (!TlsGetValue(g_TlsSlot)) {
        TlsSetValue(g_TlsSlot, (LPVOID)1);
        srand(time(NULL));
    }
 
    if (SUCCEEDED(hr = pForm->lpVtbl->get_ScaleWidth(pForm, &fWidth)) &&
        SUCCEEDED(hr = pForm->lpVtbl->get_ScaleHeight(pForm, &fHeight))) {
        hr = pForm->lpVtbl->Circle(pForm, 0, rand() % (int)fWidth, rand() % (int)fHeight, rand() % 500, 0, 0, 0, 0);
    }
 
    pForm->lpVtbl->Release(pForm);
 
    return hr;
 
}
 
int main(int argc, char **argv) {
    HINSTANCE hLib = LoadLibrary("CallbackThread.dll");
    DWORD g_TlsSlot = TlsAlloc();
 
    VOID (__stdcall *SetCallback)(LONG (__stdcall *)(IUnknown *)) = 
        (VOID (__stdcall *)(LONG (__stdcall *)(IUnknown *)))GetProcAddress(hLib, "SetCallback");
 
    if (!SetCallback)
        return 1;
 
    SetCallback(CallBack);
 
    printf("press a button to exit\r\n");
    getchar();
 
    FreeLibrary(hLib);
    TlsFree(g_TlsSlot);
 
    return 0;
 
}

Из PureBasic:

PureBasic

IncludeFile "interfaces.pbi"
 
Prototype.l CallbackProto(pObj.IUnknown)
Prototype.l SetCallback(CallbackProto_)
 
Procedure Callback(pObj.IUnknown)
  pFrm._Form
  fWidth.f
  fHeight.f
  
  If pObj\QueryInterface(?IID__Form, @pFrm) = #S_OK
 
    If pFrm\get_ScaleWidth(@fWidth.f) = #S_OK And pFrm\get_ScaleHeight(@fHeight.f) = #S_OK
      pFrm\Circle(0, Mod(Random(100000), fWidth), Mod(Random(100000), fWidth), Mod(Random(100000), 500), 0, 0, 0, 0)
    EndIf
    
    pFrm\Release()
    
  EndIf
  
EndProcedure
 
; Load dll
If OpenLibrary(0, "CallbackThread.dll")
  
  ; Get proc address
  SetCallback.SetCallback = GetFunction(0, "SetCallback")
 
  If SetCallback
    
    ; Call exported function
    SetCallback(@Callback())
 
  EndIf
  
  OpenConsole()
  PrintN("Press enter to close program")
  Input()
  
EndIf

@Diamock · 19.01.2020, 10:59

Регистрация OCX в Windows 7x64

Существует всем известная проблема - регистрация OCX в 64-разрядной Windows 7 (8/10).

Столкнувшись с ней, я начал поиск решения. Перелопатив сеть и сайт microsoft'а - нашёл множество вариантов, но ни один не являлся решением этой проблемы.

В итоге, перечитав всё найденное множество раз - я понял где "собака порылась".

Итак! Алгоритм действий следующий.

1. Копируем нашу ОСХ в папку System32.
2. Копируем нашу ОСХ в папку SysWOW64.

Если дальше следовать указаниям из msdn - следует вызвать командную строку от имени администратора и выполнить следующий код:

Windows Batch file

1	regsvr32 ocx_name.ocx

У меня почти получилось, получил сообщение от операционной системы:

Значит, я на правильном пути!

Создал в папке SysWOW64 bat-файл. Написал в нём тоже, что и в командной строке. Запустил от имени администратора. И вуаля!

Третий и последний пункт нашего алгоритма:

3. Создание в папке SysWOW64 bat-файла и запуск от имени администратора.

Уверен. Многим пригодиться.

P.S. Не проверял в Window 8/10, но думаю, что и там всё получиться.

@The trick · 12.02.2020, 09:54

Генератор сигналов с визуализацией спектра.

В данном проекте реализован простой генератор нескольких звуковых сигналов с визуализацией их спектра.

Описание/скачать.

@The trick · 12.02.2020, 12:33

Использование OBJRef моникера для IPC.

В примере создается OBJRef моникер для VB6-формы к которому можно обращаться из других клиентских приложений:

Другое VB6 приложение;
64 битное приложение на C++;
VBScript - HTA Application

Все это работает как простой вызов метода объекта. COM делает всю работу по синхронизации и маршалингу через границы процессов. Если включен DCOM то можно даже между машинами делать такие вызовы.

Достаточно создать моникер и передать его приложению (к примеру через командную строку):

Visual Basic

    Set cMoniker = CreateObjrefMoniker(Me)
    
    pName = cMoniker.GetDisplayName(CreateBindCtx(), Nothing)
    sName = SysAllocString(pName) 
 
. . .
   
   ShellExecute(0, StrPtr("open"), StrPtr(sPath), StrPtr("""" & sName & """"), 0, vbNormalFocus)

Из другого приложения объект получается посредством GetObject(либо MkParseDisplayName/BindToObject) и дальше с ним можно работать как с обычным объектом. Данный метод можно использовать для замены многопоточности - мультипроцессингом и в отличии от ActiveX EXE не требует регистрации на конечной машине.

@The trick · 12.02.2020, 12:55

Создание общей секции для всех экземпляров исполняемого файла.

В примере показано как использовать общую секцию которая будет разделена между всеми запущенными экземплярами EXE файла. В данном примере там хранится строка которая является общей переменной для всех экземпляров. Пример работает только в скомпилированном виде.

Для создания секции используется COFF файл созданный в ассемблере FASM:

Assembler

format MS COFF
 
section '.shdata' data readable writable shareable
 
public StringContent as "StringContent"
 
start_sec:
 
dd @f - $ + 4
StringContent: du "Hello world!", 0
@@:

Данный объектный файл затем линкуется через ключи линкера:

[VBCompiler]
LinkSwitches= shared_sec.obj -EXPORT:StringContent

Теперь у нас есть возможность получить доступ к данным следующим образом:

Visual Basic

1	pString = GetProcAddress(0, "StringContent")

Данную секцию можно использовать для любого IPC взаимодействия между экземплярами своего приложения. В примере достаточно запустить несколько экземпляров EXE, изменить данные в одном текстбоксе, записать их в общую память, прочитать из другого приложения.

@fever brain oh my god 1454 / 793 / 161 Регистрация: 05.01.2016 Сообщений: 2,307 Записей в блоге: 8
	04.12.2017, 12:23	223
	Шифрование текста методом Вернама Топик: 4

@The trick Модератор 9725 / 3686 / 871 Регистрация: 22.02.2013 Сообщений: 5,531 Записей в блоге: 78
	26.05.2018, 11:39	228
	Direct2D, DirectWrite, WIC. Всем привет. Представляю библиотеки типов для работы с Direct2D, DirectWrite и Windows Imaging Component. Также в архиве содержатся вспомогательные модули и примеры работы с данными библиотеками типов. Библиотеки довольно "сырые" поэтому будут дополнятся (новые сущности доступные в Win8 и позже, вспомогательные функции и т.д.) и исправляться различные баги. Скачать. 5

@The trick Модератор 9725 / 3686 / 871 Регистрация: 22.02.2013 Сообщений: 5,531 Записей в блоге: 78
	12.06.2018, 20:17	230
	Модуль для работы с многопоточностью на VB6 Всем привет! Представляю модуль для работы с многопоточностью на VB6 для Standard EXE проектов. Данный модуль разработан на основе этого решения в котором исправлены некоторые баги и добавлен дополнительный функционал. Модуль не требует никаких дополнительных зависимостей и библиотек типов, работает как в IDE (все функции работают в главном потоке) так и в скомпилированном виде. Описание работы и сам модуль. 4

@The trick Модератор 9725 / 3686 / 871 Регистрация: 22.02.2013 Сообщений: 5,531 Записей в блоге: 78
	22.08.2018, 14:34	231
	Библиотека для работы с 2D графикой cairo. Порт кроссплатформенной библиотеки для работы с 2D графикой cairo для VB6. Также в репозитории содержится библиотека типов и множество примеров использования. На основе cairo написан фреймворк vbRichClient для VB6. Оригинальное описание Cairo is a 2D graphics library with support for multiple output devices. Currently supported output targets include the X Window System (via both Xlib and XCB), Quartz, Win32, image buffers, PostScript, PDF, and SVG file output. Experimental backends include OpenGL, BeOS, OS/2, and DirectFB. Cairo is designed to produce consistent output on all output media while taking advantage of display hardware acceleration when available (eg. through the X Render Extension). The cairo API provides operations similar to the drawing operators of PostScript and PDF. Operations in cairo including stroking and filling cubic Bézier splines, transforming and compositing translucent images, and antialiased text rendering. All drawing operations can be transformed by any affine transformation (scale, rotation, shear, etc.) Cairo is implemented as a library written in the C programming language, but bindings are available for several different programming languages. Cairo is free software and is available to be redistributed and/or modified under the terms of either the GNU Lesser General Public License (LGPL) version 2.1 or the Mozilla Public License (MPL) version 1.1 at your option. Скачать. 4

@The trick Модератор 9725 / 3686 / 871 Регистрация: 22.02.2013 Сообщений: 5,531 Записей в блоге: 78
	24.01.2019, 00:37	233
	PNG изображения в стандартных контролах VB6. Всем привет. Как известно встроенные средства Visual Basic 6.0 не поддерживают возможности работы с PNG изображениями, т.е. к примеру нельзя ипользовать Png картинку в качестве свойства Form.Picture. Я представляю небольшую библиотеку и Add-in которые позволяют обойти эти ограничения. Данная библиотека позволяет загружать и сохранять Png изображения (с альфа каналом) стандартными средствами (LoadPicture / SavePicture), а также включает поддержку Png изображений (с альфа каналом) в контролы. Любой контрол который в своей работе использует стандарнтые Ole Picture объекты будет поддерживать загрузку Png изображений. В свою очередь если изображение выводится посредством IPicture::Render то картинка будет отрисовываться с учетом альфа канала. Данная библиотека должна работать на всех версиях Windows начиная с XP. Скачать/описание. 8

@The trick Модератор 9725 / 3686 / 871 Регистрация: 22.02.2013 Сообщений: 5,531 Записей в блоге: 78
	11.06.2019, 01:23	234
	Класс таймера. Класс который реализует функцию таймера для VBA/VB6. Совместим с 64 битным офисом. Для использования нужно просто добавить модуль в проект, задать интервал и ловить события Tick. Модуль имеет небольшую проверку позволяющего уменьшить количество сбоев при отладке. Ссылка. 6

@The trick Модератор 9725 / 3686 / 871 Регистрация: 22.02.2013 Сообщений: 5,531 Записей в блоге: 78
	12.02.2020, 09:54	238
	Генератор сигналов с визуализацией спектра. В данном проекте реализован простой генератор нескольких звуковых сигналов с визуализацией их спектра. Описание/скачать. 3