如何获取计算机正在访问的网址!

Question

我想对一个计算机进行限制，只允许它访问指定的网址! 谢谢

Answer 1

如果允许的条目比较少，而且基本不需要变更，可以这样，利用windows的route命令
1.删除缺省路由；
2.添加相应的主机路由；

Answer 2

使用 IShellWindows 接口獲得IE 地址var
  ShellWindow : IShellWindows;
  spDisp : IDispatch;
  IE1 : iWebBrowser;
  s : string;
begin
  ShellWindow := CoShellWindows.Create ;
  spDisp := ShellWindow.Item(0);
  spDisp.QueryInterface(iWebBrowser1,IE1);
  s := IE1.Get_LocationURL() ; // 取消地址 

Answer 3

有　BHO　的相关资料或例程吗？谢谢！

Answer 4

取IE地址欄地址。function EnumWindowsProc(hwnd: THandle; lParam: LPARAM): boolean; stdcall;
var
  classname: array[0..255] of char;
  addr: array[0..255] of char;
  edith: THandle;
begin
  GetClassName(hwnd,classname,256);
  if classname = 'IEFrame' then
  begin
    edith:= findwindowex(hwnd,0,'WorkerW',nil);
    edith:= findwindowex(edith,0,'ReBarWindow32',nil);
    edith:= findwindowex(edith,0,'ComboBoxEx32',nil);
    sendmessage(edith,wm_gettext,256,Integer(@addr));
    Form1.Memo1.Lines.Add(addr);
  end;
  result:= true;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
   EnumWindows(@EnumWindowsProc,0);
end;

Answer 5

如何在输入完地址后，（即回车后）调用这个函数呀
另:BHO　必须做成DLL吗？