VB winsock发送时提示 "运行时错误'40006'"，我怎么修改代码

这个方法是很好的，但是我在用的时候出现报错： 参数不可选 然后我改成这样 '判断是否连接了，才发送数据 j = 1 Do Until Winsock1.State = 7 Or j > 600 j = j + 1 DoEvents Call Sleep(3) Loop If j >= 6

>>阅读原文<<