VB通过socket获取wss网站实时数据，请大神赐教

[zhuangguozhong]

地址：wss://stream.binance.com:9443/ws
发送：{"method":"SUBSCRIBE","params":["btcusdt@aggTrade","btcusdt@depth"],"id":1}

用第三方模拟websocket请求在线测试（要-科-学-上-网），可以实时得到数据，用VB怎么实现。
VB除了Winsock、CSocketMaster外，有没有其它能用的Scoket控件，CSDN上面的文章基本都行不通。

[zhuangguozhong]

UP UP UP

[vansoft]

XMLHttp，就可以。

[zhuangguozhong]

XMLHttp怎么实时获取WSS网站主动推送过来的数据，是不是还得用时间控件。 能不能帮忙简单给个示例，拜托。

[zhuangguozhong]

大神们，帮忙解答一下

[zhuangguozhong]

哪位大神帮忙解决了，以下帖子一并给分。 https://bbs.csdn.net/topics/396292961?page=1#post-411148082

[vansoft]

    With MyXMLHttp
        .Open "POST", sURL, False, sUserName, sPassWord
        .setRequestHeader "Content-Type", "text/xml; charset=gb2312"
        .setRequestHeader "HOST", "127.0.0.1"
        .setRequestHeader "Content-Length", Len(sXML)
        .setRequestHeader "SOAPAction", sNameSpace + "/Download"
        .send sXML
    End With

贴一段在用的代码。