Toggle function for my Mouse Mover Script

[grossermanitu]

Hello everyone,
I'm using a mouseover script (found it in the forum and added a textbox) so that my laptop doesn't go into sleeping mode too fast (30 seconds and I'm alone in my home office).

I'm using this script that I activate by shortcut and it deactivates by click on the textbox. Is there a way to implement a toggle function, so that I don't have to search for the little textbox on my big screen? Currently, I don't know how to do that

Code: Select all

#NumpadMult:: ;Activate Screensaver delay
IfWinExist, %id%
  {
  WinActivate, %id%
  winWaitActive, %id%
  send, {return}
  }
Else

SetTimer, MM, 3000
MsgBox, 0,, Back to work? 
IfMsgBox OK
    SetTimer, MM, Off
return
 
MM:
If direction := !direction
MouseMove, 0, 200,, R
else
MouseMove, 0, -200,, R

return

[Rohwedder]

Hallo,
perhaps:

Code: Select all

#NumpadMult:: ;Activate Screensaver delay
IF MM ;Timer is active
{
	SoundBeep, 1000, 20
	SetTimer, MM, Off
	MM := False
	Return
}
IfWinExist, %id%
{
	WinActivate, %id%
	winWaitActive, %id%
	send, {return}
}
Else
{
	SoundBeep, 4000, 20
	SetTimer, MM, 3000
	MM := True
}
return
MM:
If direction := !direction
	MouseMove, 0, 200,, R
else
	MouseMove, 0, -200,, R
return

[grossermanitu]

Thanks Rohwedder. It works like charm.

Is it possible to integrate a message box that indicates that the Script is running and closes after pushed "ok" or the the toggle button?

[Rohwedder]

Then perhaps:

Code: Select all

#NumpadMult:: ;Activate Screensaver delay
IF MM ;Timer is active
{
	SetTimer, MM, Off
	MM := False
	Return
}
IfWinExist, %id%
{
	WinActivate, %id%
	winWaitActive, %id%
	send, {return}
}
Else
	SetTimer, MM, 100
	MM := True
Return
MM:
MsgBox, 0,, Back to work?, 3
IfMsgBox OK
	Goto, #NumpadMult
If direction := !direction
	MouseMove, 0, 200,, R
else
	MouseMove, 0, -200,, R
return

[grossermanitu]

Excellent Rohwedder!

I even learned something.
Thank you very much.