Code:
on *:TEXT:!top10:[color:red]#[/color]: set %chan $chan | sockopen topten www.deepsky.ws 80
on *:sockopen:topten:{ sockwrite -n topten GET http://www.deepsky.ws/top10.asp?c=70 }
on 1:sockread:topten:{
  if ($sockerr > 0) return
  :nextread
  sockread %temp
  if ($sockbr == 0) return
  if (%temp == $null) %temp = -
  if (HTTP_RESPONSE_TOP10 isin %temp) { msg %chan $remove(%temp,HTTP_RESPONSE_) }
  goto nextread
}

You might want to use the actual channel name instead of just the # (like #mychan) (see in red above)
You can make this sort of thing yourself if you read the help on sockets, I made this with very little modification to the help file example on sockets.

to test manually use an alias like this:
Code:
alias topten { sockopen topten www.deepsky.ws 80 | set %chan $active }

then in the channel window type /topten