今天上图书馆查资料，点知网链接的时候，发现了这个：

写了段代码截取了它的密码，邪恶吧？

procedure TForm1.FormCreate(Sender: TObject);
begin
  WebBrowser1.Navigate('pics/www.lib.whu.edu.cn/dc/urlto.asp?id=1');
end;

procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject);
var s: string;
begin
  s := WebBrowser1.OleObject.document.getElementByID('password').value;
  ShowMessage(s);
  close;
end;

我已经测试过，这个账号在学校外面不能登陆，IP限制。所以，没什么意义……