如何判断当前机器是否链接到互联网上？

[晨光暮曲]

在VB里如何判断当前所在的机器是否链接到互联网？

[pandengzhe]

好多例子，搜一下末！

[AustinLei]

function InternetGetConnectedState(dwFlags:Longint;dwReserved:Longint):longint;stdcall;external 'wininet.dll';
function IsConnected():Boolean;

implementation

{$R *.dfm}

function IsConnected():Boolean;
begin
If InternetGetConnectedState(0, 0)=1 Then
IsConnected:=True
Else
IsConnected:=False;
end;

[AustinLei]

帖错了，应该是：
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
Public Function IsConnected() As Boolean
If InternetGetConnectedState(0&, 0&) = 1 Then
IsConnected = True
Else
IsConnected = False
End If
End Function

[jornet]

netstat命令

[晨光暮曲]

Good!