Warning: file_get_contents(/data/phpspider/zhask/data//catemap/8/python-3.x/17.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
VB6 Winsock服务器与WebSocket连接_Websocket_Vb6_Winsock - Fatal编程技术网

VB6 Winsock服务器与WebSocket连接

VB6 Winsock服务器与WebSocket连接,websocket,vb6,winsock,Websocket,Vb6,Winsock,我有一个用HTML5和Javascript创建的WebSocket,我正在尝试使用VB6中配置的Winsock连接它,WebSocket正在与Winsock通信,WebSocket连接仍处于连接阶段,没有连接,似乎我在与WebSocket m握手时遇到了问题。请帮我找到代码的问题 我的vb6代码如下 Private Sub Form_Load() Winsock1.LocalPort = 6701 Winsock1.Listen End Sub Private Sub Wins

我有一个用HTML5和Javascript创建的WebSocket,我正在尝试使用VB6中配置的Winsock连接它,WebSocket正在与Winsock通信,WebSocket连接仍处于连接阶段,没有连接,似乎我在与WebSocket m握手时遇到了问题。请帮我找到代码的问题

我的vb6代码如下

Private Sub Form_Load()
    Winsock1.LocalPort = 6701
    Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)
    Winsock1(Index).Close
    Winsock1(Index).Accept requestID

    Dim Packet As String

    With Winsock1(Index)

        Packet = "HTTP/1.1 101 Web Socket Protocol Handshake" & vbNewLine
        Packet = Packet & "Upgrade: WebSocket" & vbNewLine
        Packet = Packet & "Connection: Upgrade" & vbNewLine
        Packet = Packet & "Sec-WebSocket-Accept: s3pPLMBiTxaQ9kYGzzhZRbK+xOo=" & vbNewLine

        Data = Empty

        .SendData Packet

     End With
End Sub


Private Sub Winsock1_DataArrival(Index As Integer, ByVal bytesTotal As    Long)
    Dim sData As String
    Winsock1(Index).GetData sData
    txtText1.Text = sData
End Sub
和示例WebCocket html

    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
    "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
    <script type="text/javascript">
        function connect() {
            var ws = new WebSocket("ws://127.0.0.1:6701");
            ws.onopen = function () {
                console.log('open ');
            };

            ws.onmessage = function (evt) {
                console.log("About to receive data");
                var received_msg = evt.data;
                console.log("Message received = " + received_msg);
            };
            ws.onclose = function () {
                // websocket is closed.
                console.log("Connection is closed...");
            };
        };


    </script>
</head>
<body style="font-size:xx-large" >
    <div>
    <a href="#" onclick="connect()">Click here to start</a></div>
</body>
</html>

函数连接(){
var ws=新的WebSocket(“ws://127.0.0.1:6701”);
ws.onopen=函数(){
console.log('open');
};
ws.onmessage=函数(evt){
console.log(“即将接收数据”);
收到的var_msg=evt.data;
console.log(“Message received=“+received_msg”);
};
ws.onclose=函数(){
//websocket已关闭。
日志(“连接已关闭…”);
};
};

或任何其他在Visual Basic 6中使用WebSocket的方法,我需要帮助(我有完全可用的C#方法,但我对开发要求的某些依赖性仅适用于VB6)要开始使用VB6中的WebSocket,还有很长的路要走。这是我经常做的事情,所以我知道这是可以做到的,但是你离我比较远,我没有一个整洁的包装。我用来学习WebSocket的所有知识都来自文档(),这些知识也可以很好地翻译成其他语言。除非您先学习如何取消数据框架,否则从web浏览器传输到vb6 web套接字服务器的所有数据都将被屏蔽和无法读取。到目前为止,与vb6应用程序握手和保留消息的操作一直是dona的事,现在我正努力从Wnsock(Wnsock1.SendData MessageString)向web套接字发送字符串,将字符串发送到websocket后,websocket正在断开连接,并且控制台中显示错误,就像websocket连接到“ws://127.0.0.1:6701/”失败:连接建立中出错:net::ERR_connection_densed甚至不能问他们说的问题(您已达到问题限制)之后,我试图通过将字节数组Dim str转换为字符串'Dim bt()作为字节'str=tbMsg.Text'bt=StrToByte(str)'VoicePrintSocket.SendData来发送字符串bt@DilanWickramarathna你有没有找到答案或者其他方法来使用VisualBasic6中的WebSocket,我需要帮助,(我有完全可以工作的C#方法,但我对开发需求的某些依赖性仅适用于VB6)要开始在VB6中使用WebSocket,您还有很长的路要走。这是我经常做的事情,所以我知道这是可以做到的,但您离我们相对较远,我没有一个整洁的软件包。我过去学习WebSocket的所有内容都来自文档()这些知识也可以很好地翻译成其他语言。从web浏览器传输到vb6 web socket服务器的所有数据都将被屏蔽,无法读取,除非您先学会如何取消数据结构。到目前为止,与vb6应用程序握手和保留消息一直是dona的工作,现在我正在努力将字符串发送到w来自Wnsock的eb套接字(Wnsock1.SendData MessageString),在将字符串发送到websocket后,websocket正在断开连接,并且控制台中显示错误,就像websocket连接到“ws://127.0.0.1:6701/”失败:连接建立错误:net::ERR_connection_甚至无法询问他们说的问题(您已经达到了问题的极限)之后,我尝试通过将字节数组Dim str转换为字符串'Dim bt()作为字节'str=tbMsg.Text'bt=StrToByte(str)'VoicePrintSocket.SendData来发送字符串bt@DilanWickramarathna你得到答案了吗