vb.net - 使用 oAuth2.0 连接到 XERO 时访问被拒绝问题

Question

我正在创建一个允许用户将发票从本地数据库应用程序发送到 XERO 的应用程序。

当我在办公室的机器上运行时，连接工作正常，但是当我将它移植到客户端终端服务器时，我得到了这个错误。

System.Net.HttpListenerException (0x80004005): Access is denied
   at System.Net.HttpListener.AddAllPrefixes()
   at System.Net.HttpListener.Start()
   at XeroConnectionTest.clsXeroAuth2.VB$StateMachine_6_oauth2.MoveNext() in Q:\XeroConnectionTest\XeroConnectionTest\clsXeroAuth2.vb:line 21

这是失败的代码

    Private callbackurl As String = "http://localhost:5000/signin/"
    
        Public Async Function oauth2() As Task(Of Boolean)
            Dim redirectUri As String = String.Format(callbackurl)
            Dim listener = New HttpListener()
            listener.Prefixes.Add(redirectUri)
    
            Try
                listener.Start()
                stopListening = False
            Catch hlex As HttpListenerException
                'MsgBox(hlex.ToString)
                Form1.TextBox1.Text = hlex.ToString
                Return False
            End Try

并且错误发生在 listener.start() 行上。

任何帮助将不胜感激

谢谢

霜冻