如何偵測電腦是否已上網

坊間的方法不是使用登錄就是用ping的方法，本站提供一個簡單的方法
(適合win95+IE4/98/ME/NT+IE4/2000/XP)

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。