[엑셀 VBA] Snippet - OCR: 이미지 파일을 텍스트 파일로 변환하기

' https://docs.microsoft.com/en-us/previous-versions/windows/internet-explorer/ie-developer/platform-apis/ms775123(v=vs.85)
#If VB7 Then
    Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
        (ByVal pCaller As LongPtr, ByVal szURL As String, ByVal szFileName As String, _
         ByVal dwReserved As LongPtr, ByVal lpfnCB As LongPtr) As Long
#Else
    Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" ( _
        ByVal pCaller As Long, _
        ByVal szURL As String, _
        ByVal szFileName As String, _
        ByVal dwReserved As Long, _
        ByVal lpfnCB As Long _
    ) As Long
#End If
 
Public Function downloadFile(url As String) As Boolean
    Dim captchaFolder As String: captchaFolder = ThisWorkbook.path & "\captcha\captcha.jpg"
    Dim result As String
    result = URLDownloadToFile(0, url, captchaFolder, 0, 0)
    If result = "0" Then
        MsgBox "successful in downloading the captcha file."
        Call captchaInterpret(captchaFolder) '이 부분에 대한 함수는 아래 3번에 있슴다
    Else
        MsgBox "failed in downloading the captcha file."
    End If
End Function

Public Function captchaInterpret(srcFile As String) As Boolean
    Dim tesseract As String, destFile As String
    Dim arg As String, captchaValue As String
 
    tesseract = "C:\Program Files\Tesseract-OCR\tesseract.exe"
    destFile = ThisWorkbook.path & "\captcha\captcha"
    arg = srcFile & " " & destFile & " --oem 1"
 
    'Debug.Print arg
 
    Dim objShell As New Shell32.shell
    'Call objShell.ShellExecute("C:\Program Files\Tesseract-OCR\tesseract.exe", "E:\captcha.png E:\captcha.txt")
    Call objShell.ShellExecute(tesseract, arg)
 
    Open destFile & ".txt" For Input As #1
        Line Input #1, captchaValue
    Close #1
 
    '한 줄을 위에서 읽어 들여 Dictionary에 담아 둔다.
    If dictPost.Exists("captchaValue") Then Call dictPost.Remove("captchaValue")
    dictPost.Add "captchaValue", captchaValue
 
    captchaInterpret = True
End Function