Search:
Type: Posts; User: xxdoc123
Search:
Search took 0.03 seconds.
-
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
-
-
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
-
i test your demo WebView2Demo.zip
and this shows, that the WV.jsProp("...") also works in Property-Let-Mode (at the left-hand-side)
btn1Caption = "Click Me..." 'change the Caption-String
...
-
i downlaod new current version: 6.0.15, last updated: 2023-07-23
but i found can not run WV.jsProp. i change to 6.0.0.9 work ok.
the other question
If Right$(App.Path, 1) <> "\" Then...
-
https://www.vbforums.com/showthread.php?897889-how-can-used-pipe-to-load-this-console-without-first-starting-the-cmd-exe-like-python
used wqw mdJson.bas and cExec.CLS AND PaddleOCR-json.v1.2.1
...
-
This is a good open source project, the author wrapped it as a console program so that we can call it through pipes, sockets. It is fairly easy for VB
-
very good .
I USED https://github.com/hiroi-sora/PaddleOCR-json TO DO THE SAMETHING
-
Thanks to the expert code, it can help a lot of people. Maybe these will go to the grave, at least everyone remembers you,Do not be sad and angry
-
good idea.
I'm actually controlling my old phone with scrcpy. By taking a screenshot, you can get the picture in the mobile phone, and by analyzing the image, give me an alarm when I am not...
|
Click Here to Expand Forum to Full Width
|