1. Accueil
  2. IRC
  3. Sources IRC
  4. Sources AddOns
  5. Info serv v1.1

Info serv v1.1

Soyez le premier à donner votre avis sur cette source.

Vue 3 844 fois - Téléchargée 163 fois

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

Ajouter un commentaire Commentaires
MaX_62 Messages postés 879 Date d'inscription vendredi 22 octobre 2004 Statut Membre Dernière intervention 29 juin 2007
16 févr. 2005 à 14:30
Pourquoi mettre du texte dans des edits ? Utilises "text" tout simplement !

Sinon il y a quelques bugs : le nombre de serveurs ouverts est faux chez moi, le topic également, et je trouve ça assez inutile

(($disk(c:).free + $disk(d:).free + $disk(e:).free + $disk(f:).free)

si j'ai plus de disques durs ? si j'en ai moins ?
cs_SornDrixer Messages postés 2084 Date d'inscription jeudi 12 décembre 2002 Statut Membre Dernière intervention 30 janvier 2011 8
16 févr. 2005 à 14:50
http://www.ircfr.com/code.aspx?ID=29461

Appuie toi sur les sources semblables déjà postées pour améliorer la tienne.

Au passage, c'est étrange que ta source ainsi que l'autre vous calculez de la même façon l'espace disque total, en additionnant l'espace libre des volumes C,D,E et F (se qui est d'ailleur très très mal pensé)

Comme l'a dit MaX_62, si on a + de partion que ca ? Et si jamais on décide d'appeler nos partitions avec d'autre lettre que C,D,E, ou F ?
nossou13 Messages postés 37 Date d'inscription dimanche 13 février 2005 Statut Membre Dernière intervention 15 février 2006
16 févr. 2005 à 15:10
Ouai jlé pri sur une otre source ce calcul , car je ne sais pas comment fair pour dire l'espace du disque dur et se qui reste de celui ci . Si vus pouver m'aider ... sa seré gentil :) . Au faite quesse qui bug dans server et topic ? sa marche tré bien cher moi :s
cs_KiNdErMaXi Messages postés 1052 Date d'inscription samedi 10 juillet 2004 Statut Membre Dernière intervention 30 novembre 2009 2
16 févr. 2005 à 15:10
les edit ne sont pas aligner ca fait très laid :o/
nossou13 Messages postés 37 Date d'inscription dimanche 13 février 2005 Statut Membre Dernière intervention 15 février 2006
16 févr. 2005 à 15:13
bah g un prog :\ prochaine foi je le feré mieu juré xD
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)