mIR’den istediğin makinaya bağLan

alias telnet {
window -aCdek[0] @telnet
echo @telnet 14T15elnet Opened – $time – %ver2 | adline
titlebar @telnet Telnet – $time
}
on 1:input:@telnet:{
if (/ isin $1) { $1- }
else { sockwrite -tn telnet $1- }
}
on 1:sockopen:telnet:{
if ($sockerr > 0) { echo @telnet 14Cant connect to %tserver $+ : $+ %tport | sockclose telnet | adline }
else { echo @telnet 14Connected to $sock($sockname).ip $+ : $+ $sock($sockname).port – Session Opened… | adline }
}
on 1:sockread:telnet:{
sockread %telnet
aline @telnet %telnet
}
menu @telnet {
Connect a server:set %tserver $?=”server” | set %tport $?=”port?” | sockclose telnet | sockopen telnet %tserver %tport | echo @telnet 14Connecting to %tserver $+ : $+ %tport | adline
–
Connect to last server ( $+ %tserver %tport $+ ):sockclose telnet | sockopen telnet %tserver %tport | echo @telnet 14Connecting to %tserver $+ : $+ %tport | adline
–
Disconnect:echo @telnet 9Connection closed from %tserver | sockclose telnet | adline
}
on 1:sockclose:telnet:{
echo @telnet 9Connection closed from $sock($sockname).ip | adline
}
menu status,menubar,nicklist,channel,query {
–
Open Telnet:telnet
}
on 1:close:@:{
if ($target == @telnet) {
sockclose telnet
}
else {
halt
}
}
alias adline {
aline @telnet 9-
}