Info serv v1.1

Soyez le premier à donner votre avis sur cette source.

Vue 3 750 fois - Téléchargée 152 fois

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 )

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
65
Date d'inscription
mardi 9 novembre 2004
Statut
Membre
Dernière intervention
1 décembre 2007

Je trouve que sa ressemble a ratam-script il y a un menu fait exactement pareil !!
Messages postés
37
Date d'inscription
dimanche 13 février 2005
Statut
Membre
Dernière intervention
15 février 2006

Merci SornDixer pour l'alias pour le disque dur :)
Messages postés
879
Date d'inscription
vendredi 22 octobre 2004
Statut
Membre
Dernière intervention
29 juin 2007

c'est les lecteurs CDs ... Donc ça marche pas ce truc
Messages postés
1052
Date d'inscription
samedi 10 juillet 2004
Statut
Membre
Dernière intervention
30 novembre 2009
2
//echo -a $disk(0)
me donne 4
alors que j'ai que deux lecteur ô_O
Messages postés
879
Date d'inscription
vendredi 22 octobre 2004
Statut
Membre
Dernière intervention
29 juin 2007

bah le nombre de disk c'est $disk(0) ...
Afficher les 23 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.