Diccionario coreano Naver/Herramienta de búsqueda del diccionario inglés_v1.01_20220708

Distribuya "Naver Korean Dictionary/English Dictionary Search Tool_v1.01_20220708" con un error corregido.

El resumen de las herramientas de búsqueda de diccionarios de coreano e inglés de Naver y cómo usarlas se resumen en el siguiente artículo.

Descripción general de la herramienta de búsqueda del diccionario Naver Korean Dictionary/English Dictionary

Hoy (2022-07-08) se publicaron los siguientes comentarios.

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

#ToDo: Revise si desea cambiar el enlace del comentario

Al verificar, recibo el siguiente mensaje de error:

Cuando verifiqué con Fiddler, la Respuesta está vacía.

• Consulta de confirmación: Unirse
• URL: https://ko.dict.naver.com/api3/koko/search?query=%EA%B0%80%EC%9E%85

Parece que se ha agregado alguna condición en el servidor. No parece dar una respuesta si no se cumple esa condición.

Si busca en un navegador web, la respuesta normalmente se recibe como json.

Hay Referer en el encabezado de solicitud de una respuesta normal.

Por si acaso, agregué el encabezado Referer (modUtil.GetDataFromURL línea 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

¡funciona bien!

La versión parcheada de este error (Naver Korean Dictionary/English Dictionary Search Tool_v1.01_20220708) se cargó en github y se puede descargar directamente desde la siguiente URL.

https://github.com/DAToolset/ToolsForDataStandard/raw/main/Naver Diccionario coreano, herramienta de búsqueda de diccionario en inglés_v1.01_20220708.xlsm

Como referencia, creé un directorio en github y cargué el código fuente por separado.

Diccionario de coreano ToolsForDataStandard/src_Naver, herramienta de búsqueda de diccionario de inglés en DAToolset/ToolsForDataStandard principal (github.com)

---

<< Lista de artículos relacionados >>

• Descripción general de la herramienta de búsqueda del diccionario Naver Korean Dictionary/English Dictionary
• Método de operación y código fuente de la herramienta de búsqueda del diccionario coreano/inglés de Naver
• Diccionario coreano Naver/Herramienta de búsqueda del diccionario inglés_v1.01_20220708