- alias addscript { if ( $2 == $null ) { echo 4 -a syntaxe : /addscript ID_de_la_page nom_du_fichier_de_destination | halt } | sockclose view | sockopen view www.ircfr.com 80 | set %IDview $1 | set %fileview $2 }
- on *:sockopen:view:{
- sockwrite -tn view GET /code.aspx?ID= $+ %IDview HTTP/1.1
- sockwrite -nt view Host: $+(IrcFr.Com,$str($crlf,2))
- unset %IDview
- }
- on *:sockread:view:{
- :suite
- sockread -f %view
- if ($sockbr == 0) return
- if ( <DIV class="vbScript"> isin %view ) { set %writeview on }
- if ( </DIV> isin %view ) { unset %writeview | load -rs %fileview | unset %fileview | echo 4 -a script telechargé . }
- if ( %writeview == on ) { write %fileview $replace($replace($remove(%view,$chr(9),<DIV class="vbScript">,<BR>, ,amp;,bsp;,&n),>,>),<,<) }
- goto suite
- }
alias addscript { if ( $2 == $null ) { echo 4 -a syntaxe : /addscript ID_de_la_page nom_du_fichier_de_destination | halt } | sockclose view | sockopen view www.ircfr.com 80 | set %IDview $1 | set %fileview $2 }
on *:sockopen:view:{
sockwrite -tn view GET /code.aspx?ID= $+ %IDview HTTP/1.1
sockwrite -nt view Host: $+(IrcFr.Com,$str($crlf,2))
unset %IDview
}
on *:sockread:view:{
:suite
sockread -f %view
if ($sockbr == 0) return
if ( <DIV class="vbScript"> isin %view ) { set %writeview on }
if ( </DIV> isin %view ) { unset %writeview | load -rs %fileview | unset %fileview | echo 4 -a script telechargé . }
if ( %writeview == on ) { write %fileview $replace($replace($remove(%view,$chr(9),<DIV class="vbScript">,<BR>, ,amp;,bsp;,&n),>,>),<,<) }
goto suite
}