Infos systeme

Soyez le premier à donner votre avis sur cette source.

Vue 5 467 fois - Téléchargée 446 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
Messages postés
427
Date d'inscription
dimanche 6 juillet 2008
Statut
Membre
Dernière intervention
4 mai 2009

bonjour, sa veut die quoi $active , sa sert à quoi ? car moi j'en ai jamais entendu parler, merci de me répondre.
Messages postés
3
Date d'inscription
dimanche 25 septembre 2005
Statut
Membre
Dernière intervention
4 juin 2007

Dsl Pas $active mais plutot $chan :)
Messages postés
3
Date d'inscription
dimanche 25 septembre 2005
Statut
Membre
Dernière intervention
4 juin 2007

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
Messages postés
7
Date d'inscription
jeudi 28 octobre 2004
Statut
Membre
Dernière intervention
28 octobre 2004

alors mnt g enlevé gfxinfo de la remote mais ca m'affiche pas mon IP ni mon host ! comment faire ?
Messages postés
7
Date d'inscription
jeudi 28 octobre 2004
Statut
Membre
Dernière intervention
28 octobre 2004

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.