为什么WINSOCK不能发送此字符串

Question

const str="username   @new@    serial001     $12345679   $13213213   $3213213213"private sub form_load()
     winsock.remotehost="192.168.0.12"
     winsock.remoteport=7888
      
     winsock.connect
     winsock.senddata str
end sub程序启动出错

Answer 1

在最后加上延时试试
const str="username   @new@    serial001     $12345679   $13213213   $3213213213"private sub form_load()
     winsock.remotehost="192.168.0.12"
     winsock.remoteport=7888
      
     winsock.connect
     winsock.senddata str
     wait(1)
end sub
延时函数：
Public Function wait(i%)
Dim PauseTime, Start
   PauseTime = i   ' 设置暂停时间。
   Start = Timer   ' 设置开始暂停的时刻。
   Do While Timer < Start + PauseTime
      DoEvents   ' 将控制让给其他程序。
   Loop
End Function

Answer 2

timer是时间控件还是的到当前Time

Answer 3

timer不是时间控件，是当前的time你可以设置一个自己的协议，如出错后，客户端断开，就给服务器发送一个空格，表明客户端断开，服务器收到一个空格后，就关闭自己的winsock，再打开，再listen

Answer 4

可是这样我的程序还是出现 
10048:
Address in use 地址在使用中,这个是什么意思呀?

Answer 5

而且，你在connect 之后，现检测socket 的状态，判断是否能发送消息

Answer 6

在DOS下，录入：
telnet 192.168.0.12 7888 回车 看有什么反映等完全正常录入：username   @new@    serial001     $12345679   $13213213   $3213213213" 回车超OUTLOOK软件(正式版SmartMail1.0免费提供源码(最新版))
运行演示图:http://bbs.2ccc.com/uploads/huangtao/运行效果图.jpg
下载地址:http://bbs.2ccc.com/uploads/huangtao/smartmail1.0.rar