㈠ VB中WinSock如何檢測網路是否連接
你是指對方是否接到連接信息吧?還是指網路是否正常?
如果是前這,可以在對方接到連接請求的時候,發送回一個信息!
㈡ VB 獲取 網路連接 列表
代碼如下，不過要給分啊！^_^
Option Explicit
'檢測本機是否聯入互聯網,以及以什麼形式聯入
Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" _
Alias "InternetGetConnectedStateExA" _
(ByRef lpdwFlags As Long, _
ByVal lpszConnectionName As String, _
ByVal dwNameLen As Long, _
ByVal dwReserved As Long _
) As Long
Private Enum EIGCInternetConnectionState
INTERNET_CONNECTION_MODEM = &H1&
INTERNET_CONNECTION_LAN = &H2&
INTERNET_CONNECTION_PROXY = &H4&
INTERNET_RAS_INSTALLED = &H10&
INTERNET_CONNECTION_OFFLINE = &H20&
INTERNET_CONNECTION_CONFIGURED = &H40&
End Enum
Private Function InternetConnected(Optional ByRef eConnectionInfo _
As EIGCInternetConnectionState, Optional ByRef _
sConnectionName As String) As Boolean
Dim dwFlags As Long
Dim sNameBuf As String
Dim lR As Long
Dim iPos As Long
On Error Resume Next
sNameBuf = String$(513, 0)
lR = InternetGetConnectedStateEx(dwFlags, sNameBuf, 512, 0&)
eConnectionInfo = dwFlags
iPos = InStr(sNameBuf, vbNullChar)
If iPos > 0 Then
sConnectionName = Left$(sNameBuf, iPos - 1)
ElseIf Not sNameBuf = String$(513, 0) Then
sConnectionName = sNameBuf
End If
InternetConnected = (lR = 1)
End Function
Public Function IsInNet() As Boolean
'檢測是否已經以及使用什麼方法連接到Internet
Dim bConnected As Boolean
Dim eR As Long
Dim sName As String
Dim sMsg As String
bConnected = InternetConnected(eR, sName)
'根據獲得的結果輸出
' If (eR And INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM Then
' sMsg = sMsg & "使用modem連接到Internet."
' End If
'
' If (eR And INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN Then
' sMsg = sMsg & "使用內部網連接到Internet."
' End If
'
' If (eR And INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY Then
' sMsg = sMsg & "通過代理伺服器連接到Internet."
' End If
'
' If (eR And INTERNET_CONNECTION_OFFLINE) = INTERNET_CONNECTION_OFFLINE Then
' sMsg = sMsg & "現在連接處於離線狀態."
' End If
'
' If (eR And INTERNET_CONNECTION_CONFIGURED) = INTERNET_CONNECTION_CONFIGURED Then
' sMsg = sMsg & "連接已經被設定."
' Else
' sMsg = sMsg & "沒有設定好的連接."
' End If
'
' If (eR And INTERNET_RAS_INSTALLED) = INTERNET_RAS_INSTALLED Then
' sMsg = sMsg & "本機已經安裝了遠程訪問服務功能."
' End If
IsInNet = bConnected
End Function
如果直接調用，可以通過返回值判斷是否聯網；如果將其中的注釋去掉，還可以得到連網的種類等詳細信息。酷吧？
㈢ VB如何連接網路資料庫
在工程里源找到Microsoft ADO Data Control控制項,拖到窗體上,事件中這么寫:
Private Sub Coammand1_Click()
Adodc1.connectionstring="Driver={SQL Server};Server=伺服器IP;Uid=用戶名;Pwd=密碼;DataBse=資料庫名"
Adodc1.RecordSource="SELECT * FROM 表名 WHERE 條件"
Adodc1.Refrsh
End Sub
要進行數據操作就這樣引用:
Adodc1.RecordSet.Fields("欄位名")這就是操作數據欄位
把Adodc1綁定到數據控制項那就是綁定數據源
㈣ VB愛好者有福音，不用 WinSOCK 照樣可以實現 TCP 或 UDP 多客戶端通訊！
各位VB愛好者，大家好！說起使用VB編寫各種小程序，易如反掌，非常上手。往窗體上拖幾個按鈕、文本框，很快就能做個像模像樣的小程序，滿足內心的成就感。不過，若要編寫TCP/UDP網路通訊程序，VB可能不太自信。通常的做法是往窗體上拖幾個WinSock控制項，然後在事件上編寫代碼。然而，當客戶端數量猛增時，就需要增加WinSock控制項數量，操作變得繁瑣。聰明的小夥伴們找到了使用數組的方法，即控制項數組，但仍然受限於控制項。這時，VbRichClient框架程序的出現，無需WinSock控制項，更方便實現網路通訊。
VbRichClient是一個由VB開發的框架程序，適用於各種功能，包括網路通訊。它比WinSock穩定性更高，代碼量少，且不再需要拖放控制項。更重要的是，對於未知數量的服務端或客戶端，只需增加類似代碼，無需麻煩的控制項數組。接下來，讓我們一起了解TCP/UDP的原理和VbRichClient如何實現網路通訊。
TCP和UDP是常見的網路通訊協議。TCP建立可靠連接，通過三次握手確保數據傳輸的完整性。客戶端和服務端間，數據以點對點方式傳輸，信號不會丟失。而UDP則不那麼嚴謹，信號廣播給網路中所有電腦，只有需要該信號的電腦接收，其餘忽略。盡管UDP工作方式不理想，但在無法明確建立點對點連接或需要一對多或多對多通訊時，UDP發揮重要作用。
使用VbRichClient實現TCP通訊方法包括：服務端綁定IP和埠啟動偵聽，客戶端指定服務端IP和埠綁定，然後連接服務端，建立連接後即可發送信息。服務端和客戶端均能發送信息，確保通訊順暢。實現UDP通訊時，各端點綁定本地和遠程IP地址及埠，無需建立連接，自由發送消息。
VbRichClient源代碼下載鏈接：pan..com/s/1bvJTCn... 提取碼：...代碼注釋清晰，調試便捷。使用VbRichClient編寫網路通訊程序，代碼簡潔，功能強大，實現了多方網路通訊，操作極為方便。下載並探索源代碼，你將體驗到其高效性和易用性。關於張飛、關羽和劉備的故事，可能揭示了團隊管理的復雜性和領導者的重要性，但讓我們回歸編程的話題，享受編程的樂趣吧！