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

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