ReDimPreserve Two dimension array
Code: Public Sub ReDimPreserve(arrPreserve, ByVal end_row2&, ByVal end_col2&, Optional ByVal start_row2, Optional ByVal start_col2) 'funtion: to break the limitation that ReDim Preserve cannot...
View ArticleClik here to view.
Shagratt's VB6 IDE AddIns collection (Latest versions)
Hi Guys! I dont have plans to keep working on them so I'm releasing all my work on VB6 IDE Addins as a collection. They are all stable and I use all of them daily for my projects. AddIns included are...
View ArticleSimpleSock Update
If you use SimpleSock or SimpleServer, I have found a more efficient and faster way to receive sockets when using a fixed record header. TLS 1.3 encrypted records for example use a fixed 5 byte header....
View ArticleClik here to view.
Add scroll bars to VB-Forms, PictureBoxes and UserControls
Steve McMahon (www.vbAccelerator.com) provides a Scrollbar class which can add scroll bars to VB-Forms, PictureBoxes and UserControls. But the subclass (SSUBTMR.DLL) used by this class is not IDE-Safe....
View ArticleEnvironment variable dumper
Put this code into Form1 of your project and run it. It will put automatically save a file called EnvironmentVariables.txt and then close. This text file contains the environment variables and their...
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 Article