Info pc en dialog

Soyez le premier à donner votre avis sur cette source.

Vue 4 174 fois - Téléchargée 339 fois

Description

Voila c'est un info PC en dialog, ma premiere source postée ici :p soyez gentil avec moi ^^

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 :)

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
1804
Date d'inscription
mardi 15 juillet 2003
Statut
Membre
Dernière intervention
22 septembre 2009
4
oué faut voir...
le pb c'est pas la complexité en soi, mais le manque de doc en francais :) pi le fait que la prog objet ... perso ca me parle pas :) ca fait appel a des concepts que je maitrise pas :/ mais c intéressant
Messages postés
1726
Date d'inscription
vendredi 12 septembre 2003
Statut
Membre
Dernière intervention
13 juin 2009
1
ce n'est qu'un outil de plus pas plus compliqué que les regex ou les pictures windows,le seul truc lourd c'est qu'il faut looker chaque cmd qui est en rapport ek windows.
et à partir de là je me dmd si on pourrait pas intégrer un prog en c++ dans mirc avec les objets COM, style pour faire certaines boucles ça pourrait être intéressant à voir.
Messages postés
1804
Date d'inscription
mardi 15 juillet 2003
Statut
Membre
Dernière intervention
22 septembre 2009
4
idem que tofu
d'autant que moo est là pour çà, éviter de se faire chier a comprendre des appels compliqués d'objets COM :) et les dialogs, ca sert a ca ! eh oui ! a pas se faire chier a tout recréer a la main :) lol
laissez les gens débuter, bande de fous :)

Remarque anodine : Je dis pas que c'est pas joli ou fin hein le COM et les picwins... Perso je commence a tripotter un peu le WScript.Shell, je verrai si je peux faire un truc comme ca dans les prochains jours. Au passage, ca va ptetre vous étonner, mais cherchez des sources originales en COM (hors celles de dj328i, qui semble avoir une pratique a part) : la plupart des aliases mirc utilisant COM dispo sur des sites francophones sont de bêtes traductions de routines codées en VBScript dispo sur msdn.microsoft.com. Pas pour dévaloriser le boulot des auteurs, mais ya pas forcément de quoi s'émerveiller tt le temps :)
Messages postés
6
Date d'inscription
samedi 26 juin 2004
Statut
Membre
Dernière intervention
13 février 2005

ok, merci de vos conseils je vais essayer d'ameliorer ca quand j'aurais le temps :)
Messages postés
1726
Date d'inscription
vendredi 12 septembre 2003
Statut
Membre
Dernière intervention
13 juin 2009
1
vous lui parlez d'objects COM et de pictures windows alors qu'il débute.. npk.. c'est pas mal pour un début dans le monde du scripting, par contre niveau design essayes de faire en sorte d'éviter les espaces vides, bouttons de différentes tailles etc. si tu as besoin d'aide et/ou de conseils hésites pas. à+
Afficher les 11 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.