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.
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.