begin process at 2010 03 22 14:54:45
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

AddOns

 > LAG MÈTRE V1.2 BÊTA

LAG MÈTRE V1.2 BÊTA


 Information sur la source

Note :
Aucune note
Catégorie :AddOns Classé sous :Lag, Ping, connexion, ctcp, server Niveau :Débutant Date de création :24/09/2007 Date de mise à jour :24/09/2007 22:32:08 Vu / téléchargé :3 080 / 32

Auteur : Temp_Area

Ecrire un message privé
Commentaire sur cette source (4)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
Voici un petit lag mètre que j'ai fait au début due à des problèmes de connexion afin de m'avertir quand le retour du ping ne revenait plus.

Je l'ai développé un peu plus et j'ai amélioré le design pour le partager aux autres.

Source

  • dialog lagm {
  • title "LagMètre"
  • size -1 -1 57 25
  • option dbu
  • box "", 1, 1 -1 30 14
  • icon 2, 32 2 11 11, lagm\blank.jpg
  • button "Quit", 3, 9 30 37 12, ok cancel
  • text "#LOAD#", 4, 3 4 26 8, center
  • edit "version 1.3 Bêta", 5, 1 14 55 10, read center
  • button "?", 6, 44 2 11 10, flat
  • }
  • dialog lagm.apropos {
  • title "A propos - Lag mètre"
  • size -1 -1 174 122
  • option dbu
  • icon 1, 2 2 73 43, lagm\lag.png, 0, noborder
  • button "Ok", 2, 160 108 12 12, ok cancel
  • text "Version 1.3 Bêta", 3, 21 46 53 8, right
  • text "Codeur : TempArea", 4, 77 4 48 8
  • text "Contact :", 5, 77 12 23 8
  • link "mailto:TempArea@gmail.com", 6, 100 12 72 8
  • text "Ce script a été créé entièrement par l'auteur et non copié, merci de respecter le code source.", 7, 80 23 91 22, center
  • text "Légende : ", 8, 2 55 25 8
  • icon 9, 2 65 10 10, lagm\warn.png, 0
  • text "Le script ne reçois plus de retour après 3sec. (Ping TimeOut)", 10, 15 67 157 8
  • icon 11, 2 77 10 10, lagm\arrow_up.jpg, 0
  • icon 12, 2 89 10 10, lagm\arrow_down.jpg, 0
  • text "Envoie de la requête PING", 13, 15 78 157 8
  • text "Réception de la requête PING", 14, 15 90 141 8
  • text "Merci à TeXoR pour les tests de Ping TimeOut", 15, 5 109 109 8, right
  • box "Spécial Thanks :)", 16, 2 101 114 19
  • }
  • Alias Lag.Init {
  • unset %lagm*
  • if (!$dialog(lagm)) { dialog -m lagm lagm }
  • did -g lagm 2 lagm\blank.jpg
  • set %lagm.connect on
  • set %lagm.server $server
  • .timerlagm 0 3 .lagm
  • lagm
  • }
  • On *:CONNECT:lag.init
  • On *:DISCONNECT:{
  • if ($server == %lagm.server) { unset %lagm* | .timerlagm* off | did -g lagm 2 lagm\err.jpg | did -r lagm 4 }
  • }
  • Alias Lagm {
  • if (%lagm.send == 1) { set %lagm.warn 1 | did -g lagm 2 lagm\warn.png }
  • else { set %lagm.ticks $dll(lagm\game_tools.dll,ticks,.) | .ctcp $me LAGM %lagm.ticks | lag.up | set %lagm.send 1 | .timerlagm.timeout 1 300 lagm }
  • }
  • Alias Lag.Up { did -g lagm 2 lagm\arrow_up.jpg | .timerlagmsend -m 1 500 $iif(arrow_up isin $did(lagm,2), .did -g lagm 2 lagm\blank.jpg) }
  • Alias Lag.Down { did -g lagm 2 lagm\arrow_down.jpg | .timerlagmget -m 1 500 $iif(arrow_down isin $did(lagm,2), .did -g lagm 2 lagm\blank.jpg) }
  • Ctcp *:LAGM:*:{
  • if (%lagm.send == 1) { unset %lagm.send | lag.down }
  • if ($len($calc($dll(lagm\game_tools.dll,ticks,.) - $2)) > 3) { set %lagm.result $calc(($dll(lagm\game_tools.dll,ticks,.) - $2) / 1000) $+ s }
  • if ($len($calc($dll(lagm\game_tools.dll,ticks,.) - $2)) < 4) { set %lagm.result $calc($dll(lagm\game_tools.dll,ticks,.) - $2) $+ ms }
  • did -ar lagm 4 %lagm.result
  • if ($did(lagm,5) != $ip ) { did -ar lagm 5 $ip }
  • lag.down
  • if ($timer(lagm.timeout)) { .timerlagm.timeout off }
  • halt
  • }
  • On *:DIALOG:lagm:sclick:6:dialog -m lagm.apropos lagm.apropos
dialog lagm {
  title "LagMètre"
  size -1 -1 57 25
  option dbu
  box "", 1, 1 -1 30 14
  icon 2, 32 2 11 11, lagm\blank.jpg
  button "Quit", 3, 9 30 37 12, ok cancel
  text "#LOAD#", 4, 3 4 26 8, center
  edit "version 1.3 Bêta", 5, 1 14 55 10, read center
  button "?", 6, 44 2 11 10, flat
}

dialog lagm.apropos {
  title "A propos - Lag mètre"
  size -1 -1 174 122
  option dbu
  icon 1, 2 2 73 43, lagm\lag.png, 0, noborder
  button "Ok", 2, 160 108 12 12, ok cancel
  text "Version 1.3 Bêta", 3, 21 46 53 8, right
  text "Codeur : TempArea", 4, 77 4 48 8
  text "Contact :", 5, 77 12 23 8
  link "mailto:TempArea@gmail.com", 6, 100 12 72 8
  text "Ce script a été créé entièrement par l'auteur et non copié, merci de respecter le code source.", 7, 80 23 91 22, center
  text "Légende : ", 8, 2 55 25 8
  icon 9, 2 65 10 10, lagm\warn.png, 0
  text "Le script ne reçois plus de retour après 3sec. (Ping TimeOut)", 10, 15 67 157 8
  icon 11, 2 77 10 10, lagm\arrow_up.jpg, 0
  icon 12, 2 89 10 10, lagm\arrow_down.jpg, 0
  text "Envoie de la requête PING", 13, 15 78 157 8
  text "Réception de la requête PING", 14, 15 90 141 8
  text "Merci à TeXoR pour les tests de Ping TimeOut", 15, 5 109 109 8, right
  box "Spécial Thanks :)", 16, 2 101 114 19
}

Alias Lag.Init {
  unset %lagm*
  if (!$dialog(lagm)) { dialog -m lagm lagm }
  did -g lagm 2 lagm\blank.jpg
  set %lagm.connect on
  set %lagm.server $server
  .timerlagm 0 3 .lagm
  lagm
}

On *:CONNECT:lag.init
On *:DISCONNECT:{ 
  if ($server == %lagm.server) { unset %lagm* | .timerlagm* off | did -g lagm 2 lagm\err.jpg | did -r lagm 4 }
}

Alias Lagm {
  if (%lagm.send == 1) { set %lagm.warn 1 | did -g lagm 2 lagm\warn.png }
  else { set %lagm.ticks $dll(lagm\game_tools.dll,ticks,.) | .ctcp $me LAGM %lagm.ticks | lag.up | set %lagm.send 1 | .timerlagm.timeout 1 300 lagm } 
}

Alias Lag.Up { did -g lagm 2 lagm\arrow_up.jpg | .timerlagmsend -m 1 500 $iif(arrow_up isin $did(lagm,2), .did -g lagm 2 lagm\blank.jpg) }
Alias Lag.Down { did -g lagm 2 lagm\arrow_down.jpg | .timerlagmget -m 1 500 $iif(arrow_down isin $did(lagm,2), .did -g lagm 2 lagm\blank.jpg) }

Ctcp *:LAGM:*:{
  if (%lagm.send == 1) { unset %lagm.send | lag.down }
  if ($len($calc($dll(lagm\game_tools.dll,ticks,.) - $2)) > 3) { set %lagm.result $calc(($dll(lagm\game_tools.dll,ticks,.) - $2) / 1000) $+ s }
  if ($len($calc($dll(lagm\game_tools.dll,ticks,.) - $2)) < 4) { set %lagm.result $calc($dll(lagm\game_tools.dll,ticks,.) - $2) $+ ms  }
  did -ar lagm 4 %lagm.result
  if ($did(lagm,5) != $ip ) { did -ar lagm 5 $ip }
  lag.down
  if ($timer(lagm.timeout)) { .timerlagm.timeout off }
  halt
}

On *:DIALOG:lagm:sclick:6:dialog -m lagm.apropos lagm.apropos

 Conclusion

Extraire le dossier "lagm" dans la racine de mIRC
- /load -rs lagm\lagm.txt
- Je n'ai pas mis de On Load, c'est /lag.init pour lancer le script ou redémarrer mIRC

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

24 septembre 2007 21:15:21 :
#################### #24.09.07# v1.2 Bêta #################### #[ADD] : Ajoute d'une sécurité en cas de déconnexion #[ADD] : Ajoute d'une image "Erreur" qui s'affiche si le lag mètre n'est pas connecté #[FIX] : Modification des images gif pour une compatibilité avec mIRC <= 6.1x #[FIX] : Optimisation du code #################### #23.09.07# v1.1 Bêta #################### #[FIX] : Correction de certain url local #[FIX] : Modification du système d'initialisation #[FIX] : Correction de l'affichage du lag #[FIX] : Il est possible de Copier/Coller l'adresse IP pendant un ping #[FIX] : Correction de bug d'Alias #[FIX] : Opitimisation du code #################### #23.09.07# v1.0 Bêta #################### # Création du lag mètre
24 septembre 2007 21:33:26 :
-
24 septembre 2007 22:32:08 :
#[ADD] : Ajoute de la dll game_tools.dll pour améliorer la précision (Merci ISoKa) #[ADD] : Support de plusieurs serveurs #[FIX] : Modification de certaine commande pour qu'elles devient invisible

 Sources du même auteur

Source avec Zip Source avec une capture IDENTIFICATION REFLEX

 Sources de la même categorie

TCL - AJOUT SUPPRESSION DE LOGS par Atok
BLACKLIST PSEUDOS/MASKS par usurpateur
Source avec une capture [XCHAT] ANTI KICK / AWAY C++ par GeroXXXX
JEU DU CODE par alanpersonproject
SERVEUR FTP par hisoka2501

 Sources en rapport avec celle ci

LAG EN ECHO, SANS BAR par extarsik
CONNEXION DES SERVEURS PROPOSÉE ET PERSONNALISÉ par XaDaZ
COMMANDE DE PING POUR BOT par minerbe
Source avec Zip Source avec une capture AUTO-CONNEXION/AUTO-JOIN MULTI-IDENT ET MULTI-SERVER COMPLET par doob666
AUTO CONNEXION par atlantisfr

Commentaires et avis

Commentaire de ISoKa le 24/09/2007 21:25:59

Bonjour,

un lagmetre on en a deja vu pas mal mais bon pk pas. tu devrais mettre le code sur la page pck dld le zip pour mater c lourd surtout qu'il est pas trés long. Pour ce qui est du code bin rien de spé en meme temps comme le code est court pas grand chose à décortiker. toutefois le codage est propre je trouve.
par contre vu qu'on cherche vraiment de la précision dans un lagmetre peut etre que l'appel d'une dll serai plus à propo plutot que $ticks ki est pas forcement super précis http://picwin.scriptsdb.org/comments.php?id=23 de plus pense à unset les var ke tu utilises.
Le point que j'aime bien c'est que ton truc est relativement bien présenté nivo dialog c agréable à l'oeil.Mais pense tout de meme à develloper un peu ca pck ca peche un peu par manke d'originalité.

Commentaire de Temp_Area le 24/09/2007 21:41:02

"un lagmetre on en a deja vu pas mal mais bon pk pas"
Je n'en trouvais pas des comme je voulais ^^ Je suis difficile

Le dll est bizard, je passe de 15ms à 24ms, c'est possible ? Si c'est vrai en effet c'est pas très précis les $ticks ^^ Je le rajouterai dans la prochaine version.

Les var se unset à chaque démarrage ou déconnexion du script. Je ne voyais pas trop l'utiliter d'unset des vars qui change toutes les 3sec.

"Mais pense tout de meme à develloper un peu ca pck ca peche un peu par manke d'originalité."
Comment sa ? :/ Mon but est justement de faire une dialog compacte et discrèt ^^ J'aimerai bien la transformer en barre mais c'est inutil de se lancer avec des dll dans tout les coins ^^

Commentaire de wims le 25/09/2007 19:50:55

Comme dis plus haut, poster une bars de lag n'est pas des plus original, qui plus est en dialog... mais bon cependant, c'est plutot bien fait (d'après le screen).
Bon ça peut paraitre con a dire mais le faire en picwin aurait été mille fois mieux, tu évites ainsi les icone, et tu utilise s les couleurs pour exprimé l'intensité du lag.Je ne vois pas le rapport avec l'ip.Ce n'est pas assez configurable, on ne peut choisir le temps de rafraichissement du lag, et avoir un dialog comme ça en plein milieu tout le temps, c'est pas top non plus, quitte a utilisé une dll, docké le dialog serait pas une mauvaise chose.

Et quant a l'utilisation de la dll gametool pour avoir un ticks plus précis, c'est vraiment pas utile je crois, la dll ne renvois qu'une valeur plus précise, donc au lieu d'avoir 150,3 ms de lag, tu aura 150,2876 un truc dans le genre enfin bon, pas utile selon moi mais pas sur :)


Commentaire de KiNdErMaXi le 29/09/2007 16:34:31

Niveau fonctionnement :
Le timer se coupe pas quand on ferme le dialog, ce qui donne lieu à des "* /did: invalid parameters (line 55, lagm.txt)".
Et à mon avis, la fréquence de requête est trop rapide, j'ai peur que ça fasse ramer plutôt qu'autre chose.

Voilà :)

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Connexion list [ par DiGhan ] Problématique : J'ai une "list" que j'ai faites via "Viewlist" de MDX.Cette "list" est constituée de 2 "headertext".J'ai attribué à chaque "headertext Server Irc.mondial.fr [ par Floorfilla91 ] Bonjour,Je vient de faire un server irc.mondial.frpour sy rendre par mirc /server -m irc.powerserv35.net:7505 ou par les port 7506 7507 7508 7509.les Demande [ par alexandre9000 ] Bonjour, Je suis un petit nouveau, je suis a la recherche d'un server IRc simple d'utilisation. Je connais tres bien les commande. Je fais donc un app lag intempestif [ par Camanche ] Bonjour, je voudrais savoir pourquoi mon lag peut être de 0,118 secondes par exemple à un moment donné, et quelques temps plus tard de 30 secondes par Server irc.Telethon.fr [ par Floorfilla91 ] Bonjour,Ouvertur du server irc.Telethon.frCommande pour y accéder par mIRC /server -m irc.powerserv35.net:7603Site des applet java ~&gt; http://site.v sockudp aide svp :) [ par zeprex ] Bonjour a tous, sur le forum j'ai trouvé un code me permettant de scanner un ip cs et de m afficher- Le nom- Les joueurs ( slots/slots ) - ....J'aimer notice d'nvitation server [ par doob666 ] Peut-on ignorer les notice du server lors de l'nvitaton de quelqu'un sur un salon?ex : &lt;&lt; 21:22'14&gt;&gt; [Notice Chan] Notice de irc.XXXX.fr p executions des bonnes commandes selon le server [ par lebaronrouge ] hello ;o)Voila j'ai un ptit soucis et je ne sais trop comment faire, j'ai fait un gestionnaire chanserv pour gerer les access les fonctions des chans


Nos sponsors


Appels d'offres

Sondage...

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 23,931 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales