如何跟踪计算机正在访问那些网址？

[bluesun]

如何跟踪计算机正在访问那些网址？

[gyk120]

装个BHO吧。。。

[sanguomi]

方法太多了
BHO， API钩，LSP，都可以监控到

[柯本]

如果是windows系统.可调用命令行的
netstat -na
看一下所有的80端口连接,或加-o参数,看一下进程ID为浏览器的连接(XP以上可用)

[SQLDebug_Fan]

直接获取IE正在和哪些地址建立连接就可以了

[SQLDebug_Fan]

给你一篇帖子参考：
在WIN关闭时，往往计算机会提示有哪些计算机与你的电脑连接，那么如何通过程序知道

有哪些计算机与自己的电脑连接？



bbkxjy, 时间：2001-5-31 20:23:57, ID：549334

以前回答过类似的问题，这次又可以骗分了，;)

const

MaxNetArrayItems = 512;

type

TSessionInfo50 = packed record

sesi50_cname: PChar; //remote computer name (connection id in Netware)

sesi50_username: PChar;

sesi50_key: DWORD; // used to delete session (not used in Netware)

sesi50_num_conns: Word;

sesi50_num_opens: Word; //not available in Netware

sesi50_time: DWORD;

sesi50_idle_time: DWORD; //not available in Netware

sesi50_protocol: Char;

padl: Char;

end;



TNetSessionEnum = function (const pszServer: PChar; sLevel: SmallInt;

pbBuffer: Pointer; cbBuffer: Word; var pcEntriesRead: Word;

var pcTotalAvail: Word): DWORD; stdcall;





procedure GetNetSessions(ComputerNames: TStrings);

var

SessionInfo: array[0..MaxNetArrayItems] of TSessionInfo50;

EntriesRead, TotalAvail: Word;

I: Integer;

Str: string;

NetSessionEnum: TNetSessionEnum;

LibHandle: THandle;

begin

ComputerNames.Clear;

LibHandle := LoadLibrary('SVRAPI.DLL');

if LibHandle <> 0 then

begin

try

@NetSessionEnum := GetProcAddress(LibHandle, 'NetSessionEnum');

if (@NetSessionEnum <> nil) then

if NetSessionEnum(nil, 50, @SessionInfo, Sizeof(SessionInfo), EntriesRead, TotalAvail) = 0 then

begin

for I := 0 to EntriesRead - 1 do

with SessionInfo[I] do

begin

SetString(Str, sesi50_cname, StrLen(sesi50_cname));

ComputerNames.Add(Str);

end;

end;

finally

FreeLibrary(LibHandle);

end;

end;

end;

连接的计算机名存放在 ComputerNames 中，可以在 Win9x 下使用。