Naver Suchtool für koreanisches Wörterbuch/englisches Wörterbuch_v1.01_20220708

Verteilen Sie „Naver Korean Dictionary/English Dictionary Search Tool_v1.01_20220708“ mit einem korrigierten Fehler.

Der Überblick über die Naver-Wörterbuchsuchwerkzeuge für Koreanisch und Englisch und ihre Verwendung sind im folgenden Artikel zusammengefasst.

Überblick über das Naver Korean Dictionary/English Dictionary Search Tool

Heute (2022-07-08) wurden die folgenden Kommentare gepostet.

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

#ToDo: Überprüfen Sie, ob der Kommentarlink geändert werden soll

Bei der Überprüfung erhalte ich folgende Fehlermeldung:

Als ich bei Fiddler nachgefragt habe, ist die Antwort leer.

• Bestätigungsabfrage: Beitreten
• URL: https://ko.dict.naver.com/api3/koko/search?query=%EA%B0%80%EC%9E%85

Es scheint, dass auf dem Server eine Bedingung hinzugefügt wurde. Es scheint keine Antwort zu geben, wenn diese Bedingung nicht erfüllt ist.

Wenn Sie in einem Webbrowser suchen, wird die Antwort normalerweise als json empfangen.

Es gibt Referer im Request-Header einer normalen Antwort.

Für alle Fälle habe ich den Referer-Header hinzugefügt (modUtil.GetDataFromURL Zeile 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

funktioniert gut!

Die gepatchte Version dieses Fehlers (Naver Korean Dictionary/English Dictionary Search Tool_v1.01_20220708) wurde auf github hochgeladen und kann direkt von der nachstehenden URL heruntergeladen werden.

https://github.com/DAToolset/ToolsForDataStandard/raw/main/Naver Korean Dictionary, English Dictionary Search Tool_v1.01_20220708.xlsm

Als Referenz habe ich ein Verzeichnis auf github erstellt und den Quellcode separat hochgeladen.

ToolsForDataStandard/src_Naver Koreanisches Wörterbuch, Suchwerkzeug für englische Wörterbücher unter DAToolset/ToolsForDataStandard (github.com)

---

<< Liste verwandter Artikel >>

• Überblick über das Naver Korean Dictionary/English Dictionary Search Tool
• Naver Korean Dictionary/English Dictionary Search Tool Betriebsmethode und Quellcode
• Naver Suchtool für koreanisches Wörterbuch/englisches Wörterbuch_v1.01_20220708