begin process at 2010 03 22 10:03:33
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Divers

 > STATISTIQUE DE VOS DISQUES DUR.

STATISTIQUE DE VOS DISQUES DUR.


 Information sur la source

Note :
9 / 10 - par 1 personne
9,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Divers Classé sous :disquedur, statistique, information, addon Niveau :Débutant Date de création :20/04/2006 Date de mise à jour :16/03/2008 01:39:13 Vu :3 464

Auteur : Nort0n

Ecrire un message privé
Site perso
Commentaire sur cette source (9)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
Petite remote (fonctionnant sans DLL ni apport exterieur) qui permet de retourner la plupart des infos (Nom, Type, espace total, espace libre, pourcentage d'espace occupé & libre) de vos disques dur. Ce code n'a rien de pretentieux, mais je l'ai fais suite à la demande d'un ami afin d'avoir des stats rapide sur IRC.

Source

  • on *:input:#: {
  • if ($$1 == .state) {
  • if (!$2-) { .timer 1 2 msg $chan 1[ Analyse ] Vous devez préciser le nom du volume à analyser ! (Exemple : .state c:) | halt }
  • elseif (: !isin $2) { .timer 1 2 msg $chan 1[ Analyse ] Nom du volume invalide ! Veuillez respecter cette syntaxe :1 .state c: | halt }
  • else {
  • if ((!$disk($2).size) || ($disk($2).size == 0)) { .timer 1 2 msg $chan 1[ Analyse ] Ce volume n'est pas supporté par votre ordinateur, ou n'est pas présent ! | halt }
  • else {
  • if ($disk($2).type == fixed) { var %trans.type Interne }
  • else { var %trans.type Externe }
  • .timer 1 2 msg $chan 1Vérification de l'état du volume $$2
  • .timer 1 3 msg $chan 1Type de disque :14 %trans.type $+ 1,
  • .timer 1 4 msg $chan 1Nom du volume :14 $disk($$2.label $+ 1,
  • .timer 1 5 msg $chan 1Espace Total :14 $round($calc($disk($2).size / 1073741824),2) 1Go,
  • .timer 1 6 msg $chan 1Espace Libre :14 $round($calc($disk($2).free / 1073741824),2) 1Go,
  • .timer 1 7 msg $chan 1L'espace libre représente14 $round($calc(100 * $round($calc($disk($2).free / 1073741824),2) / $round($calc($disk($2).size / 1073741824),2)),2) $+ 1% de l'espace total,
  • .timer 1 8 msg $chan 1Le volume est donc rempli à14 $round($calc(100 - $round($calc(100 * $round($calc($disk($2).free / 1073741824),2) / $round($calc($disk($2).size / 1073741824),2)),2)),2) $+ 1% $+ .
  • .timer 1 9 msg $chan 1Analyse terminée pour $2 $+ .
  • }
  • }
  • }
  • }
on *:input:#: {
  if ($$1 == .state) { 
    if (!$2-) { .timer 1 2 msg $chan 1[ Analyse ] Vous devez préciser le nom du volume à analyser ! (Exemple : .state c:) | halt }
    elseif (: !isin $2) { .timer 1 2 msg $chan 1[ Analyse ] Nom du volume invalide ! Veuillez respecter cette syntaxe :1 .state c: | halt }
    else {
      if ((!$disk($2).size) || ($disk($2).size == 0)) { .timer 1 2 msg $chan 1[ Analyse ] Ce volume n'est pas supporté par votre ordinateur, ou n'est pas présent ! | halt }
      else {
        if ($disk($2).type == fixed) { var %trans.type Interne }
        else { var %trans.type Externe }
        .timer 1 2 msg $chan 1Vérification de l'état du volume $$2 
        .timer 1 3 msg $chan 1Type de disque :14 %trans.type $+ 1,
        .timer 1 4 msg $chan 1Nom du volume :14 $disk($$2.label $+ 1,
        .timer 1 5 msg $chan 1Espace Total :14 $round($calc($disk($2).size / 1073741824),2) 1Go,
        .timer 1 6 msg $chan 1Espace Libre :14 $round($calc($disk($2).free / 1073741824),2) 1Go,
        .timer 1 7 msg $chan 1L'espace libre représente14 $round($calc(100 * $round($calc($disk($2).free / 1073741824),2) / $round($calc($disk($2).size / 1073741824),2)),2) $+ 1% de l'espace total,
        .timer 1 8 msg $chan 1Le volume est donc rempli à14 $round($calc(100 - $round($calc(100 * $round($calc($disk($2).free / 1073741824),2) / $round($calc($disk($2).size / 1073741824),2)),2)),2) $+ 1% $+ .
        .timer 1 9 msg $chan 1Analyse terminée pour $2 $+ .
      }
    }
  }
}

 Conclusion

Pour faire fonctionner ce code, copier le dans une nouvelle page 'remote' de votre client IRC, puis vous faites .state c: sur un salon, et voilà.
ATTENTION : Cette remote analyse un seul disque, pour en tester plusieurs, vous devez repeter la commande autant de fois que necessaire en modifiant le nom du volume.
(Le texte fonctionne sur un input, et retourne les infos sur le salon où la commande a été tapée. Si vous souhaitez avec le meme qui fonctionne sur un alias et qui retourne les infos en echo, suffit de demander ^^).

Si la valeur d'espace total n'est pas exactement la même qu'indiquée sur l'emballage de votre DD, c'est normal, la remote retourne les valeurs 'reeles' et non les octets 'informatique'. (cf google pour plus d'infos).


 Historique

04 novembre 2006 17:54:17 :
- Tous les calculs sont implentés directement dans le retour. (Suppression des variables globales) - Les variables globales pour le type de disque passent en locales. - Regroupement des conditions pour vérifier la présence du volume. - Pour bientôt, un p'tit ajout pour permettre d'avoir les infos sur salon (tjrs avec le '.state *:'), et aussi de les avoir en echo avec un '/state *:'.
04 novembre 2006 18:01:16 :
- Suppression de la var qui donnait le type de volume.
04 novembre 2006 18:31:08 :
- (Encore une ..) - Changement des conditions 'if ($2- == $null)' en '(!$2-)' (C'est mieux pour les yeux ...)
16 mars 2008 01:39:13 :
P'tite MàJ par rapport aux remarques :)

 Sources du même auteur

Source avec une capture STATISTIQUES DISQUE(S) DUR(S)
LISTE DES RAWS QUE J'AI TROUVÉ
WHOIS EN RAWS SIMPLE ET CLAIR

 Sources de la même categorie

AVOIR UNE LISTE D'UTILISATEUR EN COULEURS SELON LEURS SEXE P... par WorldDMT
COMMANDES FANTAISIES ( OP DEOP , VOICE DEVOICE ) ORIGINALES par Orona
Source avec Zip Source avec une capture CORRECTEUR par Orona
Source avec Zip Source avec une capture [DLL] DESSINER COMME LES PICWINS SUR UNE DIALOGBOX (BONUS: J... par uaip
Source avec Zip Source avec une capture [DLL] AJOUT D'UN CONTRÔLE RICHEDIT SCINTILLA SUR LES DIALOG... par uaip

 Sources en rapport avec celle ci

Source avec une capture STATISTIQUES DISQUE(S) DUR(S) par Nort0n
Source avec Zip Source avec une capture WORLDDMT - DETECTEUR DE PSEUDOS ET DE CLONES + AFFICHEUR DE ... par WorldDMT
Source avec Zip Source avec une capture WORLDDMT - STATISTIQUE V 1.0 par WorldDMT
Source avec Zip Source avec une capture WORLDDMT - INFOS DES CANAUX V 1.1 par WorldDMT
Source avec Zip Source avec une capture WORLDDMT FUN WBAR V 1.0 - ADDON POUR BOT FUN par WorldDMT

Commentaires et avis

Commentaire de RCA ArKanis le 21/04/2006 00:14:37

tu utilises beaucoup trop de variables à mon goût :x

pense aux variables locales ! (/var)

tu n'en as même pas besoin, remplace dans tous tes timers la valeur d'origine des variables
ex :
.timer 1 3 msg $chan 1Type de disque :14 $iif($disk($$2).type == fixed,Interne,Externe) $+ 1
...
.timer 1 8 msg $chan 1Le volume est donc rempli à14 $round($calc(100 - %per.free.s),2)  $+ % $+ 1.
(tu peux utiliser %per.free.s vu que tu l'utilises 2x, pareil avec %free.space)


if ( $2- == $null )
ici, tu peux utiliser if (!$2-), car de toute façon, volume $false ou 0, ça te retournera une erreur à un moment ...

T'aurais pu faire dire des lignes plus longues à mon avis. Comme tu l'as fait, ça flood un peu trop.

Point de vue intérêt : ça dépend des personnes. Moi, ça me branche pas trop mais bon, ...

Commentaire de Nort0n le 21/04/2006 01:51:45

Merci de ta remarque. Tu as parfaitement raison, j'aurais pu faire plus court. Quant aux variables, j'les avais surtout utiliser pour eviter de poser les calcules directement dans les msg (c'est inutile, j'te l'accorde, c'est pour mieux decortiquer la remote).
Pour les locales, j't'avoue que j'les utilises TRES rarement (c'est peut-être un tort -_-)
Niveau interet, j'en vois pas reelement non plus, mais c'était pour un ami, et avoir des stats fiables assez rapidement.
Et pour conclure, pour le if ( $2- == $null ) a la place du (!$2-), c'est une vieille habitude que j'ai prise, ça m'fait tapoter plus de code, mais j'ai tjrs fais comme ça. (Qui a dit que j'etais feignant ? ;p)

Commentaire de wims le 21/04/2006 12:49:43

Tout a ete dis par Arkanis sauf deux trucs :)

if ( $disk($$2).size == $null ) { .timer 1 2 msg $chan 1[14Analyse1]14 Ce volume n'est pas supporté par votre ordinateur, ou n'est pas présent ! | halt }
if ( $disk($$2).size == 0 ) { .timer 1 2 msg $chan 1[14Analyse1]14 Ce volume n'est pas supporté par votre ordinateur, ou n'est pas présent ! | halt }

Tu peux regrouper ca en une seul condition :

if (!$disk($$2)) { .timer 1 2 msg $chan 1[14Analyse1]14 Ce volume n'est pas supporté par votre ordinateur, ou n'est pas présent ! | halt }

Et :
if ( %type.disk == fixed ) { set %trans.type Interne }
if ( %type.disk != fixed ) { set %trans.type Externe }

par

set %trans.type $iif(%type.disk == fixed,Interne,Externe)

Sinon :

Pour les locales, j't'avoue que j'les utilises TRES rarement (c'est peut-être un tort -_-)

oui :)

Commentaire de wims le 21/04/2006 12:50:18

Tout a ete dis par Arkanis sauf deux trucs :)

if ( $disk($$2).size == $null ) { .timer 1 2 msg $chan 1[14Analyse1]14 Ce volume n'est pas supporté par votre ordinateur, ou n'est pas présent ! | halt }
if ( $disk($$2).size == 0 ) { .timer 1 2 msg $chan 1[14Analyse1]14 Ce volume n'est pas supporté par votre ordinateur, ou n'est pas présent ! | halt }

Tu peux regrouper ca en une seul condition :

if (!$disk($$2)) { .timer 1 2 msg $chan 1[14Analyse1]14 Ce volume n'est pas supporté par votre ordinateur, ou n'est pas présent ! | halt }

Et :
if ( %type.disk == fixed ) { set %trans.type Interne }
if ( %type.disk != fixed ) { set %trans.type Externe }

par

set %trans.type $iif(%type.disk == fixed,Interne,Externe)

Sinon :

Pour les locales, j't'avoue que j'les utilises TRES rarement (c'est peut-être un tort -_-)

oui :)

Commentaire de wims le 21/04/2006 12:50:55

Hum le site a buguer dsl du double post :)

Commentaire de GenerationNoNNoN le 19/06/2006 02:19:56

Tu set beaucoup trop de variables je pense, sinon sa pourrait être optimisé .

Commentaire de Nort0n le 04/11/2006 17:25:37

Bon aller, la source dort depuis quelques temps, et vu les commentaires, j'vais me lancer dans une p'tite optimisation/Mise à Jour du code.

Merci pour vos comments, j'espère avoir quelques nouvelles quand la remote sera up ^^

Commentaire de RCA ArKanis le 04/11/2006 21:21:12

encore un truc qui choque ...

if ($chr(58) !isin $$2) { .timer 1 2 msg $chan 1[ Analyse ] Nom du volume invalide ! Veuillez respecter cette syntaxe :1 .state c: | halt }
tu /halt, donc tu ne verras pas le .state, mais ton timer va tout de même faire envoyer un message sur le salon. Tu ne ferais pas mieux de mettre un echo ?

sinon, vu que tu as mis if (!$2-) { ... halt }, tu n'as pas besoin de doubler le $ à la ligne suivante, et le $chr j'pense pas qu'il soit utile. Ca devient :
if (: !isin $2)

en fait, ce qu'il serait bien, c'est d'avoir :
if (!$2-) .timer 1 1 msg $chan ...
elseif (: !isin $2) .timer 1 1 msg $chan ...
else {
  etc ....
}

sinon le else n'a aucun intérêt vu que tu /halt

Commentaire de PaTaTe le 21/02/2007 16:24:02

Y a t-il moyen de detecter tous disque durs en vigueur sur la machine et d'additionner le tout ?

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Information sur la commande $disk [ par dklice ] Allo jaimerai savoir commen on fait pour transformer le format que cette commande nous donneEx: la commande $disk(c:).free repond un tas de chiffres e Help :) [ par jujuquatre ] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~JuJuQuArTrE s^ s^ s^ JuJu_BoT WWW.ut2004.fr.st~~~~~~~~~~~~~~~~~~~~~~~~~~~~Ben voila J'ai commencer un addon de auto-mode ( addon get + queue = ban du serv [ par Illuvatar ] Est ce kkun soré faire un code du style 1 get + 1 queue = ban du fserv ?Merci d'avance [/purple] Noldor, blood is on your hands. You're banned, a tear Addon Recuperation de gline et suppression auto [ par motherboy ] Bonjour,Ne connaissant pas trop le language de script mirc, j'viens par ce forum demander a un extreme codeur mirc de bien vouloir m'aider.En gros je Information dans un fichier ini ou txt [ par Zioa ] Bonjour,j'aurait voulu savoir comment je peut stocker des information dans un fichier ini ou txt puis apret recuperait les info que j'ai mis dedans Me Bot qui fait des statistique d'un chan [ par Elnath ] Bonjour, j'aimerais savoir si quelqu'un pourrais me faire, ou me trouver un bot qui permet de faire des statistique d'un chan ( nombre moyen de person Information shell pas cher [ par talking ] Voilà j'aimerai savoir si vous connaissez un site ou on peux dl un shell pas trop cher entre 2 et 4 euros par moiMerci +o directement sur le canal [ par rompell ] Salut :)Je cherche depuis 2 jours un addon pour faire +o ou simplement op, deop, voice... directement sur le canal. Style on dis DEOP sur le canal et et le multicolor ????? [ par duchemolle ] Bonjours a tous ! je suis un nouveau membre et nb dans le scripting .Et j aimerais si possible que quelqu'un fasse une ecriture alternée multicouleure bot ou addon badchan [ par HAAGEN ] Bonjour je voudrais savoir si il existe un addon badchan a rajouté a mon cservice ou un bot en mirc et non eggdrop ' je m'explique le robot fait un wh


Nos sponsors


Sondage...

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,154 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales