Info pc en dialog
Description
Voila c'est un info PC en dialog, ma premiere source postée ici :p soyez gentil avec moi ^^
Mettre moo.dll et infopc.mrc dans le dossier de votre script, et tapez /load -rs infopc.mrc ensuite /infopc pour ouvrir :) Sinon j'ai brouillé l'ip et l'host car le screnn a pas ete fait chez moi, ne vous inquietez pas ca marche :p
voila :)
Source / Exemple :
dialog infopc3 {
title ".:: Infos Systéme ::."
size -1 -1 215 250
option dbu
text "Adresse IP :", 1, 15 135 58 9
edit "", 2, 75 135 85 10, read autohs
text "Host :", 3, 15 150 58 9
edit "", 4, 75 150 85 10, read autohs
text "Systeme d'exploitation :", 5, 15 60 58 9
edit "", 6, 75 60 85 10, read autohs
text "Processeur :", 7, 15 75 58 9
edit "", 8, 75 75 85 10, read autohs
text "RAM :", 9, 15 90 58 9
edit "", 10, 75 90 85 10, read autohs
text "Carte graphique :", 11, 16 15 58 9
edit "", 12, 75 15 85 10, read autohs
text "Résolution écran :", 13, 15 30 58 9
edit "", 14, 75 30 85 10, read autohs
text "Uptime PC :", 15, 15 195 58 9
edit "", 16, 75 195 85 10, read autohs
text "Connexion internet :", 17, 15 165 58 9
edit "", 18, 75 165 85 10, read autohs
button "d i r e", 19, 165 15 40 10, flat
button "d i r e", 22, 165 60 40 25, flat
button "d i r e", 24, 165 135 40 18, flat
text "Espace disque :", 26, 15 105 58 9
edit "", 27, 75 105 85 10, read autohs
button "Voir en echo", 29, 15 230 40 10
button "Dire tout", 30, 87 230 40 10
button "Fermer", 31, 160 230 40 10, ok
box "Infos écran", 20, 5 5 205 40
box "Infos PC", 21, 4 50 205 70
box "Infos internet", 23, 5 125 205 55
box "Infos uptime", 25, 6 185 205 40
text "Uptime script :", 32, 15 210 58 8
edit "", 33, 75 210 85 10, read autohs
button "e c h o", 34, 165 157 40 18, flat
button "e c h o", 35, 165 90 40 25, flat
button "e c h o", 36, 165 30 40 10, flat
button "e c h o", 37, 165 210 40 10, flat
button "d i r e", 38, 165 195 40 10, flat
}
on 1:dialog:infopc3:init:*: {
did -ra infopc3 2 $ip
did -ra infopc3 4 $host
did -ra infopc3 18 $dll($mircdirmoo.dll,connection,_)
did -ra infopc3 12 $dll($mircdirmoo.dll,gfxinfo,_)
did -ra infopc3 14 $window(-1).w $+ x $+ $window(-1).h
did -ra infopc3 6 $dll($mircdirmoo.dll,osinfo,_)
did -ra infopc3 16 $Duration($calc($ticks / 1000))
did -ra infopc3 8 $dll($mircdirmoo.dll,cpuinfo,_)
did -ra infopc3 10 $dll($mircdirmoo.dll,meminfo,_)
did -ra infopc3 27 $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
did -ra infopc3 33 $uptime(mirc,1)
}
alias direiphostci { /msg $active 14.:: 14[ 1IP 14/ 1Host 14/ 1Connexion internet 14] ::.1 IP :14 $ip 1Host :14 $host 1Conexion internet :14 $dll($mircdirmoo.dll,connection,_) }
alias echoiphostci { /echo -a 1¨¨14Infos PC1¨¨ 14.:: 14[ 1IP 14/ 1Host 14/ 1Connexion internet 14] ::.1 IP :14 $ip 1Host :14 $host 1Conexion internet :14 $dll($mircdirmoo.dll,connection,_) }
on 1:dialog:infopc3:sclick:34: { echoiphostci }
on 1:dialog:infopc3:sclick:24: { direiphostci }
alias direcartegr { /msg $active 14.:: 14[ 1Carte graphique 14/ 1Résolution 14] ::.1 Carte graphique :14 $dll($mircdirmoo.dll,gfxinfo,_) 1Résolution :14 $window(-1).w $+ x $+ $window(-1).h }
alias echocartegr { /echo -a 1¨¨14Infos PC1¨¨ 14.:: 14[ 1Carte graphique 14/ 1Résolution 14] ::.1 Carte graphique :14 $dll($mircdirmoo.dll,gfxinfo,_) 1Résolution :14 $window(-1).w $+ x $+ $window(-1).h }
on 1:dialog:infopc3:sclick:36: { echocartegr }
on 1:dialog:infopc3:sclick:19: { direcartegr }
alias direuptimepcscr { /msg $active 14.:: 14[ 1Uptime PC 14/ 1Uptime script 14] ::. 1Uptime PC :14 $Duration($calc($ticks / 1000)) 1Uptime script :14 $uptime(mirc,1) }
alias echouptimepcscr { /echo -a 1¨¨14Infos PC1¨¨ 14.:: 14[ 1Uptime PC 14/ 1Uptime script 14] ::. 1Uptime PC :14 $Duration($calc($ticks / 1000)) 1Uptime script :14 $uptime(mirc,1) }
on 1:dialog:infopc3:sclick:37: { echouptimepcscr }
on 1:dialog:infopc3:sclick:38: { direuptimepcscr }
alias direosproramdd { /msg $active 14.:: 14[ 1OS 14/ 1Processeur 14/ 1RAM 14/ 1DD 14] ::. 1OS :14 $dll($mircdirmoo.dll,osinfo,_) 1Proxesseur :14 $dll($mircdirmoo.dll,cpuinfo,_) 1RAM :14 $dll($mircdirmoo.dll,meminfo,_) 1DD :14 $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 }
alias echoosproramdd { /echo -a 1¨¨14Infos PC1¨¨ 14.:: 14[ 1OS 14/ 1Processeur 14/ 1RAM 14/ 1DD 14] ::. 1OS :14 $dll($mircdirmoo.dll,osinfo,_) 1Proxesseur :14 $dll($mircdirmoo.dll,cpuinfo,_) 1RAM :14 $dll($mircdirmoo.dll,meminfo,_) 1DD :14 $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 }
on 1:dialog:infopc3:sclick:35: { echoosproramdd }
on 1:dialog:infopc3:sclick:22: { direosproramdd }
alias diretoutinfopc3 { direiphostci | direcartegr | direuptimepcscr | direosproramdd | halt }
alias echotoutinfopc3 { echoiphostci | echocartegr | echouptimepcscr | echoosproramdd | halt }
on 1:dialog:infopc3:sclick:30: { diretoutinfopc3 }
on 1:dialog:infopc3:sclick:29: { echotoutinfopc3 }
alias infopc { dialog -m infopc3 infopc3 }
menu * {
Infos PC:dialog -m infopc3 infopc3
}
Conclusion :
Mettre moo.dll et infopc.mrc dans le dossier de votre script, et tapez /load -rs infopc.mrc ensuite /infopc pour ouvrir :) Sinon j'ai brouillé l'ip et l'host car le screnn a pas ete fait chez moi, ne vous inquietez pas ca marche :p
voila :)
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.