Clik here to view.
read json file from
I have the file in c:\mydir\ (attached), i need to read the .json file, how to? Attached Files testjson.txt (92.1 KB)
View ArticleClik here to view.
ucCalendar (Events calendar)
Hi, I want to share my last user control of a calendar of events, I will not be able to upload the control here since within the example I use two dll to link the calendar to a database with SQLite, so...
View ArticleClik here to view.
Export/Import Variables, Properties & UDT's for VB6 & VBA
This system enables you to bundle data from a program into a highly compact binary array that can be sent to other programs, saved to disk, re-used within a program, etc. It works in 32- and 64-bit VBA...
View ArticleLuhn checksum algorithm
This allows you to calculate the Luhn checksum for a string of decimal digits, as well as to validate that checksum. Here's the code. Code: Public Function Luhn(ByVal DecimalString As String) As Byte...
View ArticleVisual Basic IDE dependencies
Good afternoon guys I happen to be playing with Visual Basic and I have several third party applications written in this language that I think have downgraded the versions of some system files. When...
View ArticleClik here to view.
VB6 TileHandling and Unicode-Shapes
There's a lot of Unicode-Symbols in the upper CodePoint-Ranges, which are suitable for simple Game-Purposes. - e.g. for Chess-Pieces: https://en.wikipedia.org/wiki/Chess_...2_chess_pieces - but also...
View ArticleImage (de)compressor
This code should go in a module. Code: Public Sub CompressImage(ByRef PixIn() As Long, ByVal Width As Long, ByVal Height As Long, ByVal OutputFileName As String, ByVal ThresholdForCopy As Long) Dim...
View ArticleClik here to view.
VB6 A simple approach to Lighweight-Classes
As the title says already - another approach to LW-COM - hopefully simple(r) to understand, because: - it doesn't require to implement "all the Methods in the *.bas-Module" - instead,...
View Article[VB6] Code snippet: Run unelevated app from elevated app
Surprised I didn't see an example of this, so wanted to post it. Here's a quick implementation of a method to run unelevated apps from your elevated app by routing it through Explorer, as outlined by...
View Articlevb6 Api ReadFile,SaveFile with NtReadFile,NtWriteFile
Code: Private Declare Function OpenFile& Lib "kernel32" (ByVal FileName As String, ByVal OFs As Long, ByVal Flags As Long) Private Declare Function NtReadFile& Lib "ntdll" (ByVal Handle As...
View ArticleRC5 Sqlite Like Adodb.Connection/Adodb.RecordSet(WithOut Reg Com Dll)
Code: Sub TestSqliteComDll() Dim Cnn As cConnection Set Cnn = New_cConnection MsgBox Cnn.Version End Sub Code: Option Explicit '免注册加载DLL- ''COM DLL可以放在当前目录或SysWOW64就能引用成功,...
View ArticleClik here to view.
GMail Using OAuth 2.0
Hello friends, Ive seen several posts recently with concerns about google disabling username/password gmail useage from 'less secure apps'. Ive been working with OAuth alot in other projects so Im...
View ArticleClik here to view.
PNG with alpha channel into standard VB6 image control
Ok, I developed this in another thread, with the help of several other members (LaVolpe, Dilettante, Wqweto, Schmidt, & The Trick). All it does is read a standard RGBA type (32bpp) PNG file and...
View Article[VB6/VBA] Pure VB6 implementation of SHA-224, SHA-256, HMAC-SHA224 and...
Deliberately does not use any API calls so is not the sharpest tool in the shed Code: '--- mdSHA2.bas Option Explicit DefObj A-Z Private PowerOf2(0 To 31) As Long Private Function LShift(ByVal lX As...
View ArticleUDT to String and Vice-Versa
This occasionally comes up when we need to get a UDT into a String, and back again. We may want to do this for inter-process communications, or maybe to easily get it into a Variant or Collection, or...
View ArticleMicrosoft hardening DCOM, forcing packet integrity on March 14, 2023
DCOM = Distributed Com Object Model Update Release Behavior Change June 8, 2021 Hardening changes disabled by default, but with ability to enable them using a register key. June 14, 2022 Hardening...
View Articleselect case send data
client side Code: Private Sub sckClient_DataArrival(ByVal bytesTotal As Long) Dim strData As String, strPackets() As String Dim strTrunc As String, bolTrunc As Boolean Dim lonLoop As Long,...
View ArticleClik here to view.
Arrays in Far Memory
Ok, this is an idea I've been playing around with, inspired by some work by Dilettante and The Trick. And much thanks goes out to both of them. My idea was to use those concepts and create a class that...
View ArticleClik here to view.
Encrypted File Transfer
Attached are sample programs that facilitate sending a file over the WAN (Wide Area Network) fully encrypted. Transferring a file unencrypted over the Internet using SimpleSock is usually quite...
View Article[VB6/VBA] SHA-3 pure VB implementation incl. HMAC
This mdSha3.bas module includes CryptoSha3 function that can be used to calculate SHA-3 hash in all bit-sizes: SHA3-224, SHA3-256, SHA3-384 and SHA3-512. The module also includes CryptoKeccak function...
View Article