请问，如何些一个程序判断一个页面是否可达。(100分)

能够定时访问一网站，如果主页不可达就执行一段代码（弹出对话框）。
由于进入该网站需要一个身份验证。
我在本机使用记住密码了，能否实现自动登陆？
不能使用定期刷新页面。可达就关掉进程，不可达就执行代码后关掉进程。下次建立新的进程访问。
谢谢。

用TWebBrowser.Navigate啊

这个函数将会检查URL是否有效。唯一的先决条件就是你必须在线。
URL前可能有 http:// 前缀，却省情况也是 http:// 作前缀,函数
internetOpenUrl 对 FTP:// 和 gopher:// 前缀均提供支持。
例子中我检查返回代码是否为 '200' 和 '302'（重定位标记），
你也可以按你的需要修改返回码. 仅修改 the result := 表达式 这句即可.
uses wininet;
Function CheckUrl(url:string):boolean;
var hSession, hfile, hRequest: hInternet;
dwindex,dwcodelen :dword;
dwcode:array[1..20] of char;
res : pchar;
begin
if pos('http://',lowercase(url))=0 then
url := 'http://'+url;
Result := false;
hSession := InternetOpen('InetURL:/1.0',
INTERNET_OPEN_TYPE_PRECONFIG,nil, nil, 0);
if assigned(hsession) then
begin
hfile := InternetOpenUrl(hsession,pchar(url),nil,0,INTERNET_FLAG_RELOAD,0);
dwIndex := 0;
dwCodeLen := 10;
HttpQueryInfo(hfile, HTTP_QUERY_STATUS_CODE,@dwcode, dwcodeLen, dwIndex);
res := pchar(@dwcode);
result:= (res ='200') or (res ='302');
if assigned(hfile) then
InternetCloseHandle(hfile);
InternetCloseHandle(hsession);
end;
end;