AutoHotkey Community

VarSetCapacity(POINT,8) ;to recieve position

Gui,Add,ListView,r20 hwndsys AltSubmit gLaunch,test|auch
Loop 20
   LV_Add("",A_Index,A_Index)
Gui,Show

Gui +LastFound
hwnd:=WinExist()
Return

GuiClose:
ExitApp

Launch:
If A_GuiEvent=DoubleClick
   ToolTip % A_EventInfo
Return

Enter::
   ControlGetPos,x,y,,,,ahk_id %sys%
   SendMessage,TVM_GETITEM:=0x100c,-1,3,,ahk_id %sys%
   If ErrorLevel=4294967295
      Return
   item:=ErrorLevel+1
   SendMessage,LVM_GETITEMPOSITION:=0x1010,item,&POINT,,ahk_id %sys%
   x+=NumGet(POINT,0)
   y+=NumGet(POINT,4)
;~    ToolTip % y,0,0,2
   MouseClick,,% x,% y,2
   ;~ ControlClick, % "x" x " y" y,ahk_id %hwnd%,,,3, Pos ;,ahk_id %sys%,,,4
Return

ENTER::
   hwnd:=WinExist("A")
   chwnd=
   ControlGet,chwnd,HWND,,SysListView321,ahk_id %hwnd%
   If chwnd=
      Return
   ControlGetPos,x,y,,,,ahk_id %chwnd%
   SendMessage,TVM_GETITEM:=0x100c,-1,3,,ahk_id %chwnd%
   If ErrorLevel=4294967295
      Return
   VarSetCapacity(POINT,16) ;to recieve position
   item:=ErrorLevel+1
   size:=8
   RemoteBuf_Open(hPOINT, hwnd, size)
   SendMessage,LVM_GETITEMPOSITION:=0x1010,item,RemoteBuf_Get(hPOINT),SysListView321,ahk_id %hwnd%
   RemoteBuf_Read(hPOINT, POINT,size)
   RemoteBuf_Close(hPOINT)
   x+=NumGet(POINT,0)
   y+=NumGet(POINT,4)-5
   ToolTip % x " . " y "." item,0,0,2
   MouseClick,,% x,% y,2
;~    ControlClick, % "x" x " y" y,ahk_id %hwnd%,,,2 ;,ahk_id %chwnd%,,,4
Return


RemoteBuf_Open(ByRef H, hwnd, size) {
   static MEM_COMMIT=0x1000, PAGE_READWRITE=4

   WinGet, pid, PID, ahk_id %hwnd%
   hProc   := DllCall( "OpenProcess", "uint", 0x38, "int", 0, "uint", pid)
   IfEqual, hProc,0, return A_ThisFunc ">   Unable to open process (" A_LastError ")"
     
   bufAdr  := DllCall( "VirtualAllocEx", "uint", hProc, "uint", 0, "uint", size, "uint", MEM_COMMIT, "uint", PAGE_READWRITE)
   IfEqual, bufAdr,0, return A_ThisFunc ">   Unable to allocate memory (" A_LastError ")"
   VarSetCapacity(H, 12, 0 )
   NumPut( hProc,   H, 0)
   NumPut( size,   H, 4)
   NumPut( bufAdr, H, 8)
}

RemoteBuf_Close(ByRef H) {
   static MEM_RELEASE = 0x8000
   
   handle := NumGet(H, 0)
   IfEqual, handle, 0, return A_ThisFunc ">   Invalid remote buffer handle"
   adr    := NumGet(H, 8)

   r := DllCall( "VirtualFreeEx", "uint", handle, "uint", adr, "uint", 0, "uint", MEM_RELEASE)
   ifEqual, r, 0, return A_ThisFunc ">   Unable to free memory (" A_LastError ")"
   DllCall( "CloseHandle", "uint", handle )
   VarSetCapacity(H, 0 )
}


RemoteBuf_Read(ByRef H, ByRef pLocal, pSize, pOffset = 0){
   handle := NumGet( H, 0),   size:= NumGet( H, 4),   adr := NumGet( H, 8)
   IfEqual, handle, 0, return A_ThisFunc ">   Invalid remote buffer handle"   
   IfGreaterOrEqual, offset, %size%, return A_ThisFunc ">   Offset is bigger then size"

   VarSetCapacity( pLocal, pSize )
   return DllCall( "ReadProcessMemory", "uint", handle, "uint", adr + pOffset, "uint", &pLocal, "uint", size, "uint", 0 ), VarSetCapacity(pLocal, -1)
}


RemoteBuf_Write(Byref H, byref pLocal, pSize, pOffset=0) {
   handle:= NumGet( H, 0),   size := NumGet( H, 4),   adr := NumGet( H, 8)
   IfEqual, handle, 0, return A_ThisFunc ">   Invalid remote buffer handle"   
   IfGreaterOrEqual, offset, %size%, return A_ThisFunc ">   Offset is bigger then size"

   return DllCall( "WriteProcessMemory", "uint", handle,"uint", adr + pOffset,"uint", &pLocal,"uint", pSize, "uint", 0 )
}

RemoteBuf_Get(ByRef H, pQ="adr") {
   return pQ = "adr" ? NumGet(H, 8) : pQ = "size" ? NumGet(H, 4) : NumGet(H)
}

ENTER::
 hwnd:=WinExist("A")   ; this won't be needed as the shortcut will be in a "ifwinexist" hotkey command
controlgetfocus, cntrlNN ;,A
      if (RegExMatch(cntrlNN, "i)syslistview32")) {   ;if more than one syslistview32 are present
   
   ControlGet,chwnd,HWND,,%cntrlNN%,ahk_id %hwnd%
   If chwnd=   ;maybe superfluous
      Return
   ControlGetPos,x,y,,,,ahk_id %chwnd%
   SendMessage,TVM_GETITEM:=0x100c,-1,3,,ahk_id %chwnd%   ; could you explain this a bit ? why -1 for wparam ? what is the return value ?
   If ErrorLevel=4294967295
      Return
   VarSetCapacity(POINT,16) ;to receive position
   item:=ErrorLevel+1
   size:=8
   RemoteBuf_Open(hPOINT, hwnd, size)
   SendMessage,LVM_GETITEMPOSITION:=0x1010,item,RemoteBuf_Get(hPOINT),%cntrlNN%,ahk_id %hwnd%
   RemoteBuf_Read(hPOINT, POINT,size)
   RemoteBuf_Close(hPOINT)
   x+=NumGet(POINT,0)
   y+=NumGet(POINT,4)-5
   ToolTip % x " . " y "." item,0,0,2
   MouseClick,,% x,% y,2
;~    ControlClick, % "x" x " y" y,ahk_id %hwnd%,,,2 ;,ahk_id %chwnd%,,,4
   chwnd=
   }
Return

ENTER::
 hwnd:=WinExist("A")   ; this won't be needed as the shortcut will be in a "ifwinexist" hotkey command
controlgetfocus, cntrlNN ;,A
   if (RegExMatch(cntrlNN, "i)syslistview32")) {   ;if more than one syslistview32 are present
      ControlGet,chwnd,HWND,,%cntrlNN%,ahk_id %hwnd%
      ControlGetPos,x,y,,,,ahk_id %chwnd%
      SendMessage,LVM_GETITEM:=0x100c,-1,3,,ahk_id %chwnd%   ; http://msdn.microsoft.com/en-us/library/bb774953.aspx
      item:=ErrorLevel+1 ;Line number 0 based so +1 needed
      If ErrorLevel=4294967296
         Return
      VarSetCapacity(POINT,16) ;to receive position
      RemoteBuf_Open(hPOINT, hwnd, 8)
      SendMessage,LVM_GETITEMPOSITION:=0x1010,item,RemoteBuf_Get(hPOINT),%cntrlNN%,ahk_id %hwnd% ;http://msdn.microsoft.com/en-us/library/bb761048.aspx
      RemoteBuf_Read(hPOINT, POINT,size),RemoteBuf_Close(hPOINT)
      x+=NumGet(POINT,0)
      y+=NumGet(POINT,4)-10
      MouseClick,,% x,% y,2
      chwnd=
   }
Return

~ENTER::   ;the tilde does not make any difference - I just added it for convenience
   hwnd:=WinExist("A")   ; this won't be needed as the shortcut will be in a "ifwinexist" hotkey command
controlgetfocus, cntrlNN ;,A
      if (RegExMatch(cntrlNN, "i)syslistview32")) {   ;if more than one syslistview32 are present
   
   ControlGet,chwnd,HWND,,%cntrlNN%,ahk_id %hwnd%
   If chwnd=
      Return
   ControlGetPos,x,y,,,,ahk_id %chwnd%
   SendMessage,TVM_GETITEM:=0x100c,-1,3,,ahk_id %chwnd%
   If ErrorLevel=4294967295
      Return
   VarSetCapacity(POINT,16) ;to receive position
   item:=ErrorLevel+1
   size:=8
   RemoteBuf_Open(hPOINT, hwnd, size)
   SendMessage,LVM_GETITEMPOSITION:=0x1010,item,RemoteBuf_Get(hPOINT),%cntrlNN%,ahk_id %hwnd%
   RemoteBuf_Read(hPOINT, POINT,size)
   RemoteBuf_Close(hPOINT)
   x+=NumGet(POINT,0)
   y+=NumGet(POINT,4)-10   ;changed this but no difference
   ToolTip % x " . " y "." item,0,0,2
   MouseClick,,% x,% y,2
;~    ControlClick, % "x" x " y" y,ahk_id %hwnd%,,,2 ;,ahk_id %chwnd%,,,4
   chwnd=
   }
Return

ENTER::
 hwnd:=WinExist("A")   ; this won't be needed as the shortcut will be in a "ifwinexist" hotkey command
controlgetfocus, cntrlNN ;,A
   if (RegExMatch(cntrlNN, "i)syslistview32")) {   ;if more than one syslistview32 are present
      ControlGet,chwnd,HWND,,%cntrlNN%,ahk_id %hwnd%
;~       ControlGetPos,x,y,,,,ahk_id %chwnd%
      SendMessage,LVM_GETITEM:=0x100c,-1,3,,ahk_id %chwnd%   ; http://msdn.microsoft.com/en-us/library/bb774953.aspx
      item:=ErrorLevel+1 ;Line number 0 based so +1 needed
      If ErrorLevel=4294967296
         Return
      VarSetCapacity(POINT,16) ;to receive position
      RemoteBuf_Open(hPOINT, hwnd, 8)
      SendMessage,LVM_GETITEMPOSITION:=0x1010,item,RemoteBuf_Get(hPOINT),%cntrlNN%,ahk_id %hwnd% ;http://msdn.microsoft.com/en-us/library/bb761048.aspx
      RemoteBuf_Read(hPOINT, POINT,size),RemoteBuf_Close(hPOINT)
      x:=NumGet(POINT,0)
      y:=NumGet(POINT,4)-10
      PostMessage, 0x86, 0, ,, ahk_id %chwnd% ; WM_NCACTIVATE
      PostMessage, 0x201, 0, X&0xFFFF | Y<<16,, ahk_id %chwnd% ; WM_LBUTTONDOWN
      PostMessage, 0x202, 0, X&0xFFFF | Y<<16,, ahk_id %chwnd% ; WM_LBUTTONUP
      PostMessage, 0x203, 0, X&0xFFFF | Y<<16,, ahk_id %chwnd% ; WM_LBUTTONDBLCLCK
      PostMessage, 0x202, 0, X&0xFFFF | Y<<16,, ahk_id %chwnd% ; WM_LBUTTONUP
      chwnd=
   }
Return

~ENTER::
 hwnd:=WinExist("A")   ; this won't be needed as the shortcut will be in a "ifwinexist" hotkey command
controlgetfocus, cntrlNN ;,A
   if (RegExMatch(cntrlNN, "i)syslistview32")) {   ;if more than one syslistview32 are present
      ControlGet,chwnd,HWND,,%cntrlNN%,ahk_id %hwnd%
;~       ControlGetPos,x,y,,,,ahk_id %chwnd%
      SendMessage,LVM_GETITEM:=0x100c,-1,3,,ahk_id %chwnd%   ; http://msdn.microsoft.com/en-us/library/bb774953.aspx
      item:=ErrorLevel+1 ;Line number 0 based so +1 needed
      If ErrorLevel=4294967296
         Return
      VarSetCapacity(POINT,16) ;to receive position
      RemoteBuf_Open(hPOINT, hwnd, 8)
      SendMessage,LVM_GETITEMPOSITION:=0x1010,item,RemoteBuf_Get(hPOINT),%cntrlNN%,ahk_id %hwnd% ;http://msdn.microsoft.com/en-us/library/bb761048.aspx
      RemoteBuf_Read(hPOINT, POINT,size),RemoteBuf_Close(hPOINT)
      x:=NumGet(POINT,0)
      y:=NumGet(POINT,4)-10
      PostMessage, 0x86, 0, ,, ahk_id %chwnd% ; WM_NCACTIVATE
      PostMessage, 0x201, 0, X&0xFFFF | Y<<16,, ahk_id %chwnd% ; WM_LBUTTONDOWN
      PostMessage, 0x202, 0, X&0xFFFF | Y<<16,, ahk_id %chwnd% ; WM_LBUTTONUP
      PostMessage, 0x203, 0, X&0xFFFF | Y<<16,, ahk_id %chwnd% ; WM_LBUTTONDBLCLCK
      PostMessage, 0x202, 0, X&0xFFFF | Y<<16,, ahk_id %chwnd% ; WM_LBUTTONUP
     tooltip x=%x% . y=%y%
      chwnd=
   }
Return

~ENTER::
 hwnd:=WinExist("A")   ; this won't be needed as the shortcut will be in a "ifwinexist" hotkey command
controlgetfocus, cntrlNN ;,A
   if (RegExMatch(cntrlNN, "i)syslistview32")) {   ;if more than one syslistview32 are present
      ControlGet,chwnd,HWND,,%cntrlNN%,ahk_id %hwnd%
;~       ControlGetPos,x,y,,,,ahk_id %chwnd%
      SendMessage,LVM_GETITEMNEXT:=0x100c,-1,3,,ahk_id %chwnd%   ; http://msdn.microsoft.com/en-us/library/bb761057.aspx
      item:=ErrorLevel
      If ErrorLevel=4294967296
         Return
      VarSetCapacity(POINT,16) ;to receive position
      RemoteBuf_Open(hPOINT, hwnd, 8)
      SendMessage,LVM_GETITEMPOSITION:=0x1010,item,RemoteBuf_Get(hPOINT),%cntrlNN%,ahk_id %hwnd% ;http://msdn.microsoft.com/en-us/library/bb761048.aspx
      RemoteBuf_Read(hPOINT, POINT,size),RemoteBuf_Close(hPOINT)
      x:=NumGet(POINT,0)
      y:=NumGet(POINT,4)
      PostMessage, 0x86, 0, ,, ahk_id %chwnd% ; WM_NCACTIVATE
      PostMessage, 0x201, 0, X&0xFFFF | Y<<16,, ahk_id %chwnd% ; WM_LBUTTONDOWN
      PostMessage, 0x202, 0, X&0xFFFF | Y<<16,, ahk_id %chwnd% ; WM_LBUTTONUP
      PostMessage, 0x203, 0, X&0xFFFF | Y<<16,, ahk_id %chwnd% ; WM_LBUTTONDBLCLCK
      PostMessage, 0x202, 0, X&0xFFFF | Y<<16,, ahk_id %chwnd% ; WM_LBUTTONUP
     tooltip x=%x% . y=%y% : %item%
      chwnd=
   }
Return