當前位置:首頁 » 編程軟體 » vb網路編程

vb網路編程

發布時間: 2022-08-25 03:43:19

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

熱點內容
c是高級語言嗎 發布:2025-03-17 12:16:31 瀏覽:521
python泛型 發布:2025-03-17 12:15:01 瀏覽:480
編程貓被盜 發布:2025-03-17 12:02:18 瀏覽:130
海關鎖密碼箱如何設置新密碼 發布:2025-03-17 11:53:50 瀏覽:559
農業卡號的密碼在哪裡改 發布:2025-03-17 11:48:57 瀏覽:965
楊瀾超級訪問 發布:2025-03-17 11:47:17 瀏覽:237
資料庫無損連接 發布:2025-03-17 11:47:16 瀏覽:13
memcachephp類 發布:2025-03-17 11:40:04 瀏覽:829
哈夫曼編碼演算法實現 發布:2025-03-17 11:23:31 瀏覽:385
錄音機可以存儲信息嗎 發布:2025-03-17 11:13:32 瀏覽:174