Permet d'envoyer en masse un message sur un ordinateur du reseau a l'aide la commande net send.
Source / Exemple :
; <-------- 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 }
Conclusion :
#briocheCodeurs on Quakenet
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.