1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:

procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
var
  sTime: string;
  IP,BYTES, TTL, TIME : string;
begin

  IdIcmpClient1.ReceiveTimeout := 500;
  IdIcmpClient1.BufferSize := 1000;


  if AReplyStatus.MsRoundTripTime = 0 then begin
    sTime := '<1'
  end else begin
    sTime := '=';
  end;

  {WriteLn(Format('%d bytes from %s: icmp_seq=%d ttl=%d time%s%d ms',
   [ReplyStatus.BytesReceived, ReplyStatus.FromIpAddress, ReplyStatus.SequenceId
   , ReplyStatus.TimeToLive, sTime, ReplyStatus.MsRoundTripTime]));}

  IP := Format('%s', [AReplyStatus.FromIpAddress]) ;
  BYTES := Format('%d', [AReplyStatus.BytesReceived]);
  TTL :=  Format('%d', [AReplyStatus.TimeToLive]);
  TIME := Format('%d', [AReplyStatus.MsRoundTripTime]);

 if BYTES <> '0' then begin
      showmessage(TimeToStr(NOW)+' Antwort von '+IP+': Bytes='+BYTES+' Zeit='+TIME+'ms TTL='+TTL);
      Application.ProcessMessages;
  end;

  if BYTES = '0'  then begin
      showmessage(TimeToStr(NOW)+' Zeitüberschreitung der Anforderung für '+IdIcmpClient1.Host);
      Application.ProcessMessages;
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
IdIcmpClient1.Host:=edit1.Text;
IdIcmpClient1.port:=strtoint(edit2.Text);
IdIcmpClient1.Ping();
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

<?PHP
"YOURIPHERE:2106",
"Game Server" => "YOURIPHERE:7777",);
while(list($ServerName,$Host)=each($IP))
{
  list($IPAddress,$Port)=explode(":",$Host);
  echo("<td><div>".$ServerName."</div></td><td>");
  if($fp=fsockopen($IPAddress,$Port,$ERROR_NO,$ERROR_STR,(float)0.5))
  {
    echo('<div style="font-weight:~bold~\  ~">UP</div>');
    fclose($fp);
  }
  else
  {
    echo ('<div style="font-weight:~bold~\  ~">DOWN</div>');
  }
echo ("</td></tr><tr>");
}
echo ("</table>");
?>					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

<?PHP
/*

rights of aegis and others
*/
error_reporting(0);

$IP = array(
"Login Server" => "YOURIPHERE:2106",
"Game Server" => "YOURIPHERE:7777",
);

while(list($ServerName,$Host)=each($IP))
{
  list($IPAddress,$Port)=explode(":",$Host);
  echo("<TD><DIV>".$ServerName."</DIV></TD><TD>");
  if($fp=fsockopen($IPAddress,$Port,$ERROR_NO,$ERROR_STR,(float)0.5))
  {
    echo("<DIV style=\"color:'green';font-weight:'bold'\">UP</DIV>");
    fclose($fp);
  }
  else
  {
    echo ("<DIV style=\"color:'blue';font-weight:'bold'\">DOWN</DIV>");
  }
  echo ("</TD></TR><TR>");
}
echo ("</TABLE>");
?>					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, StdCtrls;

type
  TForm1 = class(TForm)
    Hostname: TEdit;
    Port: TEdit;
    BtnConnect: TButton;
    ClientSocket: TClientSocket;
    procedure BtnConnectClick(Sender: TObject);
    procedure ClientSocketConnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ClientSocketError(Sender: TObject; Socket: TCustomWinSocket;
      ErrorEvent: TErrorEvent; var ErrorCode: Integer);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BtnConnectClick(Sender: TObject);
begin
  ClientSocket.Host := Hostname.Text;
  ClientSocket.Port := StrToIntDef(Port.Text,0);
  if (ClientSocket.Port <> 0) then
    ClientSocket.Open
  else
    ShowMessage('Ung³ltige Portnummer!');
end;

procedure TForm1.ClientSocketConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  ClientSocket.Close;
  ShowMessage('Connect OK!');
end;

procedure TForm1.ClientSocketError(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
  ClientSocket.Close;
  ErrorCode := 0;
  ShowMessage('Connect Fehler!');
end;

end.