Infos systeme

5/5 (25 avis)

Vue 5 602 fois - Téléchargée 470 fois

Description

Comme le dit le titre, c'est un info systeme que j'ai réalisé avec l'aide de Sorn_Drixer et DrAgOoN1.
Il permet de connaître quelques informations sur votre ordinateur :)

Source / Exemple :


menu * {
 Infos Systeme:dialog -m infos infos
}

dialog infos {
  title "InFoS SySTeMe by Re[M]i_34"
  size -1 -1 195 164
  option dbu
  text "Voici quelques informations de votre PC :", 1, 38 6 108 8, center
  text "Votre IP :", 2, 5 19 34 8, center
  edit "", 3, 79 22 75 10, read autohs
  text "Votre Host :", 4, 5 32 34 8, center
  edit "", 5, 79 34 75 10, read autohs
  text "Votre Os :", 6, 5 45 34 8, center
  edit "", 7, 79 46 75 10, read autohs
  text "Votre Uptime :", 8, 5 58 37 8, center
  edit "", 9, 79 57 75 10, read autohs
  text "Résolution de votre Carte :", 10, 5 71 71 8, center
  edit "", 11, 79 69 75 10, read autohs
  text "Info CPU :", 12, 5 84 34 8, center
  edit "", 13, 79 81 75 10, read autohs
  text "Votre connection :", 14, 5 97 49 8, center
  edit "", 15, 79 93 75 10, read autohs
  text "Votre RAM :", 16, 5 108 37 8, center
  edit "", 17, 79 105 75 10, read autohs
  button "Dire", 18, 154 22 28 10, flat
  button "Dire", 19, 154 34 28 10, flat
  button "Dire", 20, 154 46 28 10, flat
  button "Dire", 21, 154 57 28 10, flat
  button "Dire", 22, 154 69 28 10, flat
  button "Dire", 23, 154 81 28 10, flat
  button "Dire", 24, 154 93 28 10, flat
  button "Dire", 25, 154 105 28 10, flat
  button "Tout dire", 26, 13 134 167 12, flat
  button "Fermer", 27, 13 148 167 12, flat ok
  text "Espace Disque", 28, 5 119 44 8
  edit "", 29, 79 117 75 10, read autohs
  button "Dire", 30, 154 117 28 10, flat
}

on 1:dialog:infos:init:*: {
  did -ra infos 3 $ip
  did -ra infos 5 $host
  did -ra infos 7 $dll($mircdirmoo.dll,osinfo,_) 
  did -ra infos 9 $Duration($calc($ticks / 1000))
  did -ra infos 11 $dll($mircdirmoo.dll,gfxinfo,_) - $window(-1).w $+ x $+ $window(-1).h
  did -ra infos 13 $dll($mircdirmoo.dll,cpuinfo,_)
  did -ra infos 15 $dll($mircdirmoo.dll,connection,_)
  did -ra infos 17 $dll($mircdirmoo.dll,meminfo,_)
  did -ra infos 29 $round($calc(($disk(c:).size + $disk(d:).size + $disk(e:).size + $disk(f:).size) / 1024 / 1024 / 1024),2) Go au total - $round($calc(($disk(c:).free + $disk(d:).free + $disk(e:).free + $disk(f:).free) / 1024 / 1024 / 1024),2) $+ Go libres 

  dll mdx.dll SetMircVersion $version 
  dll mdx.dll MarkDialog infos 
  dll mdx.dll SetDialog infos bgcolor $rgb(2,10,10) 
  dll mdx.dll SetColor infos 3,5,7,9,11,13,15,17,29 background $rgb(0,0,0)
  dll mdx.dll SetColor infos 3,5,7,9,11,13,15,17,29 textbg $rgb(0,0,0) 
  dll mdx.dll SetColor infos 3,5,7,9,11,13,15,17,29 text $rgb(255,0,0)

  dll mdx.dll SetColor infos 1 background $rgb(0,0,0)
  dll mdx.dll SetColor infos 1 textbg $rgb(0,0,0)
  dll mdx.dll SetColor infos 1 text $rgb(255,255,0)

  dll mdx.dll SetColor infos 2,4,6,8,10,12,14,16,28 background $rgb(0,0,0) 
  dll mdx.dll SetColor infos 2,4,6,8,10,12,14,16,28 textbg $rgb(0,0,0)
  dll mdx.dll SetColor infos 2,4,6,8,10,12,14,16,28 text $rgb(255,255,255)

  dll mdx.dll SetColor infos 18,19,20,21,22,23,24,25,26,27,30 background $rgb(0,0,255)

}

alias ip { /msg $active 12Mon IP est $ip }

alias host { /msg $active 12Mon host est $host }

alias os { /msg $active 12J'utilise $dll($mircdirmoo.dll,osinfo,_) }

alias uptime { /msg $active 12Mon PC tourne depuis $duration($calc($ticks / 1000)) }

alias carte { /msg $active 12La carte video que j'utilise est une $dll(moo.dll,gfxinfo,_) avec une résolution de $window(-1).w x $window(-1).h }

alias cpu { /msg $active 12Mon CPU est un $dll($mircdirmoo.dll,cpuinfo,_) }

alias RAM { /msg $active 12Ma RAM est de: $dll($mircdirmoo.dll,meminfo,_) }

alias connection { /msg $active 12Ma connexion est : $dll($mircdirmoo.dll,connection,_) }

alias tout { /msg $active 12Mon Os: $dll($mircdirmoo.dll,osinfo,_) . 4Mon PC est en route depuis $duration($calc($ticks / 1000)) . 12J'ai Une Carte Graphique: $dll($mircdirmoo.dll,gfxinfo,_) avec une résolution de $window(-1).w x $window(-1).h 12. 4Mon CPU est un $dll($mircdirmoo.dll,cpuinfo,_) . 12Ma mémoire: $dll($mircdirmoo.dll,meminfo,_) . 4Ma connection $dll($mircdirmoo.dll,connection,_) 12Mon disque dur: $round($calc(($disk(c:).size + $disk(d:).size + $disk(e:).size + $disk(f:).size) / 1024 / 1024 / 1024),2) 4Go au total -12 $round($calc(($disk(c:).free + $disk(d:).free + $disk(e:).free + $disk(f:).free) / 1024 / 1024 / 1024),2) $+ Go libres }

alias dd { /msg $active 4Mon Disque Dur: $round($calc(($disk(c:).size + $disk(d:).size + $disk(e:).size + $disk(f:).size) / 1024 / 1024 / 1024),2) 12Go au total -4 $round($calc(($disk(c:).free + $disk(d:).free + $disk(e:).free + $disk(f:).free) / 1024 / 1024 / 1024),2) $+ Go libres }

on 1:dialog:infos:sclick:30: { dd }
on 1:dialog:infos:sclick:18: { ip }
on 1:dialog:infos:sclick:19: { host }
on 1:dialog:infos:sclick:20: { os }
on 1:dialog:infos:sclick:21: { uptime }
on 1:dialog:infos:sclick:22: { carte }
on 1:dialog:infos:sclick:23: { CPU }
on 1:dialog:infos:sclick:24: { connection }
on 1:dialog:infos:sclick:25: { RAM }
on 1:dialog:infos:sclick:26: { tout }

on *:dialog:infos:init:0:{
  dll mdx.dll SetMircVersion $version 
  dll mdx.dll MarkDialog infos 
  dll mdx.dll SetDialog infos bgcolor $rgb(2,10,10) 
  dll mdx.dll SetColor infos 3 background $rgb(0,0,0)
  dll mdx.dll SetColor infos 3 textbg $rgb(0,0,0) 
  dll mdx.dll SetColor infos 3 text $rgb(255,255,255)
  dll mdx.dll SetColor infos 2 background $rgb(255,0,0) 
  dll mdx.dll SetColor infos 2 textbg $rgb(255,0,0)
  dll mdx.dll SetColor infos 2 text $rgb(255,255,255)
}

On 1:load:{
  echo -a 4Infos Systeme Chargé !
  echo -a 4Cet add-on est réalisé par Re[M]i_34 avec l'aide de Sorn_Drixer et de DrAgOoN1
}
On 1:unload:{
  echo -a 4Infos Systeme Déchargé !
}

Conclusion :


Voilà, prévenez moi si il y a des bugs ou qqch comme ça :)
Merci.

PS: L'addon utilise moo.dll et mdx.dll, ils sont dans le zip. Il faut les dézipper dans le dossier racine de mIRC.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
griffondorr Messages postés 427 Date d'inscription dimanche 6 juillet 2008 Statut Membre Dernière intervention 4 mai 2009
6 juil. 2008 à 15:20
bonjour, sa veut die quoi $active , sa sert à quoi ? car moi j'en ai jamais entendu parler, merci de me répondre.
wexed Messages postés 3 Date d'inscription dimanche 25 septembre 2005 Statut Membre Dernière intervention 4 juin 2007
18 avril 2007 à 18:17
Dsl Pas $active mais plutot $chan :)
wexed Messages postés 3 Date d'inscription dimanche 25 septembre 2005 Statut Membre Dernière intervention 4 juin 2007
18 avril 2007 à 18:08
Ouais Simple & Facile Comme Utilisation ,
J'ai changer et rajouter quelque Utilisation pour le mettre a mon BOT
avec des commandes ex : !ram , !os , !hd , etc ....
rajoute ceci dans alias : /ram /msg $active 12Ma RAM est de: $dll($mircdirmoo.dll,meminfo,_)
Puis Dans Remote : on *:text:*:#: { if ($1 !ram) && ($2 $null) { /ram $chan } } . Je sais que il existe dautre facon ,
Mais je met ce que jai utiliser :)
mais tres beau code xD
djset Messages postés 7 Date d'inscription jeudi 28 octobre 2004 Statut Membre Dernière intervention 28 octobre 2004
8 janv. 2005 à 00:37
alors mnt g enlevé gfxinfo de la remote mais ca m'affiche pas mon IP ni mon host ! comment faire ?
djset Messages postés 7 Date d'inscription jeudi 28 octobre 2004 Statut Membre Dernière intervention 28 octobre 2004
8 janv. 2005 à 00:30
Pourquoi ca me marque ca ---> * $dll: Le sous-programme 'gfxinfo' n'existe pas. (ligne 89, info system)
???
Afficher les 25 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.