Sfv verificateur :)
Contenu du snippet
Ce code serf a faire la verification des .sfv . Comme FlashSFV ou autre programme du genre:)
Merci Pour Ne Pas Changer Le Nom Du Scripteur Dans Le Script :)
Source / Exemple :
menu channel,status {
-=Sfv.Verificator=-:{
unset %sfv.num.files | unset %sfv.nontrouv
unset %sfv.nonverf | unset %sfv.erroner | unset %sfv.complet
/dialog -md sfv.verif sfv.verif
did -b sfv.verif 11
did -b sfv.verif 10
}
}
dialog sfv.verif {
title "Sfv Verificateur By LordNight"
size -1 -1 379 154
option dbu
box "Légende", 6, 1 1 66 73
box "", 7, 1 76 66 73
button "Ouvrire .SFV", 8, 12 84 43 12
button "Verifier", 10, 12 100 43 12
button "Annuler", 11, 12 116 43 12
icon 12, 16 9 46 59, D:\b+irc\black4est.script\pic\sfv.bmp, 0, noborder
text "0", 13, 3 11 12 8, right
text "0", 14, 3 23 12 8, right
text "0", 15, 3 34 12 8, right
text "0", 16, 3 46 12 8, right
text "0", 17, 3 58 12 8, right
list 18, 69 4 199 73, size vsbar
list 22, 129 7 50 50, hide size
list 21, 75 7 50 50, hide size
list 23, 69 79 198 70, size hsbar vsbar
box "Sfv Finder", 24, 270 1 108 149
list 25, 274 19 100 121, size hsbar vsbar
button "Rechercher dans un directory", 26, 277 140 94 8, flat
text "Double Click Pour Lire le fichier", 27, 275 10 98 8
list 28, 287 36 50 50, hide size
text "Sfv Verificateur By LordNight :)", 3, 5 130 58 15
menu "SFV", 1
item "Ouvrire .SFV", 2, 1
item "Verifier", 4, 1
item "Quitter", 5, 1, ok
menu "Options", 19
item "Créer Par LordNight", 20, 19
}
on *:dialog:sfv.verif:sclick:26:{
set %sfv.find.directory $sdir($mircdir,Find Sfv in :)
set %sfv.find.num 0
:loop
inc %sfv.find.num
set %sfv.find.temp $findfile(%sfv.find.directory,*.sfv,%sfv.find.num)
if (%sfv.find.temp == $null) { halt }
did -a sfv.verif 25 $nopath(%sfv.find.temp)
did -a sfv.verif 28 %sfv.find.temp
goto loop
}
on *:dialog:sfv.verif:dclick:25:{
set %sfv.num1 $did(25).sel
set %sfv.files $did(28,%sfv.num1)
if (%sfv.files == $null) { halt }
did -a sfv.verif 17 0
did -r sfv.verif 18
did -r sfv.verif 21
did -r sfv.verif 22
did -r sfv.verif 23
set %sfv.files.nopath $nopath(%sfv.files)
set %sfv.files.directory $remove(%sfv.files,%sfv.files.nopath)
set %sfv.num 0
set %sfv.num.files 0
set %sfv.nontrouv 0
:loop
inc %sfv.num
set %sfv.temp $read(%sfv.files,%sfv.num)
if (; isin %sfv.temp) { goto loop }
if (%sfv.temp == $null) {
if (%sfv.erroner == $null) { set %sfv.erroner 0 | did -a sfv.verif 16 %sfv.erroner }
if (%sfv.correct == $null) { set %sfv.correct 0 | did -a sfv.verif 17 %sfv.correct }
did -a sfv.verif 23 Fichier lue correctement ...
did -a sfv.verif 23 Directory du sfv : %sfv.files.directory
did -e sfv.verif 10
halt
}
inc %sfv.num.files
set %sfv.nonverf %sfv.num.files
set %sfv.size $file(%sfv.files.directory $+ $left(%sfv.temp,$calc($len(%sfv.temp) - 9))).size
if (%sfv.size == $null) { set %sfv.size Non trouver | inc %sfv.nontrouv }
did -a sfv.verif 18 $left(%sfv.temp,$calc($len(%sfv.temp) - 9)) ----- %sfv.size
did -a sfv.verif 21 $left(%sfv.temp,$calc($len(%sfv.temp) - 9))
did -a sfv.verif 22 $right(%sfv.temp,8)
did -a sfv.verif 13 %sfv.num.files
did -a sfv.verif 14 %sfv.nontrouv
did -a sfv.verif 15 %sfv.nonverf
did -a sfv.verif 16 %sfv.erroner
did -a sfv.verif 17 %sfv.correct
goto loop
}
on *:dialog:sfv.verif:sclick:10:{
set %sfv.num 0
set %sfv.correct 0
set %sfv.erroner 0
:loop
inc %sfv.num
set %sfv.temp %sfv.files.directory $+ $did(21,%sfv.num).text
if ($did(21,%sfv.num).text == $null) { halt }
set %sfv.crc $crc(%sfv.temp)
if (%sfv.crc == $did(22,%sfv.num).text) { inc %sfv.correct | set %sfv.nonverf $calc(%sfv.nonverf - 1) | did -a sfv.verif 17 %sfv.correct | did -a sfv.verif 15 %sfv.nonverf | did -a sfv.verif 23 Fichier : $did(21,%sfv.num).text / CRC : $did(22,%sfv.num).text = OK | goto loop }
inc %sfv.erroner
set %sfv.nonverf $calc(%sfv.nonverf - 1)
did -a sfv.verif 15 %sfv.nonverf
did -a sfv.verif 16 %sfv.erroner
did -a sfv.verif 23 Fichier : $did(21,%sfv.num).text / CRC : $did(22,%sfv.num).text = Erroner ou Incomplet / Verifier le fichier !
goto loop
}
on *:dialog:sfv.verif:menu:4:{
set %sfv.num 0
set %sfv.correct 0
set %sfv.erroner 0
:loop
inc %sfv.num
set %sfv.temp %sfv.files.directory $+ $did(21,%sfv.num).text
if (%sfv.temp == $null) { halt }
set %sfv.crc $crc(%sfv.temp)
if (%sfv.crc == $did(22,%sfv.num).text) { inc %sfv.correct | set %sfv.nonverf $calc(%sfv.nonverf - 1) | did -a sfv.verif 17 %sfv.correct | did -a sfv.verif 15 %sfv.nonverf | did -a sfv.verif 23 Fichier : $did(21,%sfv.num).text / CRC : $did(22,%sfv.num).text = OK | goto loop }
inc %sfv.erroner
set %sfv.nonverf $calc(%sfv.nonverf - 1)
did -a sfv.verif 15 %sfv.nonverf
did -a sfv.verif 16 %sfv.erroner
did -a sfv.verif 23 Fichier : $did(21,%sfv.num).text / CRC : $did(22,%sfv.num).text = Erroner ou Incomplet / Verifier le fichier !
goto loop
}
on *:dialog:sfv.verif:sclick:8:{
set %sfv.files $sfile($mircdir,SFV Verifier,Open)
if (%sfv.files == $null) { halt }
did -r sfv.verif 18
did -r sfv.verif 21
did -r sfv.verif 22
did -r sfv.verif 23
set %sfv.files.nopath $nopath(%sfv.files)
set %sfv.files.directory $remove(%sfv.files,%sfv.files.nopath)
set %sfv.num 0
set %sfv.num.files 0
set %sfv.nontrouv 0
:loop
inc %sfv.num
set %sfv.temp $read(%sfv.files,%sfv.num)
if (; isin %sfv.temp) { goto loop }
if (%sfv.temp == $null) {
if (%sfv.erroner == $null) { set %sfv.erroner 0 | did -a sfv.verif 16 %sfv.erroner }
if (%sfv.correct == $null) { set %sfv.correct 0 | did -a sfv.verif 17 %sfv.correct }
did -a sfv.verif 23 Fichier lue correctement ...
did -e sfv.verif 10
halt
}
inc %sfv.num.files
set %sfv.nonverf %sfv.num.files
set %sfv.size $file(%sfv.files.directory $+ $left(%sfv.temp,$calc($len(%sfv.temp) - 9))).size
if (%sfv.size == $null) { set %sfv.size Non trouver | inc %sfv.nontrouv }
did -a sfv.verif 18 $left(%sfv.temp,$calc($len(%sfv.temp) - 9)) ----- %sfv.size
did -a sfv.verif 21 $left(%sfv.temp,$calc($len(%sfv.temp) - 9))
did -a sfv.verif 22 $right(%sfv.temp,8)
did -a sfv.verif 13 %sfv.num.files
did -a sfv.verif 14 %sfv.nontrouv
did -a sfv.verif 15 %sfv.nonverf
did -a sfv.verif 16 %sfv.erroner
did -a sfv.verif 17 %sfv.correct
goto loop
}
on *:dialog:sfv.verif:menu:2:{
set %sfv.files $sfile($mircdir,SFV Verifier,Open)
if (%sfv.files == $null) { halt }
did -r sfv.verif 18
did -r sfv.verif 21
did -r sfv.verif 22
did -r sfv.verif 23
set %sfv.files.nopath $nopath(%sfv.files)
set %sfv.files.directory $remove(%sfv.files,%sfv.files.nopath)
set %sfv.num 0
set %sfv.num.files 0
set %sfv.nontrouv 0
:loop
inc %sfv.num
set %sfv.temp $read(%sfv.files,%sfv.num)
if (; isin %sfv.temp) { goto loop }
if (%sfv.temp == $null) {
if (%sfv.erroner == $null) { set %sfv.erroner 0 | did -a sfv.verif 16 %sfv.erroner }
if (%sfv.correct == $null) { set %sfv.correct 0 | did -a sfv.verif 17 %sfv.correct }
did -a sfv.verif 23 Fichier lue correctement ...
did -e sfv.verif 10
halt
}
inc %sfv.num.files
set %sfv.nonverf %sfv.num.files
set %sfv.size $file(%sfv.files.directory $+ $left(%sfv.temp,$calc($len(%sfv.temp) - 9))).size
if (%sfv.size == $null) { set %sfv.size Non trouver | inc %sfv.nontrouv }
did -a sfv.verif 18 $left(%sfv.temp,$calc($len(%sfv.temp) - 9)) ----- %sfv.size
did -a sfv.verif 21 $left(%sfv.temp,$calc($len(%sfv.temp) - 9))
did -a sfv.verif 22 $right(%sfv.temp,8)
did -a sfv.verif 13 %sfv.num.files
did -a sfv.verif 14 %sfv.nontrouv
did -a sfv.verif 15 %sfv.nonverf
did -a sfv.verif 16 %sfv.erroner
did -a sfv.verif 17 %sfv.correct
goto loop
}
Conclusion :
Merci Pour Ne Pas Changer Le Nom Du Scripteur Dans Le Script :)
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.