;==========================
;Made by NewZzang          
;==========================
on 1:sockopen:Speed:{
  sockwrite -nt $sockname GET http://home.hananet.net/speedchk/images/big.jpg
  set %Speed.time $ticks
}
on 1:sockread:Speed:{
  sockread %Speed.temp
  if ( $sock(Speed).rcvd == 814571 ) {
    set %Speed.time $calc(($ticks - %Speed.time) / 1000)
    msg %Speed.chan $mini 2인터넷 다운로드 속도: $round($bytes($calc((814571 / %Speed.time)*8/1000),k),4) $+ Mbps( $+ $int($bytes($calc(814571 / %Speed.time),k)) $+ KB/s)
    unset %Speed.time
  }
}
on 1:INPUT:*: {
  if ($1 == !체크)  {
    say $1-
    set %Speed.chan $chan
    sockclose Speed
    sockopen Speed home.hananet.net 80
    halt
  }
}


고대로 복사해서 사용하하세요 ~_~