begin process at 2010 03 22 00:31:34
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

AddOns

 > SCRIPT SETI@HOME POUR BOINC

SCRIPT SETI@HOME POUR BOINC


 Information sur la source

Note :
9,5 / 10 - par 2 personnes
9,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :AddOns Classé sous :seti, setihome, home, boinc Niveau :Débutant Date de création :21/12/2005 Date de mise à jour :24/12/2005 10:54:04 Vu / téléchargé :2 813 / 69

Auteur : MegaSmax

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

 Description

Voici un petit script pour afficher vos statistiques Seti@home avec Boinc. J'ai retrouvé une source modifiée du script de base de Boinc.dk car les liens sont morts sur leur site et sur celui de seti@home. Je l'ai remodifiée a ma facon. Fonctionne parfaitement si vous utiliser Boinc et uniquement Seti@home, resultat non garantie si vous etes sur d'autres projets.
Il suffit de load le seti.mrc et vous avez acces aux options en clic droit > Seti@home sur une fenetre irc.
Voici ce qu'il affiche:
- Statistiques:
.: Projet Boinc: SETI@home Progression: 55.12% Temps: 1h 31m Credits: 113.32 Credit moyen: 45.78 Equipe: N/A Nom: Max :.
- Statistiques avancées:
.: Progression: 65.7659 % Temps: 1h 50m Spike: -0.228408 Gaussian: 3.593720 Pulse: 0.935717 :.

Source

  • ; ––––––––––––––––––––––––––––––––––––––––––––––––
  • ; Seti@home mIRCstats by BOINC.dk
  • ; Global modifications by MegaMax - First modifications by Spike
  • ; Seti@home 4.18 - Boinc 5.2.13 - mIRC 6.16
  • ; ––––––––––––––––––––––––––––––––––––––––––––––––
  • on *:load: { if (!%f) set %path $sdir(C:,Emplacement du dossier Boinc) | echo Statistiques Seti@home Chargées }
  • menu channel,query {
  • .-
  • .Seti@home
  • ..Statistiques:seti
  • ..Statistiques avancées:setix
  • ..Infos CPU/OS:seticpu
  • .-
  • ..A Propos:about
  • ..Unload Seti mIRCstats:unload
  • }
  • alias hrs {
  • if ($1 isnum) {
  • return $+(,$int($calc($1 /3600)),,h) $+(,$right(0 $+ $int($calc($1% 3600/60)),2),,m)
  • }
  • else { return N/A }
  • }
  • alias path { return $+(%path,/client_state.xml) }
  • alias del { return $gettok($gettok($read($path,w,$+(*,$1,*)),-1,62),1,60) }
  • alias path2 { return $+(%path,/slots/0/state.sah) }
  • alias del2 { return $gettok($gettok($read($path2,w,$+(*,$1,*)),-1,62),1,60)
  • }
  • alias seti {
  • var %name = $del(<user_name> )
  • var %team = $del(<team_name> )
  • if (%team == /team_name) var %team = N/A
  • var %tc = $round($del(<user_total_credit> ),2)
  • var %ueacgc = $round($del(<user_expavg_credit> ),2)
  • var %projekt = $del(<project_name> )
  • var %pcid = $del(<hostid> )
  • var %progress = $calc($remove($del(<fraction_done> ),0.)/10000)
  • if ($left($gettok(%progress,2,46),-2) != $null) var %progressa = $gettok(%progress,1,46) $+ . $+ $left($gettok(%progress,2,46),-2) $+ %
  • else var %progressa = $gettok(%progress,1,46) $+ %
  • var %time = $hrs($del(<current_cpu_time> ))
  • msg $active .: Projet Boinc: %projekt Progression: %progressa Temps: %time Credits: %tc Credit moyen: %ueacgc Equipe: %team Nom: %name :.
  • }
  • alias setix {
  • var %pcid = $del(<hostid> )
  • var %progress = $calc($remove($del(<fraction_done> ),0.)/10000)
  • if ($left($gettok(%progress,2,46),-2) != $null) var %progressa = $gettok(%progress,1,46) $+ . $+ $left($gettok(%progress,2,46),-2) $+ %
  • else var %progressa = $gettok(%progress,1,46) $+ %
  • var %time = $hrs($del(<current_cpu_time> ))
  • %spike = $iif($del2(<bs_score>) != $null,$v1,N/A)
  • %gauss = $iif($del2(<bg_score>) != $null,$v1,N/A)
  • %pulse = $iif($del2(<bp_score>) != $null,$v1,N/A)
  • msg $active .: Progression: %progress % Temps: %time Spike: %spike Gaussian: %gauss Pulse: %pulse :.
  • }
  • alias seticpu {
  • var %cpus = $del(<p_ncpus> ))
  • var %cpumodel = $del(<p_model> )
  • var %osname = $del(<os_name> )
  • var %osversion = $del(<os_version> )
  • if (%cpus != 1) var %cpus = CPU's: %cpus $+ 
  • msg $active .: Boinc CPU/OS-Info - %cpus %cpumodel - %osname %osversion :.
  • }
  • alias about {
  • msg $active .: Seti@home mIRCstats by BOINC.dk - Modified by MegaMax - mIRC $version :.
  • }
  • alias unload {
  • echo Seti mIRCstats désinstallé
  • unload -rs seti.mrc
; ––––––––––––––––––––––––––––––––––––––––––––––––
; Seti@home mIRCstats by BOINC.dk
; Global modifications by MegaMax - First modifications by Spike
; Seti@home 4.18 - Boinc 5.2.13 - mIRC 6.16
; ––––––––––––––––––––––––––––––––––––––––––––––––

on *:load: { if (!%f) set %path $sdir(C:,Emplacement du dossier Boinc) | echo Statistiques Seti@home Chargées }
menu channel,query {
  .-
  .Seti@home
  ..Statistiques:seti
  ..Statistiques avancées:setix
  ..Infos CPU/OS:seticpu
  .-
  ..A Propos:about
  ..Unload Seti mIRCstats:unload
}
alias hrs {  
  if ($1 isnum)  {
    return $+(,$int($calc($1 /3600)),,h) $+(,$right(0 $+ $int($calc($1% 3600/60)),2),,m)  
  }
  else { return N/A }
}
alias path { return $+(%path,/client_state.xml) }
alias del { return $gettok($gettok($read($path,w,$+(*,$1,*)),-1,62),1,60) }
alias path2 { return $+(%path,/slots/0/state.sah) }
alias del2 { return $gettok($gettok($read($path2,w,$+(*,$1,*)),-1,62),1,60) 
}
alias seti {
  var %name = $del(<user_name> )
  var %team = $del(<team_name> )
  if (%team == /team_name) var %team = N/A
  var %tc = $round($del(<user_total_credit> ),2)
  var %ueacgc = $round($del(<user_expavg_credit> ),2)
  var %projekt = $del(<project_name> )
  var %pcid = $del(<hostid> )
  var %progress = $calc($remove($del(<fraction_done> ),0.)/10000)
  if ($left($gettok(%progress,2,46),-2) != $null) var %progressa = $gettok(%progress,1,46) $+ . $+ $left($gettok(%progress,2,46),-2) $+ %
  else var %progressa = $gettok(%progress,1,46) $+ %
  var %time = $hrs($del(<current_cpu_time> ))
  msg $active .: Projet Boinc: %projekt Progression: %progressa Temps: %time Credits: %tc Credit moyen: %ueacgc Equipe: %team Nom: %name :.
}
alias setix {
  var %pcid = $del(<hostid> )
  var %progress = $calc($remove($del(<fraction_done> ),0.)/10000)
  if ($left($gettok(%progress,2,46),-2) != $null) var %progressa = $gettok(%progress,1,46) $+ . $+ $left($gettok(%progress,2,46),-2) $+ %
  else var %progressa = $gettok(%progress,1,46) $+ %
  var %time = $hrs($del(<current_cpu_time> ))
  %spike = $iif($del2(<bs_score>) != $null,$v1,N/A)
  %gauss = $iif($del2(<bg_score>) != $null,$v1,N/A)
  %pulse = $iif($del2(<bp_score>) != $null,$v1,N/A)
  msg $active .: Progression: %progress % Temps: %time Spike: %spike Gaussian: %gauss Pulse: %pulse :.
}
alias seticpu {
  var %cpus = $del(<p_ncpus> ))
  var %cpumodel = $del(<p_model> )
  var %osname = $del(<os_name> )
  var %osversion = $del(<os_version> )
  if (%cpus != 1) var %cpus = CPU's: %cpus $+ 
  msg $active .: Boinc CPU/OS-Info - %cpus %cpumodel - %osname %osversion :.
}
alias about {
  msg $active .: Seti@home mIRCstats by BOINC.dk - Modified by MegaMax - mIRC $version :.
} 
alias unload {
  echo Seti mIRCstats désinstallé
  unload -rs seti.mrc


 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

23 décembre 2005 21:03:44 :
Mise a jour avec les remarques de RCA ArKanis et de COOLMAN002. Merci :)
24 décembre 2005 10:54:05 :
Encore une optimisation :) Merci COOLMAN002 :)

 Sources du même auteur

Source avec Zip Source avec une capture URL LOGGER

 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

Commentaires et avis

Commentaire de RCA ArKanis le 21/12/2005 13:35:25

var %cpus = $del(<p_ncpus> ))
  var %cpumodel = $del(<p_model> )
  var %osname = $del(<os_name> )
  var %osversion = $del(<os_version> )

le tout en une ligne : var %cpus = $del(<p_ncpus> )), %cpumodel = $del(<p_model> ), etc ...

alias del2 { return $gettok($gettok($read($path2,w,* $+ $1 $+ *),-1,62),1,60)
$+(*,$1,*), c'est quand même plus joli :p

mets certains aliases en local, non ?

pas testé, vu que j'ai pas seti@home :p

Commentaire de COOLMAN002 le 23/12/2005 08:45:50

Kolibot avait fait une remote qui permettait de voir les "mêmes" informations mais sur Folding@home.

   if ($del2(<bs_score> ) != $null) var %spike = $del2(<bs_score> )
    else var %spike = N/A

utilise $iif

Je ne possède pas Sti@home, donc je n'ai pas testé.

Commentaire de COOLMAN002 le 23/12/2005 22:02:59

$iif($del2(<bs_score> ) != $null, %spike = $del2(<bs_score> ), %spike = N/A)
$iif($del2(<bg_score> ) != $null, %gauss = $del2(<bg_score> ), %gauss = N/A)
$iif($del2(<bp_score> ) != $null, %pulse = $del2(<bp_score> ), %pulse = N/A)

tu peux encore optimiser :§

%spike = $iif($del2(<bs_score>) != $null,$v1,N/A)

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

mcafee viruscan home edition v7 fr - crack [ par eleger91 ] je recherche le patch RECAPI_crk.exe kon trouve un peu partout.. g essayé celui de SpideR datant du 30.01.2003 mais apparemment ce doit etre parce ke


Nos sponsors


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 : 0,796 sec (3)

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