how would i write a macro that makes a key stroke every minute?

[bigdan]

I dont really know how to write macros else I'd do it myself. Essentially I just want to keep my mouse or keyboard busy for 10 mins. Doesn't have to be continuously busy, just some activity once every minute or so, even if it's just choosing a different cell in a spreadsheet. Would someone be able to help me with this? Would really appreciate it!

 

[mole999]

you don't need excel to to do this
create a blank text file on desktop

insert
Dim objResult
Set objshell = WScript.CreateObject("WScript.Shell")
Do While True
objResult = objShell.sendkeys("{NUMLOCK}{NUMLOCK}")
Wscript.Sleep (31400)
Loop
save the file as idle.vbs

double click and it will run as long as you have scripting

you can buy a plug in hardware key for lots of money to make a jiggle

the sleep time is in 100ths of a second and it toggles NUMLOCK on then off

 

[bigdan]

Thanks so much! I'll give this a shot.

What do you mean by as long as you have scripting?

Also what's a plug in hardware key?

If at some point I'd like to change this from numlock to something else - maybe pressing enter, or pressing 'x' and then backspace, how would I do that?

Is there a way to make this stop after a certain time period?

 

[mole999]

numlock is safest, if you use x you will be creating a character

there are hardware solutions to an automatic screen saver set for when no keyboard activity, this is simple and free

 

[bigdan]

that worked! thansk so much!

 

[bigdan]

apparently i'm supposed to click on Mark as Solution next to your post but I can't find the button. Am I missing something?

 

[mole999]

apparently i'm supposed to click on Mark as Solution next to your post but I can't find the button. Am I missing something?

you don't actually need to click, but at the right side of each post their is a tick, which if you click the tick mark will show on the forium, that is the solution that best answers your question / need

 

[bigdan]

ahhh gotcha thanks!

 

[viv_misra]

you don't need excel to to do this
create a blank text file on desktop

insert
Dim objResult
Set objshell = WScript.CreateObject("WScript.Shell")
Do While True
objResult = objShell.sendkeys("{NUMLOCK}{NUMLOCK}")
Wscript.Sleep (31400)
Loop
save the file as idle.vbs

double click and it will run as long as you have scripting

you can buy a plug in hardware key for lots of money to make a jiggle

the sleep time is in 100ths of a second and it toggles NUMLOCK on then off

Thank you for the script. I have two questions:
1. how do I know if program is running? I cant find it anywhere
2. How do I stop it?