Search:

Because I don't know the reason for the mistake. Perhaps there are significant differences between VBA and VB6. I hope to switch to running VB6?

how can fixed

https://github.com/DanysysTeam/VBA-RapidOCR

i download this zip about ocr for vba

but if run to this

...

just add in

how can fixed

https://github.com/DanysysTeam/VBA-RapidOCR

i download this zip about ocr for vba or vb

but if run to this

...

very good?

This is a plugin write write by “Birds learn to fly” . The EXE intercepts the compilation parameters and passes them to the real link.exe for compilation

VB6 compiles the final...

It would be nice if there was a complete example.

This one is really good. I have an automated operation software, and often I don't know when a bug will appear. When I debug, there are often no bugs. It sometimes appears in the middle of the night....

You can use the latest version of Chrome, but you'll have to find a matching Chromedriver

Private Sub Command1_Click()
On Error GoTo herr:
'Upload_FTP_or_HTTP
Dim a() As Byte, heads As String, boundaryL As String, jpgs As String

Dim Fdata As String, Edata As...

Private Function HTTPUpload(lngServer As Long, strUrl As String, sHeader As String, refer As String, cookies As String, PostDate() As Byte, Optional ByVal SetUploadSpeed As UploadSpeedEnum =...

// InternetOpen ---:InternetConnect----HttpOpenRequest----InternetSetOption -HttpAddRequestHeaders---HttpSendRequestEx




Option Explicit
Event HttpError(Status As String)
Event...

Sorry, I'm having a hard time uploading the zip?you can test is very easy ??

'????postmessage???’Coordinates = x Or y * &H10000
Function MakeDWord(X As Integer, Y As Integer) As Long
MakeDWord = (Y * &H10000) Or (X And &HFFFF&)
End Function
...

Automatic mouse click operation




Option Explicit


Private Declare Function SystemParametersInfo _
Lib "user32" _

????postmessage???’Coordinates = x Or y * &H10000
Function MakeDWord(X As Integer, Y As Integer) As Long
MakeDWord = (Y * &H10000) Or (X And &HFFFF&)
End Function
...

Option Explicit


Private Declare Function SystemParametersInfo _
Lib "user32" _
Alias "SystemParametersInfoA" (ByVal uAction As Long, _
...

Control the Chrome browser with Chromdirver for web page automation


There are a lot of similar codes, but very few pure VB ones. This is the code I used to write by referring to other people's...

Private Sub cmdPrint_Click()

Dim i As Long

Dim prtItem As Printer

Dim UPrinter As PrinterHelpX

Dim Utf8Reader As Utf8Reader

Public Sub PrintTxt(x As Long, y As Long, Txt As String, Optional ByVal PrintOrPriview As Boolean = True, Optional ByVal txtcolor As OLE_COLOR = vbBlack, Optional ByVal ???? As AlignmentConstants =...

'--------------------------------------------------------------------------------
' ?? : PrinterHelpX
'
'
' ?? : [????win32?????,??]
'
' ?? : ?XxDoC?...

Public Function GetaHash(picPathOrPictureBox As Variant, _
Optional returnPic As StdPicture) As String

Dim BMI As BITMAPINFO_NOPALETTE
Dim biWidth ...

There are about 4 types of hashing algorithms:

Difference Hash: DHash(Difference Hash)
Average Hash: AHash(Average Hash)
Perceptual Hash: PHash (Perceptual Hash)
Wavelet Hash: WHash (Wavelet...

Sometimes we can't take a screenshot with printwindow. Here's a trick to use setparent to set the target window as a sub-window, and then you can get the target image when you take a screenshot and...

Public Function CorpPicFormMem(HBmp As Long, cropLeft As Long, _
cropTop As Long, _
cropwidth As Long, _
...

Option Explicit
Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Public Type POINTAPI
x As Long

you can used wqw cExec.cls OR dilettante shellpipe all can load console project and work very well .Thank you for their selfless dedication

My test didn't work

i found if i set form.BorderStyle=1 ,When I quickly move horizontally from the menu 'flie' button to the left leave the form the code MyForm.Infobar.Caption = "" 'dont work sometimes

189469
...

Worked perfectly, thank you

len（“123好”）=4
lstrlen（“123好”）=5

thanks



Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long

Public Function WriteInput(sValue As String) As Boolean
Dim baBuffer() ...

thanks，Your code is great

I made a little modification as per my needs



Private Declare Function WriteFile _
Lib "kernel32" (ByVal hFile As Long, _
...

Very nice so I don't have to worry about memory anomalies. I just need to go and look at the screenshots at intervals


Private Sub cCapture_RenderNextFrame(picFrame As IPicture)
if setT=true...

I have an OCR recognition project to operate an old phone via scrcpy. I need to take a screenshot, call OCR to identify the information, and then remind me. I only need 1 minute or 10 minutes to take...

Very good, it looks like the images are captured continuously, can I set it to capture only 1 image one time


Private Sub cCapture_RenderNextFrame(picFrame As IPicture)
Set...

DirectX 11 for VB6 1.0 Type Library by wqweto

At present, screenshots are a good method, and for today's OCR recognition, screenshots are the first step
OpenGL DirectX is a more advanced approach

i found this links
https://github.com/sml2h3/ddddocr

https://club.excelhome.net/thread-1666823-1-1.html

but is 64 dll can not refer by vb6

the code is vba ，work well

execute WV.ExecuteScript "document.querySelector('#app > div > section > aside > span').click();" sometimes the webpage is not executed successfully. So I will modify it to
WV.ExecuteScript...

thanks. jsprop This function is very convenient to use。now must change my code