请说说在VB基于winsocket的程序的写法

Question

我公司有10台电脑,同一个网,现在老板叫我做个这样的程序:同事,在电脑上提问,原后,总机上就马上知这个问题是哪台机上发过来的,问题是什么..我还没有开发过这样的程序.请指教一下,要不要用到WINSOCKET这个,,,因为要即时反应,而不想把程序设计成隔几秒读几次数据库.

Answer 1

简单。如果需要，过几天有时间我给你弄个。顺便把需求说清楚。
[email protected]

Answer 2

总机端
public serverindex as integer
public ReceiveData() as bytePrivate Sub Form_Load()
    '侦听
    outWinsock(0).Bind intport, IP
    outWinsock(0).ListenEnd Sub'关闭socket
Private Sub outWinsock_Close(Index As Integer)
    Dim i As Long
    If Index > 0 Then
        For i = 1 To Index
            outWinsock(i).Close
        Next
    End If
End Sub'客户端请求连接
Private Sub outWinsock_ConnectionRequest(Index As Integer, ByVal requestID As Long)
    serverindex = serverindex + 1 '加载新的socket数组
    Load outWinsock(serverindex)
    outWinsock(serverindex).Accept requestID
End Sub'接收客户端发送来的数据
Private Sub outWinsock_DataArrival(Index As Integer, ByVal bytesTotal As Long)    
    ReDim ReceiveData(bytesTotal) As Byte
    outWinsock(Index).GetData ReceiveData, vbArray + vbByte
End Sub