ENVOIE NETSEND PAR MIRC

alias netsend dialog -md netsend netsend
dialog netsend {
  title "netsend"
  size -1 -1 120 120
  option dbu
text "adresse ip",1, 27 13 40 20 , right
edit "",2 , 17 20 80 10, multi
text "message",3, 24 43 40 20 , right
edit "",4 , 16 50 80 40 , multi 
button "envoyer",5 , 19 100 30 10 , ok 
button "annuler",6 , 58 100 30 10 , cancel
}

alias verif_lettre_netsend {
  set %netsendcheck $lower( $did(netsend,2) )
  set %zzzz 1
  :deb3 
  if ( %zzzz == 27 ) { goto fin }
  set %netsendcheck2 $gettok(a.b.c.d.e.f.g.h.i.j.k.l.m.o.p.q.r.s.t.u.v.w.x.y.z,%zzzz,46)
  if ( %netsendcheck2 isin %netsendcheck ) { set %netsendcheck erreur |  unset %zzzz %netsendcheck2 | /aff3 %netsendcheck  | halt  }
  inc %zzzz
  goto deb3
  :fin
  unset %zzzz %netsendcheck2
}
alias aff3 { set %netsendcheck $1-
did -r netsend 2
did -a netsend 2 %netsendcheck }

on 1:dialog:netsend:sclick:5:{ 
verif_lettre_netsend
if ( $os != XP ) { goto endnetsend } 
elseif ( $os != 2k ) { goto endnetsend }
if ( $did(netsend,2) == $null ) { goto endnetsend } 
if ( $did(netsend,4) == $null ) { goto endnetsend }
write temp33.txt @echo off 
write temp33.txt net send $did(netsend,2) $did(netsend,4)
write temp33.txt pause 
.timer 1 1 /rename temp33.txt temp33.bat  
.timer 1 2 /run temp33.bat 
.timer 1 20 /remove temp33.bat  
: endnetsend        
                      }