做一个“网站状态检查”的程序，求指导

Question

　　首先我是一个程序设计的新手，想用delphi做一个“网站状态检查器”。请大家指导一下，看看我的思路对不对，或者提供一些具体的指点（用什么组件、提供帮助文档，相关代码等）。　　设计原因：公司的网站服务器有几个用asp做的网站，近半年来，网站不定期出现访问不了的现象，查找原因后发现是asp解释服务出问题（静态页面没问题），一般的处理方法是重新iis服务就正常了。由于需要第一时间知道网站出现问题，所以要设计这个程序。　　我的思路：1、打开网站的首页，返回html源码
          　　2、分析html源码，得出网站状态是否正常的结论。
          　　3、如果网站不正常，发出警告。
          　　4、如果网站正常，10分钟后继续。

Answer 1

使用 Indy组件 IdHttp 下载页面内容

Answer 2

iis可以把指定的一些应用独立设一个池，再设置自动回收时机如果一定要自己监控，这样也可以
使用tcp/http客户端，或直接使用ie（Twebbrowser）

Answer 3

好专业
ping看看能否ping通 试试哈

Answer 4

应用死了，iis死了，可以ping还是正常的

Answer 5

写个代码，定时的去访问你的网站，异常的话就报出来。。这是个定时访问特定网站的代码 参考一下。
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls,shellApi;type
  TForm1 = class(TForm)
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Label1: TLabel;
    Timer1: TTimer;
    Edit1: TEdit;
    Label2: TLabel;
    Button1: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Timer1Timer(Sender: TObject);
var
  upnet:string;
begin
  upnet:=datetostr(DateTimePicker1.date)+' '+timetostr(DateTimePicker2.Time);
  if (now>strtodatetime(upnet)) then
  begin
    ShellExecute(self.Handle,'open',Pchar(Trim(Edit1.Text)),nil,nil,SW_SHOWNORMAL);
    Timer1.Enabled:=False;
  end;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled:=True;
end;end.

Answer 6

IIS 配置好嘛，，，何必搞着麻烦