1. Accueil
  2. Tous les snippets
  3. Snippets IRC
  4. Infos système v1.0

Infos système v1.0

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 509 fois - Téléchargée 30 fois

Commenter

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
XBELIALX Messages postés 11 Date d'inscription mardi 16 janvier 2007 Statut Membre Dernière intervention 16 juin 2007
21 juin 2007 à 02:27
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 ;)
Proutie66 Messages postés 141 Date d'inscription samedi 19 octobre 2002 Statut Membre Dernière intervention 14 avril 2008
24 mai 2004 à 21:39
Non c pas la peine dexpliké , c toujours mieu quand c'est fait
GFACTION Messages postés 199 Date d'inscription lundi 19 mai 2003 Statut Membre Dernière intervention 7 avril 2005
29 mars 2004 à 23:06
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
Kerrigan Messages postés 708 Date d'inscription lundi 15 juillet 2002 Statut Membre Dernière intervention 17 mars 2005
10 janv. 2004 à 01:46
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 :))
Dark-Dragoon Messages postés 228 Date d'inscription mercredi 24 septembre 2003 Statut Membre Dernière intervention 26 octobre 2004
4 janv. 2004 à 14:49
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
S'inscrire maintenant

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.

Du même auteur (t0nt0n)