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

Ce site au démarrage

begin process at 2010 02 09 19:15:13

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 :3 724

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

BLACKLIST PSEUDOS/MASKS par usurpateur

[XCHAT] ANTI KICK / AWAY C++ par GeroXXXX

JEU DU CODE par alanpersonproject

SERVEUR FTP par hisoka2501

BANNIR LES AGES, LES HOMMES, LES FEMMES ET PSEUDO AVEC CHIFF... par cougar_du_havre

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 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice

TECHDAYS PARIS 2010 : DéPLOIEMENT DE NOUVELLES TECHNOLOGIES - RETOUR D'EXPéRIENCE PAR L'INFORMATIQUE DE MICROSOFT par ROMELARD Fabrice

TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010 par ROMELARD Fabrice

TECHDAYS PARIS 2010 : LA PLEINIèRE DU SECOND JOUR par ROMELARD Fabrice

VISUAL STUDIO 2010 AND .NET FRAMEWORK 4 RELEASE CANDIDATE NOW AVAILABLE par Matthieu MEZIL

Forum

RE : ON RAWMODE par WorldDMT

RE : PROBLEME AVEC UN QUIZZ par vincent67190

RE : PROBLèME FLAG IRCOP par WebiK

AVERTISSMENT ET KIKK par mouhcine951990

RE : PROBLèME FLAG IRCOP par Benjamin37

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

PLATEFORME SUR L ESOTERISME VOYANCE - sans charte graphique
Budget : 3 500€
Joomla 15 module paiement adaptation composant cuisine
Budget : 250€
Integrateur web dans template
Budget : 500€

Logiciels

DB-MAIN (9.1.0)
DB-MAIN (9.1.0)

DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal...

Cliquez pour télécharger DB-MAIN
Xilisoft DPG Convertisseur (5.1.37.0120)
XILISOFT DPG CONVERTISSEUR (5.1.37.0120)

Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé...

Cliquez pour télécharger Xilisoft DPG Convertisseur
GraphicsGale (2.01.01)
GRAPHICSGALE (2.01.01)

GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ...

Cliquez pour télécharger GraphicsGale
Architecte 3D (Platinum 2010)
ARCHITECTE 3D (PLATINUM 2010)

Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é...

Cliquez pour télécharger Architecte 3D
TeamViewer 5 (TeamViewer 5)
TEAMVIEWER 5 (TEAMVIEWER 5)

Dépanner un ami,expliquer une manipulation devient un jeu d'enfant. Prise en main d'un autre ord...

Cliquez pour télécharger TeamViewer 5