alias test.open {
if ($sock(testSocket)) { sockclose testSocket }
sockopen testSocket mirc.com 80
}
on 1:SOCKOPEN:testSocket: {
if ($sockerr > 0) { echo -s $sock($sockname).wsmsg | return }
sockwrite -n $sockname GET /index.html HTTP/1.0
sockwrite -n $sockname Host: www.mirc.net
;sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.0.5) Gecko/2008120122 Firefox/3.0.5
;sockwrite -n $sockname Accept: text/html,text/plain
;sockwrite -n $sockname Accept-Language: en-us,en;q=0.5
;sockwrite -n $sockname Accept-Encoding:
;sockwrite -n $sockname Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
;sockwrite -n $sockname Referer: http://www.mirc.net/paste/
;sockwrite -n $sockname Keep-Alive: 300
;sockwrite -n $sockname Connection: keep-alive
sockwrite $sockname $crlf
sockclose $sockname
}