JReinn Posted January 9, 2009 Share Posted January 9, 2009 HotKeySet("{F7}", 'Start') HotKeySet("{F8}", 'Stop') Func Start() Do MouseMove( 100, 100, 100) Sleep(400) MouseMove( 200, 200, 100) Sleep(400) Until 'Stop' EndFunc Func Stop() Exit EndFunc Hey I have this: Because My friends computer turns standby if he does nothing in like 30 min... And he wanted me to make something that moves his mouse each 5 sec, I made this, but it doesn't work, please help Link to comment Share on other sites More sharing options...
TheTex Posted January 9, 2009 Share Posted January 9, 2009 (edited) #include <constants.au3> HotKeySet("{F7}", 'Start') HotKeySet("{F8}", 'Stop') start() func start() Do MouseMove( 100, 100, 100) Sleep(400) MouseMove( 200, 200, 100) Sleep(400) Until False endfunc Func Stop() Exit EndFunc Edited January 9, 2009 by TheTex Link to comment Share on other sites More sharing options...
JReinn Posted January 9, 2009 Author Share Posted January 9, 2009 #include <constants.au3> HotKeySet("{F7}", 'Start') HotKeySet("{F8}", 'Stop') start() func start() Do MouseMove( 100, 100, 100) Sleep(400) MouseMove( 200, 200, 100) Sleep(400) Until False endfunc Func Stop() Exit EndFuncWorking, thanks! Link to comment Share on other sites More sharing options...
Andreik Posted January 9, 2009 Share Posted January 9, 2009 HotKeySet("{F7}", 'Start') HotKeySet("{F8}", 'Stop') Func Start() Do MouseMove( 100, 100, 100) Sleep(400) MouseMove( 200, 200, 100) Sleep(400) Until 'Stop' EndFunc Func Stop() Exit EndFunc Hey I have this: Because My friends computer turns standby if he does nothing in like 30 min... And he wanted me to make something that moves his mouse each 5 sec, I made this, but it doesn't work, please help You don't have the main loop, try this: HotKeySet("{F7}", 'Start') HotKeySet("{F8}", 'Stop') HotKeySet("{ESC}",'Quit') Global $STOP = False Global $X = @DesktopWidth Global $Y = @DesktopHeight While 1 Sleep(30) WEnd Func Start() $STOP = False Do MouseMove(Random(0,$X,1),Random(0,$Y,1)) Sleep(5000) Until $STOP = True EndFunc Func Stop() $STOP = True EndFunc When the words fail... music speaks. Link to comment Share on other sites More sharing options...
xroot Posted January 10, 2009 Share Posted January 10, 2009 ;KeepAlive #NoTrayIcon While TRUE $IE=ObjCreate("InternetExplorer.Application") Sleep(100) $IE.Quit Sleep(600000);10 Min. WEnd This will keep your desktop alive, just run it in startup and forget it. Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now