vb网络编程
㈠ 关于VB的网络编程
页面上放6个winsock控件,1个负责LISTEN端口(假定为A),5个负责接收并处理对方的数据.
当LISTEN的winsock控件A接收到连接请求后,检查其他5个的状态(XXX.State),有空闲的就用那个空闲的来同意连接请求(XXX.Accept)并处理后续数据,A继续LISTEN端口.
如果5个的状态都是使用中,那么A直接断开连接请求并继续LISTEN端口.
Private Sub Form_Load()
Winsock1.LocalPort = 12345
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
'当Winsock1收到连接请求的时候检查其他Winsock的状态，如果有状态是空闲的则由空闲的Winsock去接受连接请求
'我不记得空闲的状态是不是0了，你需要上网自己查查
If Winsock2.State = 0 Then
Winsock2.Accept requestID
ElseIf Winsock3.State = 0 Then
Winsock3.Accept requestID
ElseIf Winsock4.State = 0 Then
Winsock4.Accept requestID
ElseIf Winsock5.State = 0 Then
Winsock5.Accept requestID
ElseIf Winsock6.State = 0 Then
Winsock6.Accept requestID
Else
Winsock1.Close
Winsock1.Listen
End If
End Sub
Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
msg = Winsock2.GetData
'当Winsock2收到数据的时候进行处理数据
'......
'当Winsock2收到可以断开连接的信号的时候断开连接(或者由客户端主动断开)
If msg = "可以关闭" Then
Winsock2.Close
End If
End Sub
Private Sub Winsock3_DataArrival(ByVal bytesTotal As Long)
msg = Winsock3.GetData
'当Winsock3收到数据的时候进行处理数据
'......
'当Winsock3收到可以断开连接的信号的时候断开连接(或者由客户端主动断开)
If msg = "可以关闭" Then
Winsock3.Close
End If
End Sub
Private Sub Winsock4_DataArrival(ByVal bytesTotal As Long)
msg = Winsock4.GetData
'当Winsock4收到数据的时候进行处理数据
'......
'当Winsock4收到可以断开连接的信号的时候断开连接(或者由客户端主动断开)
If msg = "可以关闭" Then
Winsock4.Close
End If
End Sub
Private Sub Winsock5_DataArrival(ByVal bytesTotal As Long)
msg = Winsock5.GetData
'当Winsock5收到数据的时候进行处理数据
'......
'当Winsock5收到可以断开连接的信号的时候断开连接(或者由客户端主动断开)
If msg = "可以关闭" Then
Winsock5.Close
End If
End Sub
Private Sub Winsock6_DataArrival(ByVal bytesTotal As Long)
msg = Winsock6.GetData
'当Winsock6收到数据的时候进行处理数据
'......
'当Winsock6收到可以断开连接的信号的时候断开连接(或者由客户端主动断开)
If msg = "可以关闭" Then
Winsock6.Close
End If
End Sub
以上只是大概思路,许多细节需要自己在调试中处理
VB分配范围内随机整数的代码网上自己找,有的是.
㈡ 求VB中比较重要的语句和经典的网络编程实例。
如果涉及系统级的编程或者进程间通信，那么API是不可不了解的。也不用都记得啊，只要知道碰到问题了如何取查找到相应的API函数就行了。
至于网络编程实例，差不多哪本教材上都有例子，自己动动手做做就基本了解了。
㈢ 怎样用VB.NET进行网络编程
都可以,可以用winsock,也可以自己重写SOCKET套接字.建议你如果工期紧,可以先用WINSOCK.当然最好是自己学用SOCKET套接字.这对未来开发网络通讯是很有帮助的.因为用WINSOCK有个毛病就是杀毒软件总会阻止