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有個毛病就是殺毒軟體總會阻止