네이버 국어사전/영어사전 검색 도구_v1.01_20220708

한가지 오류를 수정한 “네이버 국어사전/영어사전 검색 도구_v1.01_20220708″을 배포한다.

네이버 국어사전, 영어사전 검색 도구 개요와 사용 방법은 아래 글에 정리되어 있다.

네이버 국어사전/영어사전 검색 도구 개요

오늘(2022-07-08) 다음과 같은 댓글이 달렸다.

https://prodtool.tistory.com/28#comment9159871

#ToDo: 댓글 링크 변경할지 검토

확인해 보니 다음과 같은 오류 메시지가 발생한다.

Fiddler로 확인해 보니, Response가 빈 상태이다.

• 확인 검색어: 가입
• URL: https://ko.dict.naver.com/api3/koko/search?query=%EA%B0%80%EC%9E%85

서버에서 어떤 조건이 추가된 것으로 보인다. 그 조건을 만족하지 못할 때는 응답을 주지 않는 것 같다.

웹 브라우저에서 조회하면 정상적으로 Response가 json으로 받아진다.

정상 응답을 받는 Request header에 Referer가 있다.

혹시나 하여 Referer header를 추가해 보았다.(modUtil.GetDataFromURL 36행)

Option Explicit

Function GetDataFromURL(strURL, strMethod, strPostData, Optional strCharSet = "UTF-8")
  Dim lngTimeout
  Dim strUserAgentString
  Dim intSslErrorIgnoreFlags
  Dim blnEnableRedirects
  Dim blnEnableHttpsToHttpRedirects
  Dim strHostOverride
  Dim strLogin
  Dim strPassword
  Dim strResponseText
  Dim objWinHttp
  lngTimeout = 59000
  strUserAgentString = "http_requester/0.1"
  intSslErrorIgnoreFlags = 13056 ' 13056: ignore all err, 0: accept no err
  blnEnableRedirects = True
  blnEnableHttpsToHttpRedirects = True
  strHostOverride = ""
  strLogin = ""
  strPassword = ""
  Set objWinHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
  '--------------------------------------------------------------------
  'objWinHttp.SetProxy 2, "xxx.xxx.xxx.xxx:xxxx", "" 'Proxy를 사용하는 환경에서 설정
  '--------------------------------------------------------------------
  objWinHttp.SetTimeouts lngTimeout, lngTimeout, lngTimeout, lngTimeout
  objWinHttp.Open strMethod, strURL
  If strMethod = "POST" Then
    objWinHttp.SetRequestHeader "Content-type", "application/x-www-form-urlencoded; charset=UTF-8"
  Else
    objWinHttp.SetRequestHeader "Content-type", "text/html; charset=euc-kr"
  End If
  If strHostOverride <> "" Then
    objWinHttp.SetRequestHeader "Host", strHostOverride
  End If
  objWinHttp.SetRequestHeader "Referer", "https://ko.dict.naver.com/" '2022-07-08 추가

  objWinHttp.Option(0) = strUserAgentString
  objWinHttp.Option(4) = intSslErrorIgnoreFlags
  objWinHttp.Option(6) = blnEnableRedirects
  objWinHttp.Option(12) = blnEnableHttpsToHttpRedirects
  If (strLogin <> "") And (strPassword <> "") Then
    objWinHttp.SetCredentials strLogin, strPassword, 0
  End If
  On Error Resume Next
  objWinHttp.Send (strPostData)
  objWinHttp.WaitForResponse
  If Err.Number = 0 Then
    If objWinHttp.Status = "200" Then
      'GetDataFromURL = objWinHttp.ResponseText
      GetDataFromURL = BinaryToText(objWinHttp.ResponseBody, strCharSet)
    Else
      GetDataFromURL = "HTTP " & objWinHttp.Status & " " & _
        objWinHttp.StatusText
    End If
  Else
    GetDataFromURL = "Error " & Err.Number & " " & Err.Source & " " & _
      Err.Description
  End If
  On Error GoTo 0
  Set objWinHttp = Nothing
End Function

잘 동작한다!

이 오류를 패치한 버전(네이버 국어사전/영어사전 검색 도구_v1.01_20220708)을 github에 업로드 해두었고, 아래 URL로 바로 다운로드할 수 있다.

https://github.com/DAToolset/ToolsForDataStandard/raw/main/네이버 국어사전,영어사전 검색 도구_v1.01_20220708.xlsm

참고로, github에 디렉토리를 만들고 source code를 따로 올려놓았다.

ToolsForDataStandard/src_네이버 국어사전,영어사전 검색 도구 at main · DAToolset/ToolsForDataStandard (github.com)

<< 관련 글 목록 >>

• 네이버 국어사전/영어사전 검색 도구 개요
• 네이버 국어사전/영어사전 검색 도구 동작 방식과 소스코드
• 네이버 국어사전/영어사전 검색 도구_v1.01_20220708

관련 글:

데이터 표준점검 도구_3.표준점검 케이스별 결과 DA# Macro(4): DA# Macro(매크로) 기능(3)-Reverse 네이버 국어사전/영어사전 검색 도구 동작 방식과 소스코드 네이버 국어사전/영어사전 검색 도구 개요 엑셀 VBA 강좌 전체 목차 엑셀 VBA 강좌(3): 엑셀 Object Model 1차원 Bin Packing 알고리즘을 활용한 작업 배분 최적화_3.구현(2) 1차원 Bin Packing 알고리즘을 활용한 작업 배분 최적화_3.구현(1)