VB6 Winsock服务器与WebSocket连接
我有一个用HTML5和Javascript创建的WebSocket,我正在尝试使用VB6中配置的Winsock连接它,WebSocket正在与Winsock通信,WebSocket连接仍处于连接阶段,没有连接,似乎我在与WebSocket m握手时遇到了问题。请帮我找到代码的问题 我的vb6代码如下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
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你得到答案了吗