Search the Community

This script is intended to allow the user to move their mouse to the edge of their screen and have the mouse appear to the opposite end. When the user drags the mouse to the edge of a monitor there is a 300 millisecond delay before the mouse will wrap. This will give the user some time to change their mind and give some time for the taskbar to open if the user has it set to autohide. When the user drags a window or selection rectangle to the edge of a monitor the user will have 700 milliseconds to take advantage of the Windows 7 Snap feature. If the user has not moved the mouse from the edge within that time then the window will move to the opposite edge. When the user holds down the mouse wheel the wrap effect is disabled. Tested on Windows 7 x64 with two monitors placed horizontally. Updates: MouseWrap.zip - Source works on latest AutoIt beta. Includes an exe. downloads: 197

I'm working on a script for one or more monitors that will wrap the mouse around the monitors and yet still allow you to drag windows to the edge of the monitor for the Windows 7 Snap feature. So, this is a basic script that does what I set out to do. I think it will even work on multiple monitors. If you have more than two monitors and want to test then I will love you forever. [update -- 05/19/2013] This update has a major difference. When the user drags the mouse to the edge of a monitor there is a 300 millisecond delay before the mouse will wrap. This will give the user some time to change their mind. When the user drags a window or selection rectangle to the edge of a monitor the user will have 700 milliseconds to take advantage of the Windows 7 Snap feature. If the user has not moved the mouse from the edge within that time then the window will move to the opposite edge. There are several speed optimizations without getting too silly and wishy washy. #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_testing=y #AutoIt3Wrapper_Run_AU3Check=n #AutoIt3Wrapper_UseX64=n #AutoIt3Wrapper_UseUpx=n #AutoIt3Wrapper_AU3Check_Parameters=-w 1 -w 2 -w 3 -w 4 -w 6 -w 7 -d #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** ; ============================================================================ ; = MosueWrap: = ; = I intend to allow for mouse wrap action but still be able to utilize = ; = the Windows 7 Snap feature. = ; = Should work on any number of monitors. = ; = = ; = Credits: = ; = Guinness, etc. = ; ============================================================================ #include <Misc.au3> #include <WinAPI.au3> #include <WindowsConstants.au3> _Singleton(@ScriptName) Global Const $mouse_proc_callback = DllCallbackRegister("mouse_proc", "long", "int;wparam;lparam") Global Const $hook = _WinAPI_SetWindowsHookEx($WH_MOUSE_LL, DllCallbackGetPtr($mouse_proc_callback), _WinAPI_GetModuleHandle(0)) Global Const $user32 = DllOpen("User32.Dll") OnAutoItExitRegister("cleanup") Global $mouse_hover_time = 300 Global $vertical = True Global $horizontal = True Global $paused = True Do Switch Not $paused Case True mouse_wrap() $paused = True EndSwitch Sleep(25) Until False Func mouse_proc($code, $w_param, $l_param) Switch $code >= 0 Case True Switch $w_param Case $WM_LBUTTONDOWN, $WM_RBUTTONDOWN $mouse_hover_time = 700 Case $WM_LBUTTONUP, $WM_RBUTTONUP $mouse_hover_time = 300 Case $WM_MOUSEMOVE $paused = False EndSwitch EndSwitch Return _WinAPI_CallNextHookEx($hook, $code, $w_param, $l_param) EndFunc Func mouse_wrap() Static Local $virtual_desktop_width = _WinAPI_GetSystemMetrics($SM_CXVIRTUALSCREEN) - 1 Static Local $last_x = -1 Static Local $last_y = -1 Local Const $x = MouseGetPos(0) Local Const $y = MouseGetPos(1) Switch ($last_x <> $x) Or ($last_y <> $y) Case True $last_x = $x $last_y = $y Switch $horizontal Case True Select Case $x = 0 Switch hovertime_left_right(0) Case True MouseMove($virtual_desktop_width, $y, 0) Return True EndSwitch Case $x = $virtual_desktop_width Switch hovertime_left_right($virtual_desktop_width) Case True MouseMove(1, $y, 0) Return True EndSwitch EndSelect EndSwitch Switch $vertical Case True Local Const $monitor_height = get_monitor_height($x, $y) - 1 Select Case $y = 0 Switch hovertime_top_bottom(0) Case True MouseMove($x, $monitor_height, 0) EndSwitch Case $y = $monitor_height Switch hovertime_top_bottom($monitor_height) Case True MouseMove($x, 1, 0) EndSwitch EndSelect EndSwitch EndSwitch Return True EndFunc Func hovertime_top_bottom(Const ByRef $edge) Local Const $hover_time = TimerInit() Do Switch MouseGetPos(1) <> $edge Case True Return False EndSwitch Until Round(TimerDiff($hover_time)) = $mouse_hover_time Return True EndFunc Func hovertime_left_right(Const ByRef $edge) Local Const $hover_time = TimerInit() Do Switch MouseGetPos(0) <> $edge Case True Return False EndSwitch Until Round(TimerDiff($hover_time)) = $mouse_hover_time Return True EndFunc Func get_monitor_height(Const ByRef $x, Const ByRef $y) Static Local $point = DllStructCreate($tagPOINT) DllStructSetData($point, 'x', $x) DllStructSetData($point, 'y', $y) Local Const $monitor_handle = _WinAPI_MonitorFromPoint($point) Local Const $monitor_info = _WinAPI_GetMonitorInfo($monitor_handle) Return DllStructGetData($monitor_info[1], 4) EndFunc #region ; WinAPIEx ; #FUNCTION# ==================================================================================================================== ; Name...........: _WinAPI_GetMonitorInfo ; Description....: Retrieves information about a display monitor. ; Syntax.........: _WinAPI_GetMonitorInfo ( $hMonitor ) ; Parameters.....: $hMonitor - A handle to the display monitor of interest. ; Return values..: Success - The array containing the following information: ; ; [0] - $tagRECT structure that specifies the display monitor rectangle, in virtual-screen coordinates. ; [1] - $tagRECT structure that specifies the work area rectangle of the display monitor that can be used by applications, in virtual-screen coordinates. ; [2] - 1 (True) for the primary display monitor, or 0 (False) otherwise. ; [3] - The device name of the monitor being used, e.g. "\\.\DISPLAY1". ; Failure - 0 and sets the @error flag to non-zero. ; Author.........: Yashied ; Modified.......: ; Remarks........: None ; Related........: ; Link...........: @@MsdnLink@@ GetMonitorInfo ; Example........: Yes ; =============================================================================================================================== Func _WinAPI_GetMonitorInfo(Const ByRef $hMonitor) ; I set these to static because I didn't want them to execute everytime the function entered. Static Local $tMIEX = DllStructCreate("dword;long[4];long[4];dword;wchar[32]") Static Local $size = DllStructGetSize($tMIEX) Static Local $miex_size = DllStructSetData($tMIEX, 1, $size) Local Const $Ret = DllCall($user32, "int", "GetMonitorInfoW", "ptr", $hMonitor, "ptr", DllStructGetPtr($tMIEX)) If (@error) Or (Not $Ret[0]) Then Return SetError(1, 0, False) Static Local $ptr[2] = [DllStructGetPtr($tMIEX, 1), DllStructGetPtr($tMIEX, 2)] Local $Result[4] For $i = 0 To 1 $Result[$i] = DllStructCreate($tagRECT) If Not _WinAPI_MoveMemory(DllStructGetPtr($Result[$i]), $ptr[$i], 16) Then Return SetError(2, 0, False) EndIf Next Switch DllStructGetData($tMIEX, 4) Case 1 ; MONITORINFOF_PRIMARY $Result[2] = 1 Case Else $Result[2] = 0 EndSwitch $Result[3] = DllStructGetData($tMIEX, 5) Return $Result EndFunc ; #FUNCTION# ==================================================================================================================== ; Name...........: _WinAPI_MonitorFromPoint ; Description....: Retrieves a handle to the display monitor that contains a specified point. ; Syntax.........: _WinAPI_MonitorFromPoint ( $tPOINT [, $iFlag] ) ; Parameters.....: $tPOINT - $tagPOINT structure that specifies the point of interest in virtual-screen coordinates. ; $iFlag - The flag that specifies the function's return value if the point is not contained within any display ; monitor. This parameter can be one of the following values. ; $MONITOR_DEFAULTTONEAREST ; $MONITOR_DEFAULTTONULL ; $MONITOR_DEFAULTTOPRIMARY ; Return values..: Success - A handle to the display monitor that contains a specified point, or the value depends on the ; $MONITOR_* constant. ; Failure - 0 and sets the @error flag to non-zero. ; Author.........: Yashied ; Modified.......: ; Remarks........: None ; Related........: ; Link...........: @@MsdnLink@@ MonitorFromPoint ; Example........: Yes ; =============================================================================================================================== Func _WinAPI_MonitorFromPoint(Const ByRef $tPOINT, Const $iFlag = 1) Static Local $tpoint_ptr = DllStructGetPtr($tPOINT) Static Local $tPT = DllStructCreate("long[2]", $tpoint_ptr) Local Const $Ret = DllCall($user32, "ptr", "MonitorFromPoint", "long", DllStructGetData($tPT, 1, 1), "long", DllStructGetData($tPT, 1, 2), "dword", $iFlag) If (@error) Then Return SetError(1, 0, False) Return $Ret[0] EndFunc ; #FUNCTION# ==================================================================================================================== ; Name...........: _WinAPI_MoveMemory ; Description....: Moves a block of memory from one location to another. ; Syntax.........: _WinAPI_MoveMemory ( $pDestination, $pSource, $iLength ) ; Parameters.....: $pDestination - A pointer to the starting address of the move destination. ; $pSource - A pointer to the starting address of the block of memory to be moved. ; $iLength - The size of the block of memory to move, in bytes. ; Return values..: Success - 1. ; Failure - 0 and sets the @error flag to non-zero. ; Author.........: Yashied ; Modified.......: ; Remarks........: The source and destination blocks may overlap. ; Related........: ; Link...........: @@MsdnLink@@ RtlMoveMemory ; Example........: Yes ; =============================================================================================================================== Func _WinAPI_MoveMemory(Const ByRef $pDestination, Const ByRef $pSource, Const ByRef $iLength) Static Local $ntdll = DllOpen("ntdll.dll") DllCall($ntdll, "none", "RtlMoveMemory", "ptr", $pDestination, "ptr", $pSource, "ulong_ptr", $iLength) If (@error) Then Return SetError(1, 0, False) Return True EndFunc #endregion ; WinAPIEx Func cleanup() _WinAPI_UnhookWindowsHookEx($hook) DllCallbackFree($mouse_proc_callback) DllClose($user32) EndFunc