Code: Select all
^w:: Send ^+{Left}{BS}
^h::Send {BS}
Code: Select all
74 03F d 12.42 F5
74 03F u 0.09 F5
01 000 d 0.59 LButton
01 000 u 0.14 LButton
A2 01D d 0.44 LControl
57 011 h d 0.09 w
A2 01D i d 0.00 LControl
A0 02A i d 0.01 LShift
25 14B i d 0.02 Left
25 14B i u 0.00 Left
A0 02A i u 0.02 LShift
A2 01D i u 0.01 LControl
A2 01D i d 0.02 LControl
57 011 s u 0.00 w
A2 01D i u 0.11 LControl
08 00E i d 0.00 Backspace
08 00E i u 0.00 Backspace
A2 01D i d 0.02 LControl
57 011 h d 0.16 w
A2 01D i d 0.00 LControl
A0 02A i d 0.02 LShift
25 14B i d 0.01 Left
25 14B i u 0.00 Left
A0 02A i u 0.02 LShift
A2 01D i u 0.02 LControl
A2 01D i d 0.01 LControl
57 011 s u 0.02 w
A2 01D i u 0.09 LControl
08 00E i d 0.00 Backspace
08 00E i u 0.00 Backspace
A2 01D i d 0.01 LControl
A2 01D u 0.00 LControl
74 03F d 1.92 F5
Code: Select all
74 03F a d 4.01 F5
74 03F a u 0.09 F5
A2 01D a d 0.72 LControl
57 011 h d 0.14 w
A2 01D i d 0.02 LControl
A0 02A i d 0.02 LShift
25 14B i d 0.01 Left
25 14B i u 0.00 Left
A0 02A i u 0.02 LShift
A2 01D i u 0.02 LControl
57 011 a u 0.00 w
57 011 a d 0.11 w
08 00E i d 0.02 Backspace
08 00E i u 0.00 Backspace
57 011 a u 0.05 w
57 011 a d 0.11 w
57 011 a u 0.08 w
A2 01D a u 0.05 LControl
74 03F a d 0.34 F5
Also, the following mid-mouse-click tweak for Thinkpad Trackpoint failed. It "blocks" the middle-mouse-click event on the "remote" machine. As discussed in its source, the script is meant for replicating Thinkpad Trackpoint's scrolling action while preserving the middle-click function. On the local machine, everything worked as intended. While disabling the local AHK script, the middle-mouse-click is activated properly on the remote machine. (Single middle-mouse-click events on the remote machine are blocked completely when AHK script is activated on the local machine, regardless of which keyboard/mouse I use. Single-click of MButton appears to do nothing at all through Sharemouse.)
Code: Select all
; Midbutton down for scrolling {{{
; Feature: with acceleration as intended.
; Source: http://forum.notebookreview.com/threads/ultranav-middle-click-button-scroll.423415/
; Linking source: ettps://superuser.com/questions/91074/thinkpad-trackpoint-scrolling-and-middle-click-possible
; Working version {{{
$*MButton::
Hotkey, $*MButton Up, MButtonup, off
KeyWait, MButton, T0.2
If ErrorLevel = 1
{
Hotkey, $*MButton Up, MButtonup, on
MouseGetPos, ox, oy
SetTimer, WatchTheMouse, 5
SystemCursor("Toggle")
}
Else
Send {MButton}
return
MButtonup:
Hotkey, $*MButton Up, MButtonup, off
SetTimer, WatchTheMouse, off
SystemCursor("Toggle")
return
WatchTheMouse:
MouseGetPos, nx, ny
dy := ny-oy
dx := nx-ox
If (dx**2 > 0 and dx**2>dy**2) ;edit 4 for sensitivity (changes sensitivity to movement)
{
times := Abs(dy)/1 ;edit 1 for sensitivity (changes frequency of scroll signal)
Loop, %times%
{
If (dx > 0)
Click WheelRight
Else
Click WheelLeft
}
}
If (dy**2 > 0 and dy**2>dx**2) ;edit 0 for sensitivity (changes sensitivity to movement)
{
times := Abs(dy)/1 ;edit 1 for sensitivity (changes frequency of scroll signal)
Loop, %times%
{
If (dy > 0)
Click WheelDown
Else
Click WheelUp
}
}
MouseMove ox, oy
return
SystemCursor(OnOff=1) ; INIT = "I","Init"; OFF = 0,"Off"; TOGGLE = -1,"T","Toggle"; ON = others
{
static AndMask, XorMask, $, h_cursor
,c0,c1,c2,c3,c4,c5,c6,c7,c8,c9,c10,c11,c12,c13 ; system cursors
, b1,b2,b3,b4,b5,b6,b7,b8,b9,b10,b11,b12,b13 ; blank cursors
, h1,h2,h3,h4,h5,h6,h7,h8,h9,h10,h11,h12,h13 ; handles of default cursors
if (OnOff = "Init" or OnOff = "I" or $ = "") ; init when requested or at first call
{
$ = h ; active default cursors
VarSetCapacity( h_cursor,4444, 1 )
VarSetCapacity( AndMask, 32*4, 0xFF )
VarSetCapacity( XorMask, 32*4, 0 )
system_cursors = 32512,32513,32514,32515,32516,32642,32643,32644,32645,32646,32648,32649,32650
StringSplit c, system_cursors, `,
Loop %c0%
{
h_cursor := DllCall( "LoadCursor", "uint",0, "uint",c%A_Index% )
h%A_Index% := DllCall( "CopyImage", "uint",h_cursor, "uint",2, "int",0, "int",0, "uint",0 )
b%A_Index% := DllCall("CreateCursor","uint",0, "int",0, "int",0
, "int",32, "int",32, "uint",&AndMask, "uint",&XorMask )
}
}
if (OnOff = 0 or OnOff = "Off" or $ = "h" and (OnOff < 0 or OnOff = "Toggle" or OnOff = "T"))
$ = b ; use blank cursors
else
$ = h ; use the saved cursors
Loop %c0%
{
h_cursor := DllCall( "CopyImage", "uint",%$%%A_Index%, "uint",2, "int",0, "int",0, "uint",0 )
DllCall( "SetSystemCursor", "uint",h_cursor, "uint",c%A_Index% )
}
}
; }}}
; }}}