greenmachine Posted January 21, 2006 Share Posted January 21, 2006 I made this for fun, it's really simple and really cool. Starting in the center, it spirals the mouse out to the edge of the desktop, and then back into the middle... endlessly. Internal speaker (Beep function) has the frequency relative to the distance from the center, so it rises as it spins out, and lowers as it spins in. Default is to have the beep off, so you can either change that or run it with a 1 as a parameter. expandcollapse popupHotKeySet ("{ESC}", "quitme") ; command line param: beep (0 = off, 1 = on) Global $MakeNoise = 0 If $CmdLine[0] = 0 Then $MakeNoise = 0 ElseIf $CmdLine[1] = 1 Then $MakeNoise = 1 EndIf Global Const $PI = 3.1415926535897932384626433832795 Global $Width = @DesktopWidth, $Height = @DesktopHeight, $MidX = $Width/2, $MidY = $Height/2 Global $Radius = 5 Global $Step = $PI/6 ToolTip ("Mouse Mover!!", $MidX, $MidY) While 1 Do For $angle = 0 To 2*$PI Step $Step $Radius += 5 MouseMove ($MidX - (Cos ($angle) * $Radius), $MidY - (Sin ($angle) * $Radius), 0) If $MakeNoise = 1 Then Beep ($Radius*5, 2) EndIf Next Until $Radius >= $MidY Do For $angle = 0 To 2*$PI Step $Step $Radius -= 5 MouseMove ($MidX - (Cos ($angle) * $Radius), $MidY - (Sin ($angle) * $Radius), 0) If $MakeNoise = 1 Then Beep ($Radius*5, 2) EndIf Next Until $Radius <= 5 WEnd Func quitme() Exit EndFunc Link to comment Share on other sites More sharing options...
ACalcutt Posted January 21, 2006 Share Posted January 21, 2006 (edited) cool the beeping(even with makenoise set to 1) didn't work for me...but that may be because its on my laptop Edited January 21, 2006 by ACalcutt Andrew Calcutt Http://www.Vistumbler.net Http://www.TechIdiots.net Its not an error, its a undocumented feature Link to comment Share on other sites More sharing options...
1of10 Posted January 22, 2006 Share Posted January 22, 2006 Uhh... ...AWESOME!!! Script worked perfectly for me...Set it to use sounds by explicitly re-setting $MakeNoise to 1 after the If...Then...EndIf...Ran with AutoIt3 v3.1.1.103 -- didn't compile -- and it all worked great! [right][img]style_emoticons/autoit/robot.gif[/img]One of TenSecondary Adjunct of Unimatrix Z03[/right] Link to comment Share on other sites More sharing options...
cdkid Posted January 22, 2006 Share Posted January 22, 2006 ahhh i hate math lolbut reallyNICE SCRIPT! AutoIt Console written in C#. Write au3 code right at the console :D_FileWriteToLineWrite to a specific line in a file.My UDF Libraries: MySQL UDF Library version 1.6 MySQL Database UDF's for AutoItI have stopped updating the MySQL thread above, all future updates will be on my SVN. The svn location is:kan2.sytes.net/publicsvn/mysqlnote: This will still be available, but due to my new job, and school hours, am no longer developing this udf.My business: www.hirethebrain.com Hire The Brain HireTheBrain.com Computer Consulting, Design, Assembly and RepairOh no! I've commited Scriptocide! Link to comment Share on other sites More sharing options...
seandisanti Posted January 23, 2006 Share Posted January 23, 2006 very cool. Link to comment Share on other sites More sharing options...
Digetal Posted January 26, 2006 Share Posted January 26, 2006 Great joke prog, I'll add it to my remolt client app Link to comment Share on other sites More sharing options...
blademonkey Posted January 26, 2006 Share Posted January 26, 2006 Great joke prog, I'll add it to my remolt client app psexec? ---"Educate the Mind, Make Savage the Body" -Mao Tse Tung 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