代码如下
socket.Protocol = 0
socket.LocalPort = 1002
socket.Listen
这些代码执行后状态一直是监听，客户端链接不上，添加如下事件后报错对象不支持此属性或方法: 'socket.Accept'应该怎么办
Sub ConnectionRequest(Byval Item, Byval requestID)
Dim socket
Set socket = ScreenItems("winsock")
If socket.State <> 0 Then
socket.Close
End If
socket.Accept requestID
End Sub
最佳答案
貌似不能当服务器端呢
参考：
使用wincc控件winsock 做服务端程序 - 已解决问题
http://www.ad.siemens.com.cn/service/answer/solution.aspx?Q_ID=169728&cid=1032
提问者对于答案的评价：
以及改为服务器端，谢谢
原创文章，作者：ximenziask，如若转载，请注明出处：https://www.zhaoplc.com/plc354349.html
微信扫一扫 
支付宝扫一扫 