socket通信计算机网络程序vb.doc

Dim nSocket As Integer 用来跟踪Socket控件数组下标Dim schedule(9) As String 用来存储列车时刻表数据Private Sub Form_Load()初始化时刻表initschedulenSocket = 0设置服务器监听端口srSocket(0).LocalPort = 1024srSocket(0).ListenStatusBar1.SimpleText = 服务器已经工作，准备接收请求。End SubPrivate Sub srSocket_connectionRequest(index As Integer, ByVal requestID As Long)nSocket = nSocket + 1客户请求建立连接，则产生另一个SOCKET来和客户通信Load srSocket(nSocket)接受客户请求srSocket(nSocket).Accept requestID显示状态StatusBar1.SimpleText = 有客户请求，建立连接。End SubPrivate Sub srSocket_dataarrival(index As Integer, ByVal bytestotal As Long)Dim RecDim NextOne As StringStatusBar1.SimpleText = 进行数据传输srSocket(index).GetData Rec取出列车表数据并进行传输NextOne = getNext()发送数据srSocket(index).SendData NextOneEnd SubPrivate Sub srScoket_close(index As Integer)客户终止对话，关闭连接StatusBar1.SimpleText = 客户终止对话！srSocket(index).CloseEnd SubPrivate Sub srScoket_Error(index As Integer, ByVal number As Integer, description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)产生错误，则显示如果连接不存在，则关闭连接MsgBox 错误 & number & & descriptionIf srSocket(index).State 0 Then srSocket(index).CloseEnd IfEnd Sub初始化列车时刻表Sub initschedule()schedule(0) = 13次 北京-上海 开车时间 14:40schedule(1) = 165次 北京-天津 开车时间 09:12schedule(2) = 237次 北京-重庆 开车时间 13:09schedule(3) = 11次 北京-武汉 开车时间 20:54schedule(4) = 755次 北京-大连 开车时间 01:34schedule(5) = 135次 北京-成都 开车时间 09:35schedule(6) = 312次 北京-唐山 开车时间 09:15schedule(7) = 12次 北京-沈阳 开车时间 23:19schedule(8) = 81次 北京-太原 开车时间 14:50schedule(9) = 99次 北京-宁波 开车时间 17:00End SubFunction getNext() As String这个过程中只是简单的循环显示十条信息定义静态变量来记录要显示的下条信息的索引Static Counter As IntegergetNext = sch