VBA setRequestHeader "Authorization"失败-6ren

VBA setRequestHeader "Authorization"失败

转载作者：可可西里更新时间：2023-11-01 17:28:10

30

4

我正在尝试使用以下代码连接到 Web 数据库，但在 VBA 中自动化时它似乎不起作用。登录名和密码很好，因为我可以手动连接它们。

对象:“WinHttp.WinHttpRequest.5.1”是否可能不适用于这种数据库连接？还是我的 Connect sub 中缺少参数？对此事的任何帮助将不胜感激。

Sub Connect()

Dim oHttp As Object
Set oHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
Call oHttp.Open("GET", "http://qrdweb/mg/loan/loans.html?show=all", False)

oHttp.setRequestHeader "Content-Type", "application/xml"
oHttp.setRequestHeader "Accept", "application/xml"
oHttp.setRequestHeader "Authorization", "Basic " + Base64Encode("login123" +  ":" + "pass123")


Call oHttp.send

Sheets("Sheet1").Cells(1, 1).Value = oHttp.getAllResponseHeaders
Sheets("Sheet1").Cells(1, 2).Value = oHttp.ResponseText

End Sub

Private Function Base64Encode(sText)
Dim oXML, oNode
Set oXML = CreateObject("Msxml2.DOMDocument.3.0")
Set oNode = oXML.createElement("base64")
oNode.DataType = "bin.base64"
oNode.nodeTypedValue = StringToBinary(sText)


Base64Encode = oNode.Text
Set oNode = Nothing
Set oXML = Nothing
End Function

Private Function StringToBinary(Text)
Const adTypeText = 2
Const adTypeBinary = 1

Dim BinaryStream
Set BinaryStream = CreateObject("ADODB.Stream")

BinaryStream.Type = adTypeText
BinaryStream.Charset = "us-ascii"
BinaryStream.Open
BinaryStream.WriteText Text

'Change stream type To binary
BinaryStream.Position = 0
BinaryStream.Type = adTypeBinary

'Ignore first two bytes - sign of
BinaryStream.Position = 0

StringToBinary = BinaryStream.Read

Set BinaryStream = Nothing
End Function

显示 getAllresponseHeaders 的 oHttp.getAllResponseHeaders 输出以下信息:

缓存控制:必须重新验证，无缓存，无存储

连接:保持活跃

日期:2017 年 2 月 24 日星期五 17:19:54 GMT

内容长度:30633

内容类型:text/html;charset=ISO-8859-1

服务器:nginx/1.11.6

WWW-Authenticate: Digest realm="QRDWEB-MNM", domain="", nonce="aB5DLmvuCfok9Zo112jo4S0evgOuXntE", algorithm=MD5, qop="auth", stale=true

当显示 ResponseText 的 oHttp.ResponseText 输出以下信息时:

<html>
    <head>
        <meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1"/>
        <title>Error 401 Server Error</title>
    </head>
    <body>

编辑1

当我注释掉包含 oHttp.setRequestHeader 的 3 行代码并更改该行时:Set oHttp = CreateObject("WinHttp.WinHttpRequest.5.1") by Set oHttp = CreateObject("MSXML2.XMLHTTP"), a弹出窗口显示登录名和密码。如果我填写信息，以下响应是不同的:

显示 getAllresponseHeaders 的 oHttp.getAllResponseHeaders 输出以下信息:

服务器:nginx/1.11.6

日期:2017 年 2 月 24 日星期五 18:19:02 GMT

传输编码:分块

连接:保持活跃

当显示 ResponseText 的 oHttp.ResponseText 输出以下信息时:

<html>

    <head>

        <title>M&M - Loan Viewer</title>

        <script language="javascript" type="text/javascript">

            function showTransactionComments(loanId, date, type, commentsTableWidth) {

    //alert(loanId + " " + date + " " + type + " " + commentsTableWidth);
    if (window.ActiveXObject) {
        return;

编辑2

我现在正尝试使用以下子程序将摘要式身份验证集成到 VBA 中，我得到两种可能的结果:第一个结果是使用错误的登录信息时出现相同的 401 错误，并且立即返回。但是，当我提供正确的登录信息时，操作超时...可能是什么原因造成的？

Sub digest()
    Dim http As New WinHttpRequest
    Dim strResponse As String

    Set http = New WinHttpRequest

    http.Open "GET", "http://qrdweb/mg/loan/loans.html?show=all", False
    http.SetCredentials "login123", "pass123", HTTPREQUEST_SETCREDENTIALS_FOR_SERVER
    http.send

    Sheets("Sheet1").Cells(1, 1).Value = http.getAllResponseHeaders
    Sheets("Sheet1").Cells(1, 2).Value = http.ResponseText

    http.Open "PROPFIND", "http://qrdweb/mg/loan/loans.html?show=all", False
    http.send

End Sub

最佳答案

根据 Microsoft docs ，JScript 示例，看起来身份验证需要同一连接上的两个连续的 Open/Send 对。第一个告诉 HTTP 请求对象需要摘要式身份验证，第二个实际执行。试试这个(未测试):

Sub digest()
    Dim http As WinHttpRequest      ' *** Not "New" - you do it below
    Dim strResponse As String

    Set http = New WinHttpRequest

    http.Open "GET", "http://qrdweb/mg/loan/loans.html?show=all", False
    http.Send   ' *** Try it without authentication first

    if http.Status <> 401 then Exit Sub     ' *** Or do something else

    http.Open "GET", "http://qrdweb/mg/loan/loans.html?show=all", False
        ' *** Another Open, same as the JScript example

    http.SetCredentials "login123", "pass123", HTTPREQUEST_SETCREDENTIALS_FOR_SERVER
    http.Send

    MsgBox CStr(http.Status) & ": " & http.StatusText ' *** Just to check

    Sheets("Sheet1").Cells(1, 1).Value = http.getAllResponseHeaders
    Sheets("Sheet1").Cells(1, 2).Value = http.ResponseText

    ' *** Not sure what these two lines are for --- I have commented them out
    'http.Open "PROPFIND", "http://qrdweb/mg/loan/loans.html?show=all", False
    'http.send

End Sub

关于VBA setRequestHeader "Authorization"失败，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/42444795/

30

4

0

文章推荐： JSON POST 中的 C# HttpWebRequest "Request Header"

文章推荐： node.js - Koajs 和 curl with Content-Encoding : gzip, deflate

authorize.net - 使用 Authorize.net 测试静默帖子
我目前有一个使用 Authorize.net 的 ARB API 的应用程序。我的一切都按照我认为应该的方式工作，但我真的很想收到来自 authorize.net 测试服务器 (test.author
authorize.net - 为 authorize.net 退款编写测试
Authorize.net 永远不会允许您退还同一天提交的交易。因此，编写一个创建交易然后退款的测试是很困难的。我找不到通过 API 执行此操作的方法，因此: 我可以要求 Authorize.net
authorize.net - 如何使用 Authorize.net 上的创建交易请求创建付款资料
我想使用 createTransactionRequest 创建付款资料。这是我传递的请求参数。 { "createTransactionRequest":{ "merchantA
c# - “authority”应为 Uri 格式参数名称 : authority
我根据这个例子开发了我的mvc应用程序: https://github.com/AzureADSamples/WebApp-WebAPI-OpenIDConnect-DotNet 身份验证与 Azur
HTTP 规范 : Proxy-Authorization and Authorization headers
所以我正在尝试实现以下场景: 应用程序受基本身份验证保护。假设它托管在 app.com 上在应用程序前面的 HTTP 代理也需要身份验证。它托管在 proxy.com 因此，用户必须在同一个请求中为
c# - Authorize Action 过滤器和 Authorization 过滤器有什么区别？
根据 ASP.NET website ASP.NET MVC 框架包括几个 Action 过滤器: OutputCache – 此操作过滤器将 Controller 操作的输出缓存一段指定的时间。 H
Flask werkzeug request.authorization 不是 Authorization 头文件
我正在发布一些 JSON 数据并添加一个 Authorization标题。但是，请求对象没有正确的授权属性。 HTTP_AUTHORIZATION和 headers两者都显示正确的授权详细信息。 {'
authorization - 为什么Kubernetes的 “kubectl”被 “Authorization error”中止？
更改群集的IP配置(所有外部IP更改，内部专用IP保持不变)后，某些kubectl命令不再对任何容器起作用。 pods 全部启动并运行，似乎发现自己没有问题。这是输出: bronger@penny:~
authorize.net - 将 Authorize.net 升级到 Akamai
Authorize.Net will be upgrading access to the Internet connections that serve our data centers. Inst
html - http-equiv ="author"和名称 ="author"有什么区别？
您好，我正在学习 HTML5，我想知道这两个元元素之间有什么区别？最佳答案第一个无效，http-equiv被枚举，即它有一组对其有效的值和author不是一个。 (它旨在作为一种将 pragm
ios - 苹果分发证书 : "Request a Certificate from a Certificate Authority" what is the certificate authority?
我们想在应用商店中发布一个应用。为我们构建它的第 3 方需要我们通过苹果开发门户创建的证书和配置文件。根据文档，创建证书的方法是使用 mac 的钥匙串(keychain)应用程序，然后选择“从证书颁发
c# - 在同一个项目中结合 Authorization.Forms 和 Authorization.Token 的最佳方式？
在同一项目中，在 Nancy 中使用任一 token 授权形式保护模块的最佳方法是什么？我需要两种类型的安全性，并且我不希望创建单独的应用程序:一种使用 Form 保护 View ，另一种用于使用 T
php - 从亚马逊获取 "The authorization grant type is not supported by the authorization server"
我正在尝试获取访问 token ，但是我收到了这个错误 {"error_description":"授权服务器不支持授权授予类型","error":"unsupported_grant_type"}
python - Django——如何从一组 "author"(用户)中过滤出一个 "authors"的对象？
如何从一组“author”(User)中过滤出具有“author”的对象？ “对象”是帖子，具有作者(ForeignKey 到用户)。我对此非常困惑，所以我很感激能得到帮助。当然，人们可以通过手动过
apache-kafka - 代理复制错误 "Not authorized to access topics: [Topic authorization failed.] "
我有三个 Kafka 经纪人( kafka_2.11-0.10.0.0 )每个经纪人的安全配置如下， listeners=PLAINTEXT://xxxx:9093,SASL_PLAINTEXT://
ios - 无法将类型 'Authorize.ClubsViewController' (0x109c70cc8) 的值转换为 'Authorize.NewViewController' (0x109c70df8)
@IBOutlet weak var menuButton: UIButton! @IBOutlet weak var clubButton: UIButton! @IBOutlet weak var
mysql - 查询 : get author of a song and count total of songs for that author
我不知道如何执行以下查询。我有 3 张 table : song (song_id, title, is_draft) author (author_id, name) song_author (so
java - thymeleaf 秒 :authorize can you combine authorization for role OR different property?
我正在使用 Thymeleaf、Spring-boot 和 Java。我有导航栏的 li 项目，并且想要为其中一个 li 项目设置访问权限，以便如果 LoggedUser.client.policyT
python - 当你有 book.publisher 和 book.author 时如何获得 publisher.authors？
刚从使用 Books 应用程序示例的 Djangobook 教程中学习时，您通过多对多关系将 Book 与 Author 相关，并将 Book 与 Publisher 相关。您可以使用 p.book_
core-location - iOS8位置: How should one request Always Authorization after user has granted "When In Use" Authorization?
当我的应用程序启动 map View 时，我请求 iOS8“使用时”位置权限。假设用户同意。仅当用户选择加入我的地理围栏功能时，我才想请求始终许可。但是调用 CLLocationManager.re

首页

博学

6Ren·AI

商城

VBA setRequestHeader "Authorization"失败

编辑1

编辑2