Info serv v1.1

Télécharger le projet
Commenter

Description

Ce code sert savoir quelque information sur votre pc et votre irc . ( Nouvel Version )

Source / Exemple : 


alias pinf { dialog -m persinf persinf }
dialog Persinf {
  title "Irc Info"
  size -1 -1 178 133
  option dbu
  box "Irc Info", 1, 1 1 172 128
  edit "Nick :", 2, 8 10 20 10, read
  edit "Host :", 3, 8 20 21 10, read
  edit "Ip :", 5, 8 31 16 10, read
  edit "Chan Open :", 6, 7 62 37 10, read
  edit "Network :", 7, 8 41 30 10, read
  edit "Query Open :", 8, 7 51 40 10, read
  edit "Topic Chan Actif :", 9, 7 72 48 10, read
  edit "Topic chan actif", 11, 60 72 104 22, read autohs multi hsbar
  edit "Chan Actif :", 10, 7 97 37 10, read
  edit "Nick", 4, 36 8 49 10, read autohs
  edit "Host", 12, 35 20 136 10, read autohs
  edit "Ip", 13, 35 31 99 10, read autohs
  edit "Network", 14, 41 41 99 10, read autohs
  edit "Querry Open", 15, 50 52 40 10, read autohs
  edit "Chan Open", 16, 48 62 40 10, read autohs
  edit "Chan Actif", 17, 49 97 40 10, read autohs
  button "Fermer", 18, 71 113 32 12 ,ok
}
on *:dialog:Persinf:init:0:{
  did -ra Persinf 4 $me
  did -ra Persinf 12 $host  
  did -ra Persinf 13 $ip
  did -ra Persinf 14 $network
  did -ra Persinf 15 $query(0)
  did -ra Persinf 16 $chan(0)
  did -ra Persinf 17 $active
  did -ra Persinf 11 $chan( $+ $active $+ ).topic
}
alias pci { dialog -m pcinf pcinf }
dialog Pcinf {
  title "Pc Info"
  size -1 -1 168 147
  option dbu
  box "Pc Info", 1, 2 1 163 142
  edit "Disque Dur :", 2, 8 9 37 10, read
  edit "Uptime :", 3, 8 25 26 10, read
  edit "Uptime Mirc :", 5, 8 41 38 10, read
  edit "Ram :", 6, 8 89 21 11, read
  edit "Os :", 7, 8 56 17 10, read
  edit "Resolution :", 8, 8 72 36 10, read
  edit "Conection :", 9, 7 106 35 10, read
  button "Fermer", 18, 65 127 32 12, ok
  edit "Edit", 4, 52 8 104 10, read autohs
  edit "Edit", 10, 52 23 104 10, read autohs
  edit "Edit", 11, 52 41 104 10, read autohs
  edit "Edit", 12, 51 56 104 10, read autohs
  edit "Edit", 13, 51 72 104 10, read autohs
  edit "Edit", 14, 52 89 104 9, read autohs
  edit "Edit", 15, 52 105 104 9, read autohs
}
on *:dialog:Pcinf:init:0:{
  did -ra pcinf 4 $disq.dur GO
  did -ra pcinf 10 $duration($calc($ticks / 1000))
  did -ra pcinf 11 $uptime(mirc,1)
  did -ra pcinf 12 $dll($mircdirmoo.dll,osinfo,_)
  did -ra pcinf 13 $window(-1).w $+ x $+ $window(-1).h
  did -ra pcinf 14 $dll($mircdirmoo.dll,meminfo,_)
  did -ra pcinf 15 $dll($mircdirmoo.dll,connection,_)
}
alias disq.dur {
  var %a = 97, %b
  while 122 > %a { inc %a | %b = $calc(%b + $disk($chr(%a)).size) }
  return $round($calc(%b / 1024^3),0)
}
dialog InfoSs {
  title "Info Serv v1.1"
  size -1 -1 107 77
  option dbu
  edit "Info Serv v1.1 By noss ( nossou )", 1, 9 2 88 10, read
  box "Info Serv", 2, 2 13 98 43
  button "Info-Irc", 3, 11 27 33 12
  button "Info-Pc", 4, 56 27 33 12
  button "Fermer", 5, 35 58 32 12, ok
}
on *:dialog:infoss:sclick:*:{
  if ($did == 3) { pinf }
  if ($did == 4) { pci }
}
alias infos { dialog -m infoss infoss }

Conclusion :

  • Taper /infos pour démarrez l'addon .
  • Il faut moo.dll ( Telechargement Disponible )
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (nossou13)