home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 January / PCWorld_2007-01_cd.bin / v cisle / autoit / autoit-v3.2.0.1-setup.exe / Examples / Helpfile / _MouseTrap.au3 < prev    next >
Encoding:
Text File  |  2006-06-17  |  441 b   |  25 lines
  1. #include <GuiConstants.au3>
  2. #include <Misc.au3>
  3.  
  4. Opt ("MustDeclareVars", 1)
  5.  
  6. Dim $GUI, $coords[4], $msg
  7.  
  8. $GUI = GUICreate("Mouse Trap Example", 392, 323)
  9.  
  10. GUISetState()
  11.  
  12. While 1
  13.     $coords = WinGetPos($GUI)
  14.     _MouseTrap ($coords[0], $coords[1], $coords[0] + $coords[2], $coords[1] + $coords[3])
  15.     $msg = GUIGetMsg()
  16.     Select
  17.         Case $msg = $GUI_EVENT_CLOSE
  18.             ExitLoop
  19.         Case Else
  20.             ;;;
  21.     EndSelect
  22. WEnd
  23. _MouseTrap ()
  24. Exit
  25.