INFO PC EN DIALOG

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
}