Question

vb不管怎么调都出现实时错误40006

能建立tcp连接但是发送数据就提示40006错误
Option Explicit

Private Sub Command1_Click()
Winsock1.RemoteHost = "192.168.1.100"
Winsock1.RemotePort = "5000"
Winsock1.Close
Winsock1.Connect
Winsock1.SendData "aaa"
Command1.Enabled = False
MsgBox "连接成功"
End Sub

Private Sub Command2_Click()
Winsock1.Close
Command1.Enabled = True
End Sub

Private Sub Command3_Click()
Winsock1.SendData "aaa"
End Sub

Answer 1

承影相近的词

追问

什么？