Currency Problems
I use this to get a value as signed long, Code: Public Function Signed(A) As Long Dim p p = Fix(CDec(A)) Signed = MemLong(VarPtr(p) + 8) End Function Its ok, but this has a correction. The...
View ArticleClik here to view.
IOCP Server - VB6
The attached server program is my first attempt at using IOCP {Input Output Completion Port). It is based on one submitted by xiaoyao, but I am not sure who deserves the credit as it was a repost. To...
View ArticleClik here to view.
HOOK DllFunctionCall Maybe it can be used to make wrappers for multiple DLLS
If a program needs 1 EXE plus 5 DLLS, perhaps using this method, you can put all DLL API calls, JMP jump to the memory resource DLL address, realize multiple files bundled into 1 EXE. There are many...
View Articlevb6 call dll api in other folder
Code: Private Declare Function Add Lib "AComDll_Thread" (ByVal A As Long, ByVal B As Long) As Long Private Sub Form_Load() Dim DllPath As String, NowPath As String DllPath = App.Path &...
View ArticleClik here to view.
vb6 edge webview demo by IUnknown，without rc6.dll
This is just a simple example to open a URL. More can be done with TLB files or better dynamic lightweight COM interfaces. Code: If CreateCoreWebView2EnvironmentWithOptions(0&, 0&, 0&,...
View ArticleClik here to view.
vb6 edge webview2 demo by IUnknown，without rc6.dll
This is just a simple example to open a URL. More can be done with TLB files or better dynamic lightweight COM interfaces. Code: If CreateCoreWebView2EnvironmentWithOptions(0&, 0&, 0&,...
View ArticleClik here to view.
vb6 webview2(Edge-Chromium) by IUnknown WebView2Loader.dll
download webview sdk *.nupkg you can find: webview.tlb , WebView2.idl WebView2Loader.dll https://globalcdn.nuget.org/packages....1774.30.nupkg https://learn.microsoft.com/en-us/mi...s=dotnetcsharp...
View ArticleClik here to view.
vb6 webview2 by IUnknown WebView2Loader.dll-Edge-Chromium
download webview sdk *.nupkg you can find: webview.tlb , WebView2.idl WebView2Loader.dll https://globalcdn.nuget.org/packages....1774.30.nupkg https://learn.microsoft.com/en-us/mi...s=dotnetcsharp...
View ArticleClik here to view.
All Combinations of a String
This is not all my code. Found it on internet and made changes to meet my needs. Works really good. Attached Images Attached Files Combinations String.zip (3.2 KB)
View Articleexcel vba Webview2 Demo(edge Chromium)
Code: 'need rc6.dll Option Explicit Private Declare Function WindowFromAccessibleObject Lib "oleacc" (ByVal pacc As Object, phwnd As Long) As Long Private Declare Function ShowWindow Lib "user32"...
View ArticleClik here to view.
Demo: Fill GDI+ path with scaled texture image
I had a need for this and noticed that there isn't much information about how to fill a GDI+ path with an image which is scaled or stretched to fit said path. Plenty of simple ways to fill a path with...
View Articlesearch file or search file content,Everything SDK For vb6,vba
Everything VBA SDK https://www.voidtools.com/forum/down...le.php?id=1087 Everything32.dll down from: https://www.voidtools.com/Everything-SDK.zip VB6 search file body by everything.exe-VBForums...
View ArticleTimerEx for vb6,vba, Timer in vb6 Class
TimerEx.cls Code: Option Explicit Dim DoTimes As Long Dim m_Interval As Long, m_Enabled As Boolean, lngTimerID As Long Public Event Timer() Sub TimerProc() RaiseEvent Timer End Sub Public Property...
View ArticleClik here to view.
Optical Character Recognition (OCR) With Tesseract3
I needed to perform OCR on values selected out of a larger image by users one-at-a-time, and that led me to Tesseract 3 (there are more recent versions, but I I found V3 first and it worked well enough...
View ArticleGet Class Function Address,vba x64 call by address,CallWindowProc
Code: Declare PtrSafe Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As LongPtr, ByVal hwnd As LongPtr, ByVal Msg As LongPtr, ByVal wParam As LongPtr, Optional ByVal...
View ArticleDoes VB6 ReDim Preserve cause memory reallocation?
Does ReDim Preserve cause memory reallocation? The original array has 1000 members, if you want to change it to 998. Should not re-allocate all the memory? What if it is changed to 1002? Code: dim...
View Article[VB6] Extended InStr-Function
Here's a small function i use extensively when parsing strings. Arguments: Source = The string to search in Delimiters = The single Delimiters as a String we're searching for LeftToRight = The...
View ArticleRelease the ultimate version of iSubClass, an efficient, non-crash-free...
I didn't plan to write a new iSubClass, and the problem with no crashes in previous versions has not been perfectly resolved In the past two days mines, I don't know what crazy to suddenly smoke,...
View ArticleClik here to view.
vb6 Pass structure data without copying,DataType by Pointer
This is taught to me by a Chinese tech expert named *ABC, he is my master Code: Dim PP As UserInfoPtr, U1 As UserInfo U1.ID = 135 U1.v = 1 U1.UserName = "TOM" Dim ClassA As New...
View ArticleExcel Open XML,Creating Excel WorkBooks without Automation
https://www.planetsquires.com/protec...p?topic=3208.0 http://www.planetsquires.com/files/xmlExcel.zip how to use on vb6? Hi Guys, I have been busy lately writing an application for my work. A...
View Article