Infos système v1.0

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 287 fois - Téléchargée 28 fois

Contenu du snippet

Encore un "Infos Système"...
M'enfin, je me faisais chier, un pote en voulais un, je lui fait, et je le publi, on sait jamais :)
Il marche avec moo.dll + mdx.dll
Telecharger le fichier .zip complet à cette adresse:
http://membres.lycos.fr/crewd/infos.zip
@ bientôt

Source / Exemple :


menu * {
  Infos Système*:/dialog -m infos infos
}

dialog infos {
  title "Infos système*"
  size -1 -1 160 182
  option dbu
  text "Os:", 1, 5 5 11 8
  text "Ip:", 2, 5 20 15 8
  text "Cpu:", 3, 5 35 18 8
  text "Ram:", 4, 5 50 20 8
  text "Gfx:", 5, 5 65 15 8
  text "Uptime:", 6, 5 80 25 8
  text "Connection:", 7, 5 95 32 8
  text "Disques taille:", 9, 5 110 42 8
  text "Disques place libre:", 10, 5 125 50 8
  edit "Os", 11, 65 5 50 10, autohs
  edit "Ip", 12, 65 20 50 10, autohs
  edit "Cpu", 13, 65 35 50 10, autohs
  edit "Ram", 14, 65 50 50 10, autohs
  edit "Gfx", 15, 65 65 50 10, autohs
  edit "Uptime", 16, 65 80 50 10, autohs
  edit "Connection", 17, 65 95 50 10, autohs
  edit "Taille", 18, 65 110 50 10, autohs
  edit "Libre", 19, 65 125 50 10, autohs
  button "Dire", 20, 120 5 30 10
  button "Dire", 21, 120 35 30 10
  button "Dire", 22, 120 50 30 10
  button "Dire", 23, 120 65 30 10
  button "Dire", 24, 120 95 30 10
  button "Dire", 25, 120 125 30 10
  button "Dire", 26, 120 80 30 10
  button "Dire", 27, 120 110 30 10
  button "Dire", 28, 120 20 30 10
  button "Tout dire", 29, 33 150 37 12, flat
  button "Fermer", 30, 83 150 37 12, flat, ok
  text "by tonton*", 31, 65 170 41 8, disable
}

On *:dialog:infos:init:*:{
  dll dlls/mdx.dll SetMircVersion $version
  dll dlls/mdx.dll MarkDialog infos
  dll dlls/mdx.dll SetColor infos 11 background $rgb(0,0,0)
  dll dlls/mdx.dll SetColor infos 12 background $rgb(0,0,0)
  dll dlls/mdx.dll SetColor infos 13 background $rgb(0,0,0)
  dll dlls/mdx.dll SetColor infos 14 background $rgb(0,0,0)
  dll dlls/mdx.dll SetColor infos 15 background $rgb(0,0,0)
  dll dlls/mdx.dll SetColor infos 16 background $rgb(0,0,0)
  dll dlls/mdx.dll SetColor infos 17 background $rgb(0,0,0)
  dll dlls/mdx.dll SetColor infos 18 background $rgb(0,0,0)
  dll dlls/mdx.dll SetColor infos 19 background $rgb(0,0,0)
  dll dlls/mdx.dll SetColor infos 11 textbg $rgb(0,0,0)
  dll dlls/mdx.dll SetColor infos 12 textbg $rgb(0,0,0)
  dll dlls/mdx.dll SetColor infos 13 textbg $rgb(0,0,0)
  dll dlls/mdx.dll SetColor infos 14 textbg $rgb(0,0,0)
  dll dlls/mdx.dll SetColor infos 15 textbg $rgb(0,0,0)
  dll dlls/mdx.dll SetColor infos 16 textbg $rgb(0,0,0)
  dll dlls/mdx.dll SetColor infos 17 textbg $rgb(0,0,0)
  dll dlls/mdx.dll SetColor infos 18 textbg $rgb(0,0,0)
  dll dlls/mdx.dll SetColor infos 19 textbg $rgb(0,0,0)
  dll dlls/mdx.dll SetColor infos 11 text $rgb(255,255,255)
  dll dlls/mdx.dll SetColor infos 12 text $rgb(255,255,255)
  dll dlls/mdx.dll SetColor infos 13 text $rgb(255,255,255)
  dll dlls/mdx.dll SetColor infos 14 text $rgb(255,255,255)
  dll dlls/mdx.dll SetColor infos 15 text $rgb(255,255,255)
  dll dlls/mdx.dll SetColor infos 16 text $rgb(255,255,255)
  dll dlls/mdx.dll SetColor infos 17 text $rgb(255,255,255)
  dll dlls/mdx.dll SetColor infos 18 text $rgb(255,255,255)
  dll dlls/mdx.dll SetColor infos 19 text $rgb(255,255,255)
  did -ra infos 11 $dll(dlls/moo.dll,osinfo,_)
  did -ra infos 12 $ip
  did -ra infos 13 $dll(dlls/moo.dll,cpuinfo,_)
  did -ra infos 14 $dll(dlls/moo.dll,meminfo,_)
  did -ra infos 15 $dll(dlls/moo.dll,screeninfo,_)
  did -ra infos 16 $dll(dlls/moo.dll,uptime,_)
  did -ra infos 17 $dll(dlls/moo.dll,connection,_)
  did -ra infos 18 $round($calc(($disk(c:).size + $disk(d:).size + $disk(e:).size + $disk(f:).size) / 1024 / 1024 / 1024),2) Go au total
  did -ra infos 19 $round($calc(($disk(c:).free + $disk(d:).free + $disk(e:).free + $disk(f:).free) / 1024 / 1024 / 1024),2) Go libres
}

On *:dialog:infos:sclick:29:{
  /msg $active 4OS:14 $dll(dlls/moo.dll,osinfo,_) , 4CPU:14 $dll(dlls/moo.dll,cpuinfo,_) , 4RAM:14 $dll(dlls/moo.dll,meminfo,_) , 4RAM:14 $dll(dlls/moo.dll,meminfo,_) , 4GFX:14 $dll(dlls/moo.dll,screeninfo,_) , 4UPTIME:14 $dll(dlls/moo.dll,uptime,_) , 4CONNECTION:14 $dll(dlls/moo.dll,connection,_) , 4TAILLE DISQUE DUR:14 $round($calc(($disk(c:).size + $disk(d:).size + $disk(e:).size + $disk(f:).size) / 1024 / 1024 / 1024),2) Go au total , 4ESPACE LIBRE:14 $round($calc(($disk(c:).free + $disk(d:).free + $disk(e:).free + $disk(f:).free) / 1024 / 1024 / 1024),2) Go libres
}

On *:dialog:infos:sclick:20:{
  /msg $active 4OS:14 $dll(dlls/moo.dll,osinfo,_)
}

On *:dialog:infos:sclick:21:{
  /msg $active 4CPU:14 $dll(dlls/moo.dll,cpuinfo,_)
}

On *:dialog:infos:sclick:22:{
  /msg $active 4RAM:14 $dll(dlls/moo.dll,meminfo,_)
}

On *:dialog:infos:sclick:23:{
  /msg $active 4GFX:14 $dll(dlls/moo.dll,screeninfo,_)
}

On *:dialog:infos:sclick:24:{
  /msg $active 4CONNECTION:14 $dll(dlls/moo.dll,connection,_)
}

On *:dialog:infos:sclick:25:{
  /msg $active 4PLACE LIBRE:14 $round($calc(($disk(c:).free + $disk(d:).free + $disk(e:).free + $disk(f:).free) / 1024 / 1024 / 1024),2) Go libres
}

On *:dialog:infos:sclick:26:{
  /msg $active 4UPTIME:14 $dll(dlls/moo.dll,uptime,_)
}

On *:dialog:infos:sclick:27:{
  /msg $active 4TAILLE DISQUES DUR:14 $round($calc(($disk(c:).size + $disk(d:).size + $disk(e:).size + $disk(f:).size) / 1024 / 1024 / 1024),2) Go au total
}

On *:dialog:infos:sclick:28:{
  /msg $active 4IP:14 $ip
}

Conclusion :


Déziper dans votre répertoire mIRC, placé le dossier dlls dans le répertoire principal de mIRC, et loadez le fichier infos.mrc

A voir également

Ajouter un commentaire Commentaires
Messages postés
11
Date d'inscription
mardi 16 janvier 2007
Statut
Membre
Dernière intervention
16 juin 2007

bonsoir jsute pour vous dire que le code ce repete 2 x , quand tu clic touty dire ca saffiche en double héhéh jai regler le probleme e mon coter mais cetais que pour avertir ;)
Messages postés
141
Date d'inscription
samedi 19 octobre 2002
Statut
Membre
Dernière intervention
14 avril 2008

Non c pas la peine dexpliké , c toujours mieu quand c'est fait
Messages postés
199
Date d'inscription
lundi 19 mai 2003
Statut
Membre
Dernière intervention
7 avril 2005

c'est clair...
et en plus ça valait pas la peine de faire ça, suffit d'expliquer les fonctions de la dll et comment l'utiliser c'est tout car c'est très simple
Messages postés
708
Date d'inscription
lundi 15 juillet 2002
Statut
Membre
Dernière intervention
17 mars 2005

une while juste pour me faire plaisir ... t'as vu la longueur de ton code mdx ? en plus tu repete quinze fois la meme chose .... ralala c dingue les mec qui se prennent la tete avec c/c :))
Messages postés
228
Date d'inscription
mercredi 24 septembre 2003
Statut
Membre
Dernière intervention
26 octobre 2004

eu ......
c pas mal mais c vus et revu :)
par contre tu ne c pas utiliser mdx ? car le code de mdx est BOCOUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUPS trop long
alors fai comme chang-fu a dis :) optimise :)
7/10
Afficher les 13 commentaires

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.