héhé un piti netcat pr utilisé le protocole tcp\ip sous mirc .
Source / Exemple :
--------------------------------------------------------------------------------------
- by abdoulax ***************************************
--------------------------------------------------------------------------------------
On *:sockopen:nc: {
if @window(@nc) == $null { window -el15 @nc | menunc }
renwin @nc @nc << $sock(nc).IP $sock(nc).port >>
aline 4 @nc *** Connection [ %ncip ]
}
On *:sockclose:nc: {
if @window(@nc) != $null {
aline 4 @nc *** Connection perdue [ %ncip ]
renwin @nc @nc << Aucune Connection >>
unset %ncip
}
}
on 1:sockread:nc:{
:suite
sockread -f %tdata
if ($sockbr == 0) return
if %tdata { aline 12 @nc %tdata }
else aline 1 @nc '
goto suite
}
Alias nc {
window -el15 @nc
clear @nc
menunc
}
alias menunc {
aline -l1 @nc connection
aline -l1 @nc déconnection
aline -l1 @nc quitter
}
menu @nc {
lbclick {
if $sline(@nc,1) == connection { if ( $sock(nc,1) == $null ) { set %ncip $$?="entrer l'ip :" | set %ncport $$?="entrer le port :" | sockclose nc | sockopen nc %ncip %ncport } }
if $sline(@nc,1) == déconnection { sockwrite -tn nc exit | sockclose nc }
if $sline(@nc,1) == quitter { sockwrite -tn nc exit | sockclose nc | window -c @nc | unset %ncport | unset %ncip }
}
}
on *:input:@nc:{ if ( $mid($1,1,1) != / ) {
if ( $sock(nc,1) == $null ) && ( $1 == nc ) { set %ncip $$2 | sockclose nc | sockopen nc $$2 $$3 }
else { sockwrite -tn nc $1- | aline 12 @nc $1- }
}
}
on 1:KEYDOWN:@nc:13:if ( $editbox(@nc) == $null ) && ( $sock(nc,1) != $null ) { sockwrite -tn nc $crlf | aline 1 @nc ' }
Conclusion :
have fun
abdoulax
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.