[VB.NET] 偵測電腦是否已上網

Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long

Private Function IsConnected() As Boolean
IsConnected = InternetGetConnectedState(0, 0)
End Function
'使用方法:
Private Sub Command1_Click()
MsgBox IsConnected
End Sub
'如果電腦已上網會傳回true，否則傳回false。