次のコードを使用して、サイトからデータを取得しています。
Dim htttpObj As Object
Set htttpObj = CreateObject("MSXML2.ServerXMLHTTP.6.0")
htttpObj.SetTimeouts 10000, 10000, 10000, 300000
htttpObj.Open "POST", url, False
htttpObj.setRequestHeader headerName, headerValue
htttpObj.Send ("func1=" & func1 & "&func2=" & func2 & "&username=" & login & "&psd=" & password)
answer = htttpObj.responseText
このコードは、"Cat"、"dog"、"Hello World!" などの文字列を取得するときにうまく機能します。ただし、「Ações」のような文字列を取得する場合は機能しません。たとえば、「Ações」は「Ações」またはその他の特殊文字になります。
この問題の解決策を知っている人はいますか?
Ps:WinHttp メソッドを使用すると、この結果が得られません。しかし、WinHttp のバックアップとして ServerXMLHTTP メソッドを維持する必要があります。