CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2012 02 10 01:54:19

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

INFOS SYSTÈME V1.0

Information sur la source

Note :

7,50 / 10

Catégorie :AddOns Niveau :Débutant Date de création :03/01/2004 Vu :4 300

Auteur : t0nt0n

Ecrire un message privé

Commentaire sur cette source (13)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

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

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
}

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

Sources du même auteur

ESPACE DISQUE DUR

RENVOI PUB PV & CHAN --&GT; POUR BOTS

Toutes les sources de t0nt0n

Sources de la même categorie

PACMAN MULTI-JOUEUR EN LIGNE par wims

PROXY&SOCKS SCANNER+LEECHER par independentt

GESTIONNAIRE DE HIGHLIGHT AVANCÉ AVEC IGNORE SALON OU PSEUDO par doob666

AUTOJOIN HTABLE MULTISERVER par doob666

TCL - AJOUT SUPPRESSION DE LOGS par Atok

Toutes les sources de la catégorie AddOns

Commentaires et avis

Commentaire de t0nt0n le 03/01/2004 20:34:10

Soyez pas trop... dur!
Même si c'est... nul!

Commentaire de Kolibot le 03/01/2004 20:45:27

Bon tutorial sur certaines fonctions de moo.dll

Commentaire de vesparo le 03/01/2004 20:52:29

nierk mci pr l'ip ;)

Commentaire de coca95 le 03/01/2004 21:13:57

sa va c bien
c pas moche koi .........

Commentaire de t0nt0n le 03/01/2004 21:34:31

De rien pour l'ip :)

Commentaire de ChAnG-Fu le 03/01/2004 22:33:32

Optimisation:
    dll dlls/mdx.dll SetColor infos 11,12,13,14,15,16,17,18,19 background $rgb(0,0,0)
    dll dlls/mdx.dll SetColor infos 11,12,13,14,15,16,17,18,19 textbg $rgb(0,0,0)
    dll dlls/mdx.dll SetColor infos 11,12,13,14,15,16,17,18,19 text $rgb(255,255,255)

7,5/10.

Commentaire de itello le 03/01/2004 22:34:27

Mettre mdx.dll en plus de moo.dll ... Inutile, et celà ressemble un peu à celle de Remi34.

Comme l'a dit kolibot, c'est un bon tutorial, donc dans la partie tutoriaux celà serait mieu, et, avec si possible des explication (;) en plus.

Bonne continuation, et que la force du scripting soit avec toi ;-)

Commentaire de t0nt0n le 03/01/2004 22:51:39

itello ok je vais faire ça,
ChAnG-Fu ==> J'ai essayer, ça ne marchais pas :s.
Je sais pas du tout pourquoi mais ça ne marchait pas! La haine :/.

Commentaire de Dark-Dragoon le 04/01/2004 14:49:34

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

Commentaire de Kerrigan le 10/01/2004 01:46:15

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 :))

Commentaire de GFACTION le 29/03/2004 23:06:49

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

Commentaire de Proutie66 le 24/05/2004 21:39:49

Non c pas la peine dexpliké , c toujours mieu quand c'est fait

Commentaire de XBELIALX le 21/06/2007 02:27:23

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 ;)

Ajouter un commentaire

Nos sponsors

Derniers Blogs

TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice

MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE ! par Vko

[FRAMEWORK 4] LES TASKS ET LE THREAD UI par fathi

WORKFLOW FOUNDATION 3 A UN PIED DANS LA TOMBE par JeremyJeanson

TECHDAYS PARIS 2012 : NOUVELLES TENDANCES DU POSTE DE TRAVAIL - BRING YOUR OWN PC par ROMELARD Fabrice

Forum

CONFLIT ENTRE BOTSERV ET CHANSERV ? par Nordicansa

RE : AIDE par Nico26000

RE : AIDE par WorldDMT

RE : AFFICHAGE DES JOIN/PART/QUIT DANS UNE FENêTRE à PART @JPQ ? par WorldDMT

AIDE par Nico26000

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Creation d-un site internet similaire a Meetic CDC Disponible
Budget : 8 000€
Integration E commerce d-une application graphique interactive
Budget : 4 000€
URGENT-Developpement d-un annuaire
Budget : 13 000€

Logiciels

Academy System (17.2.1.0)
ACADEMY SYSTEM (17.2.1.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System
Easy-Planning (1.0.0.1)
EASY-PLANNING (1.0.0.1)

Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ...

Cliquez pour télécharger Easy-Planning
COLLECTOR PLUS (3.00B)
COLLECTOR PLUS (3.00B)

COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par : - L...

Cliquez pour télécharger COLLECTOR PLUS
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)

PONAMEDIA TV DEVIENS HELLLOOO FLASH LA TV SUR VOTRE ORDINATEUR. Toute une plateforme Multi...

Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO
LettresFaciles 2011 (8.0.0.1)
LETTRESFACILES 2011 (8.0.0.1)

LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types. Son inte...

Cliquez pour télécharger LettresFaciles 2011