home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 January / PCWELT_1_2006.ISO / pcwsoft / autoit-v3-setup.exe / Examples / MouseClick.au3 < prev    next >
Encoding:
Text File  |  2004-09-22  |  635 b   |  26 lines
  1. ; Double click at the current mouse pos
  2. MouseClick("left")
  3. MouseClick("left")
  4.  
  5. ; Double click at 0,500
  6. MouseClick("left", 0, 500, 2)
  7.  
  8.  
  9. ; SAFER VERSION of Double click at 0,500
  10.  
  11. Dim $primary
  12. Dim $secondary
  13. ;Determine if user has swapped right and left mouse buttons
  14. $k = RegRead("HKEY_CURRENT_USER\Control Panel\Mouse", "SwapMouseButtons")
  15.  
  16. ; It's okay to NOT check the success of the RegRead operation
  17. If $k = 1 Then
  18.     $primary = "right"
  19.     $secondary = "left"
  20. Else ;normal (also case if could not read registry key)
  21.     $primary = "left"
  22.     $secondary = "right"
  23. EndIf
  24. MouseClick($primary, 0, 500, 2)
  25. Exit
  26.