用winsock1(0)来监听连接请求,当winsock1(0)收到连接请求时
load winsock1(1)来接受请求.记住,winsock1(Index)中,Index的值应该为和
winsock1(Index).RemoteHostIP有联系.发送信息用:for i=1 to winsock1(index).count 
            if winsock1(i).state<>sckclose then
               winsock1(i).SendData               
            Else
               Unload winsock1(i)
            End If
            next