使用vb 6.0建立到服务器的https连接

有没有人能给我指出正确的方向。我必须通过VisualBasic6.0连接到https url，并以事务的形式发布JSON。JSON类已经完成，但我不知道如何建立这种连接。我一直在网上做研究，但什么也没发现。不，这不是家庭作业。多年来，我们一直在应用程序方面进行愉快的开发，现在正在拓展新的视野。 我真的需要看看一个基本的例子，如果有人能提供。感谢您的帮助

Public Function OpenPostHttpRequest() As Boolean
    Dim bReturn As Boolean
    bReturn = False
    If Not (m_sUrl = "") Then
        On Error GoTo ErrorHandler
        m_HttpRequest.Open "Post", m_sUrl & m_sEAuthentificationValue & "/devices/data" & "?authentification_token=" & m_sEAuthentificationValue & "auth=" & m_sEAuthValue, False
        m_HttpRequest.SetRequestHeader "Content-Type", "text/JSON; charset = utf-8"
        m_HttpRequest.Send m_sPost
    Else
        bReturn = False
    End If
    OpenPostHttpRequest = bReturn
    Exit Function

ErrorHandler:
    Dim E As ErrObject: Set E = Err

    OpenPostHttpRequest = False
    m_HttpRequest.Abort
End Function

---

我剪切并粘贴了来自PostMan的url，Json在PostMan中工作。谢谢各位。这将变成一种学习体验，而不是创建一个新类来直接处理我们使用WinHttpRequest的事务。顺利地走了。它很好地处理了到https的传输

Private Sub cmdSend_Click()
Dim Http As WinHttp.WinHttpRequest
Dim sUrl As String
Dim sResponse As String

On Error GoTo ErrorHandler
    Set Http = New WinHttp.WinHttpRequest
    sUrl = "https://sandbox.appcard.com/v2/<apiKey>/devices/data?"
    sUrl = sUrl & "authentication_token=<apiKey>&auth=<auth>"
    Http.Open "POST", sUrl, False
    Http.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"

    Http.Send (Text1.Text)
    m_edtUrlResponse.Text = Http.ResponseText
    Set Http = Nothing
    Exit Sub
ErrorHandler:
    Dim E As ErrObject: Set E = Err

End Sub

Private Sub cmdSend\u Click（）
将Http设置为WinHttp.WinHttpRequest
作为字符串的Dim sUrl
暗响应为字符串
关于错误转到错误处理程序
设置Http=New WinHttp.WinHttpRequest
苏尔=”https://sandbox.appcard.com/v2//devices/data?"
sUrl=sUrl&“身份验证\令牌=&auth=”
Http.Open“POST”，sUrl，False
Http.SetRequestHeader“内容类型”、“应用程序/x-www-form-urlencoded”
Http.Send（Text1.Text）
m_edturresponse.Text=Http.ResponseText
设置Http=Nothing
出口接头
错误处理程序：
尺寸E作为错误对象：设置E=错误
端接头

这篇文章可能会对您有所帮助。请看这里：您知道json会发生什么变化吗？任何其他需要发布到AppCard的人都可以使用相同的方法