スピード
$size=1024*50;//ここでは、データが可能な限り現実に近いことを確認するために*十分*ズームインできます
$callnumber=3;
$ip=$_SERVER[REMOTE_ADDR];
list ($useca,$seca)=explode(" ",microtime());
@exec("ping -n $callnumber -l $size $ip",$data) または die("サポート禁止!") ;
list($usecb,$secb)=explode(" ",microtime());
$sec=$secb-$seca;
$msg=$data[count($data)-3];
list( $drop ,$info)=explode("(",$msg);
list($info,$drop)=explode("%",$info);
$spead=($size*$callnumber-$size *$ callnumber*$info/100)/$sec;
echo sprintf("接続速度 %.2f(k/s)",$spead/1024);
?>