如何在VPN外部使用MSXML2.XMLHTTP对象？

编程问答 2022-08-15

问题描述

我在下面编写了这几行代码。当我通过VPN连接时，该代码正确运行，但在VPN外部不再运行。返回的状态码是12007 out VPN，使用VPN时返回200。

例如，您可以使用myUrl：“ https://www.boursedirect.fr/fr/marche/euronext-paris/lyxor-ep-na-us-LU1832418856-MUA-EUR-XPAR/seance” >

您知道如何解决此难题吗？

Public Function InterrogationCours(myUrl) As Double
  Dim avant as String,apres as String,cotation As String

  avant = "quotation-last bd-streaming-select-value-last"
  apres = "</span"

  On Error Resume Next
  With CreateObject("MSXML2.XMLHTTP")
    .Open "GET",myUrl,False
    .Send
    Debug.Print .Status
    If .Status = 200 Then cotation = Split(Split(Split(.responseText,avant)(1),">")(1),apres)(0)
  End With
  InterrogationCours = Nettoyage(cotation)
End Function

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

excelexcelmsxml2vba