[..] Macro pour souris et modification d'un sleep
Posté : dim. 25 oct. 2015 10:52
par Anthony
Bonjour à tous,
Je cherche à corriger mon script pour que la valeur $Seconds dans mon while puisse être prise en compte dès qu'on change la durée dans le Tray mais aussi de bloquer le sleep tant que la souris ou le clavier est utilisé (activitée).
Ce script est pour le boulot car nous avons des sessions et messagerie qui se verrouillent à distance trop souvent.
Merci d'avance.
Je cherche à corriger mon script pour que la valeur $Seconds dans mon while puisse être prise en compte dès qu'on change la durée dans le Tray mais aussi de bloquer le sleep tant que la souris ou le clavier est utilisé (activitée).
Ce script est pour le boulot car nous avons des sessions et messagerie qui se verrouillent à distance trop souvent.
Merci d'avance.
► Afficher le texte
Code : Tout sélectionner
Opt("TrayOnEventMode",1)
Opt("TrayMenuMode",1)
Global $Seconds = 5
;~ Global $SelectedItem
$Time5Item = TrayCreateItem("5 secondes")
TrayItemSetOnEvent(-1,"ReadList")
$Time30Item = TrayCreateItem("30 secondes")
TrayItemSetOnEvent(-1,"ReadList")
$Time60Item = TrayCreateItem("1 minute")
TrayItemSetOnEvent(-1,"ReadList")
$Time300Item = TrayCreateItem("5 minutes")
TrayItemSetOnEvent(-1,"ReadList")
$Time900Item = TrayCreateItem("15 minutes")
TrayItemSetOnEvent(-1,"ReadList")
$Time1800Item = TrayCreateItem("30 minutes")
TrayItemSetOnEvent(-1,"ReadList")
$Time3600Item = TrayCreateItem("1 heure")
TrayItemSetOnEvent(-1,"ReadList")
$Time7200Item = TrayCreateItem("2 heures")
TrayItemSetOnEvent(-1,"ReadList")
$Time10800Item = TrayCreateItem("3 heures")
TrayItemSetOnEvent(-1,"ReadList")
$Time14400Item = TrayCreateItem("4 heures")
TrayItemSetOnEvent(-1,"ReadList")
$Time18000Item = TrayCreateItem("5 heures")
TrayItemSetOnEvent(-1,"ReadList")
$Time21600Item = TrayCreateItem("6 heures")
TrayItemSetOnEvent(-1,"ReadList")
$Time25200Item = TrayCreateItem("7 heures")
TrayItemSetOnEvent(-1,"ReadList")
$Time28800Item = TrayCreateItem("8 heures")
TrayItemSetOnEvent(-1,"ReadList")
$Time32400Item = TrayCreateItem("9 heures")
TrayItemSetOnEvent(-1,"ReadList")
$Time36000Item = TrayCreateItem("10 heures")
TrayItemSetOnEvent(-1,"ReadList")
TrayCreateItem("")
$AboutItem = TrayCreateItem("A propos")
TrayItemSetOnEvent(-1,"ReadList")
TrayCreateItem("")
$ExitItem = TrayCreateItem("Quitter")
TrayItemSetOnEvent(-1,"ReadList")
Func ReadList()
$SelectedItem = TrayItemGetText(@TRAY_ID)
If $SelectedItem="5 secondes" Then Global $Seconds = "5"
If $SelectedItem="30 secondes" Then Global $Seconds = "30"
If $SelectedItem="1 minute" Then Global $Seconds = "60"
If $SelectedItem="5 minutes" Then Global $Seconds = "300"
If $SelectedItem="5 minutes" Then Global $Seconds = "300"
If $SelectedItem="15 minutes" Then Global $Seconds = "900"
If $SelectedItem="30 minutes" Then Global $Seconds = "1800"
If $SelectedItem="1 heure" Then Global $Seconds = "3600"
If $SelectedItem="2 heures" Then Global $Seconds = "7200"
If $SelectedItem="3 heures" Then Global $Seconds = "10800"
If $SelectedItem="4 heures" Then Global $Seconds = "14400"
If $SelectedItem="5 heures" Then Global $Seconds = "18000"
If $SelectedItem="6 heures" Then Global $Seconds = "21600"
If $SelectedItem="7 heures" Then Global $Seconds = "25200"
If $SelectedItem="8 heures" Then Global $Seconds = "28800"
If $SelectedItem="9 heures" Then Global $Seconds = "32400"
If $SelectedItem="10 heures" Then Global $Seconds = "36000"
If $SelectedItem="Quitter" Then Exit
If $SelectedItem="A propos" Then Call("Time")
EndFunc
Func Time()
Local $sec, $min, $hr
$sec = Mod($Seconds, 60)
$min = Mod($Seconds / 60, 60)
$hr = Floor($Seconds / 60 ^ 2)
$Time = StringFormat("%02ih%02im%02isec", $hr, $min, $sec)
MsgBox(064,"Mouse Alive","Ma souris travaille toute les " & $Time & "." & @CRLF & "©2015")
EndFunc
While 1
$CurPos = MouseGetPos ( )
MouseMove ( $CurPos[0] + 10 , $CurPos[1] )
MouseMove ( $CurPos[0] , $CurPos[1] - 10 )
MouseMove ( $CurPos[0] , $CurPos[1] + 10 )
MouseMove ( $CurPos[0] - 10, $CurPos[1] )
MouseMove ( $CurPos[0] , $CurPos[1] )
Sleep($Seconds & "000")
WEnd