Infos système v1.0

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

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)