课程设计? 这种东西在VB很容易实现呀. 用Winsock控件吧.Winsock控件的编程是一种很例行公事的劳动 无非是这样: 先是4-5行初始化 (Server4行,Client5行) With wskServer .LocalPort = 100000 .Listen End With接着 Private Sub wskServer_ConnectionRequest(ByVal requestID As Long) If wskServer.State <> sckClosed Then wskServer.Close End If wskServer.Accept requestID End Sub然后再写 Private Sub wskServer_DataArrival(ByVal bytesTotal As Long) 这是Server主体部分最后 Private Sub wskServer_Close() wskServer.Close Debug.Print "Closed" End Sub当然了,也可以把 Private Sub wskserver_Error(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) wskServer.Close End Sub 写上.不写其实也没关系上面是Server的例子,Client和这个差不多 只不过没有_DataArrival,换成了.SendData方法
端口号要一致
这种东西在VB很容易实现呀.
用Winsock控件吧.Winsock控件的编程是一种很例行公事的劳动
无非是这样:
先是4-5行初始化 (Server4行,Client5行)
With wskServer
.LocalPort = 100000
.Listen
End With接着
Private Sub wskServer_ConnectionRequest(ByVal requestID As Long)
If wskServer.State <> sckClosed Then
wskServer.Close
End If
wskServer.Accept requestID
End Sub然后再写
Private Sub wskServer_DataArrival(ByVal bytesTotal As Long)
这是Server主体部分最后
Private Sub wskServer_Close()
wskServer.Close
Debug.Print "Closed"
End Sub当然了,也可以把
Private Sub wskserver_Error(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)
wskServer.Close
End Sub
写上.不写其实也没关系上面是Server的例子,Client和这个差不多
只不过没有_DataArrival,换成了.SendData方法