1

Тема: AHK: залипает Shift

Здравствуйте, помогите разобраться, периодически send перестаёт работать, вновь начинает работать после физического нажатия Shift.
Пробовал SendInput и SendPlay, после send дополнительно слать Shift Up, проблема не убирается.
Что интересно, Shift зависает даже без использования хоткеев нажимающих Shift.

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
;#Warn  ; Enable warnings to assist with detecting common errors.
;SendMode InputThenPlay  ; Recommended for new scripts due to its superior speed and reliability.

a = ""
#ifwinactive, ahk_class MozillaWindowClass
XButton1::  ;treeview get focused item
    {
      Sleep, 300
      If GetKeyState("XButton1", "P") ; Если BIND отжат то выходит из цикла.
	{
         Send, ^w
		 ;Send, {ctrl up}
		 hwnd:=WinExist("ahk_exe back_button_history.exe")
		 sleep, 100
		 ToolTip, восстановить вкладку
		 return
	}
   }
WinGet, hWnd, ID, A
WinGet, Style, Style, A
if (style = "0x170B0000")
	Send, {esc}

;oAcc := Acc_Get("Object", "ahk_id " hCtl)
;ToolTip, a-%a%
goto, exec1
	serch1:
if (a != "")
{
 WinGet Path, ProcessPath, A
 FileGetVersion, Version, %Path%
Loop, read, %Version%.txt
	{
		Loop, parse, A_LoopReadLine, %A_Tab%
		{
			d := A_LoopField
			oAcc := Acc_Get("Object", d, 0, "ahk_id " hWnd)
			;ToolTip, читаю %d%
			;Sleep, 1000
			
			if (oAcc.accname(0) = "Назад")
				goto, exec1
		}
	}
	;ToolTip, aa-%a%
	Loop, 99
	{
		;ToolTip, aaa-%a%
		if (oAcc.accname(0) != "Панель навигации") 
			{
			c := A_Index+19
				d = 4.%c%
			}
			else
			{
				k := A_Index
				d = 4.%c%.%k%
			}
		
		;ToolTip, % d
		oAcc := Acc_Get("Object", d, 0, "ahk_id " hWnd)
		if (oAcc.accname(0) = "Панель навигации") ;STATE_SYSTEM_FOCUSED := 0x4
		{
			;ToolTip, Панель навигации
			;sleep, 1000
			Loop
			{
			k := A_Index
			d = 4.%c%.%k%
			
			oAcc := Acc_Get("Object", d, 0, "ahk_id " hWnd)
			;ToolTip, % d
			
				if (oAcc.accname(0) = "Назад") ;STATE_SYSTEM_FOCUSED := 0x4
					{
					vOutput := oAcc.accState(0)
					a = d
					 WinGet Path, ProcessPath, A

					 FileGetVersion, Version, %Path%
					 ;tooltip,  %Version% %Path%
					 ;FileAppend , % d%count% "`n", %Version%.txt
					 FileRead, filetext, %Version%.txt ; get the file contents

						IfNotInString, filetext, %d% ; self-explanatory
							{
								FileDelete, %Version%.txt
								FileAppend , %d% `n%filetext%, %Version%.txt
							}

					break
					}
			}
			break
			
		}
	}
}

exec1:
		oAcc := Acc_Get("Object", d, 0, "ahk_id " hWnd)
		;ToolTip, exec1 %d%
		
vOutput := oAcc.accState(0)
;Clipboard := vOutput
;ToolTip, % vOutput
;ToolTip
;return
if ((vOutput = "1073741825") or (vOutput = "1"))
{
	;ToolTip, работает
	Send, ^w
	;CoordMode, Mouse, Relative
hwnd:=WinExist("ahk_exe back_button_history.exe")
sleep, 200
		 ToolTip, восстановить вкладку
;SetTimer, Close_tooltip, 5000
;return
;Close_tooltip:
;ToolTip
	return
}
	if ((vOutput = "1073741824") or (vOutput = "0"))
	{
		;ToolTip, НЕработает
	Sendinput, {Browser_Back}
	return
}
else
{
	a = ""
	Goto, serch1
}
;==================================================
#IfWinExist ahk_exe back_button_history.exe
~LButton Up::
{
hwnd:=WinExist("ahk_exe back_button_history.exe")
MouseGetPos,x,y,win
;tooltip, % win hwnd
;sleep, 1000
If win = %hwnd%
{
tooltip
;sleep, 100
	WinActivateBottom, ahk_class MozillaWindowClass
Send, {ctrl down}
Send, {shift down}
Send, {t}
sleep, 200
Send, {ctrl up}
Send, {shift up}
return
}

tooltip
return
}
XButton2::
{
tooltip
	WinActivateBottom, ahk_class MozillaWindowClass
Send, {ctrl down}{shift down}{t}{ctrl up}{shift up}
sleep, 200
Send, {ctrl up}{shift up}
return
}
#IfWinActive ahk_class MozillaWindowClass
XButton2::
   {
      Sleep, 300
      If GetKeyState("XButton2", "P") ; Если BIND отжат то выходит из цикла.
	{
         Send, {ctrl down}{shift down}{t}{ctrl up}{shift up}
		 sleep, 200
Send, {ctrl up}{shift up}
Send, {ctrl up}{shift up}
		 return
	 }
	 	  Sendinput, {Browser_Forward}
	   return
   }

JEE_StrRept(vText, vNum)
{
	if (vNum <= 0)
		return
	return StrReplace(Format("{:" vNum "}", ""), " ", vText)
	;return StrReplace(Format("{:0" vNum "}", 0), 0, vText)
}



; http://www.autohotkey.com/board/topic/77303-acc-library-ahk-l-updated-09272012/
; https://dl.dropbox.com/u/47573473/Web%20Server/AHK_L/Acc.ahk
;------------------------------------------------------------------------------
; Acc.ahk Standard Library
; by Sean
; Updated by jethrow:
; 	Modified ComObjEnwrap params from (9,pacc) --> (9,pacc,1)
; 	Changed ComObjUnwrap to ComObjValue in order to avoid AddRef (thanks fincs)
; 	Added Acc_GetRoleText & Acc_GetStateText
; 	Added additional functions - commented below
; 	Removed original Acc_Children function
; last updated 2/25/2010
;------------------------------------------------------------------------------

Acc_Init()
{
	Static	h
	If Not	h
		h:=DllCall("LoadLibrary","Str","oleacc","Ptr")
}
Acc_ObjectFromEvent(ByRef _idChild_, hWnd, idObject, idChild)
{
	Acc_Init()
	If	DllCall("oleacc\AccessibleObjectFromEvent", "Ptr", hWnd, "UInt", idObject, "UInt", idChild, "Ptr*", pacc, "Ptr", VarSetCapacity(varChild,8+2*A_PtrSize,0)*0+&varChild)=0
	Return	ComObjEnwrap(9,pacc,1), _idChild_:=NumGet(varChild,8,"UInt")
}

Acc_ObjectFromPoint(ByRef _idChild_ = "", x = "", y = "")
{
	Acc_Init()
	If	DllCall("oleacc\AccessibleObjectFromPoint", "Int64", x==""||y==""?0*DllCall("GetCursorPos","Int64*",pt)+pt:x&0xFFFFFFFF|y<<32, "Ptr*", pacc, "Ptr", VarSetCapacity(varChild,8+2*A_PtrSize,0)*0+&varChild)=0
	Return	ComObjEnwrap(9,pacc,1), _idChild_:=NumGet(varChild,8,"UInt")
}

Acc_ObjectFromWindow(hWnd, idObject = -4)
{
	Acc_Init()
	If	DllCall("oleacc\AccessibleObjectFromWindow", "Ptr", hWnd, "UInt", idObject&=0xFFFFFFFF, "Ptr", -VarSetCapacity(IID,16)+NumPut(idObject==0xFFFFFFF0?0x46000000000000C0:0x719B3800AA000C81,NumPut(idObject==0xFFFFFFF0?0x0000000000020400:0x11CF3C3D618736E0,IID,"Int64"),"Int64"), "Ptr*", pacc)=0
	Return	ComObjEnwrap(9,pacc,1)
}

Acc_WindowFromObject(pacc)
{
	If	DllCall("oleacc\WindowFromAccessibleObject", "Ptr", IsObject(pacc)?ComObjValue(pacc):pacc, "Ptr*", hWnd)=0
	Return	hWnd
}

Acc_GetRoleText(nRole)
{
	nSize := DllCall("oleacc\GetRoleText", "Uint", nRole, "Ptr", 0, "Uint", 0)
	VarSetCapacity(sRole, (A_IsUnicode?2:1)*nSize)
	DllCall("oleacc\GetRoleText", "Uint", nRole, "str", sRole, "Uint", nSize+1)
	Return	sRole
}

Acc_GetStateText(nState)
{
	nSize := DllCall("oleacc\GetStateText", "Uint", nState, "Ptr", 0, "Uint", 0)
	VarSetCapacity(sState, (A_IsUnicode?2:1)*nSize)
	DllCall("oleacc\GetStateText", "Uint", nState, "str", sState, "Uint", nSize+1)
	Return	sState
}

Acc_SetWinEventHook(eventMin, eventMax, pCallback)
{
	Return	DllCall("SetWinEventHook", "Uint", eventMin, "Uint", eventMax, "Uint", 0, "Ptr", pCallback, "Uint", 0, "Uint", 0, "Uint", 0)
}

Acc_UnhookWinEvent(hHook)
{
	Return	DllCall("UnhookWinEvent", "Ptr", hHook)
}
/*	Win Events:
	pCallback := RegisterCallback("WinEventProc")
	WinEventProc(hHook, event, hWnd, idObject, idChild, eventThread, eventTime)
	{
		Critical
		Acc := Acc_ObjectFromEvent(_idChild_, hWnd, idObject, idChild)
		; Code Here:
	}
*/

; Written by jethrow
Acc_Role(Acc, ChildId=0) {
	try return ComObjType(Acc,"Name")="IAccessible"?Acc_GetRoleText(Acc.accRole(ChildId)):"invalid object"
}
Acc_State(Acc, ChildId=0) {
	try return ComObjType(Acc,"Name")="IAccessible"?Acc_GetStateText(Acc.accState(ChildId)):"invalid object"
}
Acc_Location(Acc, ChildId=0, byref Position="") { ; adapted from Sean's code
	try Acc.accLocation(ComObj(0x4003,&x:=0), ComObj(0x4003,&y:=0), ComObj(0x4003,&w:=0), ComObj(0x4003,&h:=0), ChildId)
	catch
		return
	Position := "x" NumGet(x,0,"int") " y" NumGet(y,0,"int") " w" NumGet(w,0,"int") " h" NumGet(h,0,"int")
	return	{x:NumGet(x,0,"int"), y:NumGet(y,0,"int"), w:NumGet(w,0,"int"), h:NumGet(h,0,"int")}
}
Acc_Parent(Acc) { 
	try parent:=Acc.accParent
	return parent?Acc_Query(parent):
}
Acc_Child(Acc, ChildId=0) {
	try child:=Acc.accChild(ChildId)
	return child?Acc_Query(child):
}
Acc_Query(Acc) { ; thanks Lexikos - www.autohotkey.com/forum/viewtopic.php?t=81731&p=509530#509530
	try return ComObj(9, ComObjQuery(Acc,"{618736e0-3c3d-11cf-810c-00aa00389b71}"), 1)
}
Acc_Error(p="") {
	static setting:=0
	return p=""?setting:setting:=p
}
Acc_Children(Acc) {
	if ComObjType(Acc,"Name") != "IAccessible"
		ErrorLevel := "Invalid IAccessible Object"
	else {
		Acc_Init(), cChildren:=Acc.accChildCount, Children:=[]
		if DllCall("oleacc\AccessibleChildren", "Ptr",ComObjValue(Acc), "Int",0, "Int",cChildren, "Ptr",VarSetCapacity(varChildren,cChildren*(8+2*A_PtrSize),0)*0+&varChildren, "Int*",cChildren)=0 {
			Loop %cChildren%
				i:=(A_Index-1)*(A_PtrSize*2+8)+8, child:=NumGet(varChildren,i), Children.Insert(NumGet(varChildren,i-8)=9?Acc_Query(child):child), NumGet(varChildren,i-8)=9?ObjRelease(child):
			return Children.MaxIndex()?Children:
		} else
			ErrorLevel := "AccessibleChildren DllCall Failed"
	}
	if Acc_Error()
		throw Exception(ErrorLevel,-1)
}
Acc_ChildrenByRole(Acc, Role) {
	if ComObjType(Acc,"Name")!="IAccessible"
		ErrorLevel := "Invalid IAccessible Object"
	else {
		Acc_Init(), cChildren:=Acc.accChildCount, Children:=[]
		if DllCall("oleacc\AccessibleChildren", "Ptr",ComObjValue(Acc), "Int",0, "Int",cChildren, "Ptr",VarSetCapacity(varChildren,cChildren*(8+2*A_PtrSize),0)*0+&varChildren, "Int*",cChildren)=0 {
			Loop %cChildren% {
				i:=(A_Index-1)*(A_PtrSize*2+8)+8, child:=NumGet(varChildren,i)
				if NumGet(varChildren,i-8)=9
					AccChild:=Acc_Query(child), ObjRelease(child), Acc_Role(AccChild)=Role?Children.Insert(AccChild):
				else
					Acc_Role(Acc, child)=Role?Children.Insert(child):
			}
			return Children.MaxIndex()?Children:, ErrorLevel:=0
		} else
			ErrorLevel := "AccessibleChildren DllCall Failed"
	}
	if Acc_Error()
		throw Exception(ErrorLevel,-1)
}
Acc_Get(Cmd, ChildPath="", ChildID=0, WinTitle="", WinText="", ExcludeTitle="", ExcludeText="") {
	static properties := {Action:"DefaultAction", DoAction:"DoDefaultAction", Keyboard:"KeyboardShortcut"}
	AccObj :=   IsObject(WinTitle)? WinTitle
			:   Acc_ObjectFromWindow( WinExist(WinTitle, WinText, ExcludeTitle, ExcludeText), 0 )
	if ComObjType(AccObj, "Name") != "IAccessible"
		ErrorLevel := "Could not access an IAccessible Object"
	else {
		StringReplace, ChildPath, ChildPath, _, %A_Space%, All
		AccError:=Acc_Error(), Acc_Error(true)
		Loop Parse, ChildPath, ., %A_Space%
			try {
				if A_LoopField is digit
					Children:=Acc_Children(AccObj), m2:=A_LoopField ; mimic "m2" output in else-statement
				else
					RegExMatch(A_LoopField, "(\D*)(\d*)", m), Children:=Acc_ChildrenByRole(AccObj, m1), m2:=(m2?m2:1)
				if Not Children.HasKey(m2)
					throw
				AccObj := Children[m2]
			} catch {
				ErrorLevel:="Cannot access ChildPath Item #" A_Index " -> " A_LoopField, Acc_Error(AccError)
				if Acc_Error()
					throw Exception("Cannot access ChildPath Item", -1, "Item #" A_Index " -> " A_LoopField)
				return
			}
		Acc_Error(AccError)
		StringReplace, Cmd, Cmd, %A_Space%, , All
		properties.HasKey(Cmd)? Cmd:=properties[Cmd]:
		try {
			if (Cmd = "Location")
				AccObj.accLocation(ComObj(0x4003,&x:=0), ComObj(0x4003,&y:=0), ComObj(0x4003,&w:=0), ComObj(0x4003,&h:=0), ChildId)
			  , ret_val := "x" NumGet(x,0,"int") " y" NumGet(y,0,"int") " w" NumGet(w,0,"int") " h" NumGet(h,0,"int")
			else if (Cmd = "Object")
				ret_val := AccObj
			else if Cmd in Role,State
				ret_val := Acc_%Cmd%(AccObj, ChildID+0)
			else if Cmd in ChildCount,Selection,Focus
				ret_val := AccObj["acc" Cmd]
			else
				ret_val := AccObj["acc" Cmd](ChildID+0)
		} catch {
			ErrorLevel := """" Cmd """ Cmd Not Implemented"
			if Acc_Error()
				throw Exception("Cmd Not Implemented", -1, Cmd)
			return
		}
		return ret_val, ErrorLevel:=0
	}
	if Acc_Error()
		throw Exception(ErrorLevel,-1)
}

2

Re: AHK: залипает Shift

Ещё заметил, когда скомпилированный скрипт перестаёт слать Send, то если запустить этот же скрипт просто кликнув 2 раза по .ahk файлу команда Send работает.

3

Re: AHK: залипает Shift

Если перед

Send, ^w

Выполнить

Send, {Shift up}

То Send, ^w работает, но это же не правильно?

4 (изменено: stealzy, 2019-07-03 12:37:37)

Re: AHK: залипает Shift

OmTatSat пишет:

Send, {ctrl down}
Send, {shift down}
Send, {t} sleep, 200
Send, {ctrl up}
Send, {shift up}

Send +^t

Если же нужно отдельными командами, прочтите про Blind.

5

Re: AHK: залипает Shift

stealzy пишет:

Если же нужно отдельными командами, прочтите про Blind.

Отдельными не нужно, просто пробовал варианты, чтобы избавится от зависания Shift.
Почитал про Blind, не смог понять как поможет, можете в двух словах суть передать?

6

Re: AHK: залипает Shift

Ещё интересно почему

#Persistent
Settimer, EYE, 300
Settimer, EYE_s, 300
Return

EYE:
GetKeyState, state, Control
if state = D
{
SplashImage,,b x0 y715 H20 W50 ZY0 ZX0 fs9 ct1C3DB8 cw82BD3A, CONTROL, , ,Arial
   SetTimer, CHEkIFupCtrl, 200
Return

CHEkIFupCtrl:
GetKeyState, state, Control
if state = U
  {
   SplashImage, Off
   SetTimer, CHEkIFupCtrl, Off
  }
  Return
}

EYE_s:
GetKeyState, state, shift
if state = D
{
SplashImage,,b x0 y715 H20 W50 ZY0 ZX0 fs9 ct1C3DB8 cw82BD3A, SHIFT, , ,Arial
   SetTimer, CHEkIFupShift, 200
Return

CHEkIFupShift:
GetKeyState, state, Shift
if state = U
  {
   SplashImage, Off
   SetTimer, CHEkIFupShift, Off
  }
  Return
}

Не отображает программно залипший Shift а только физическое нажатие?

7

Re: AHK: залипает Shift

Странно,

	Send, {Shift up}
	Send, ^w

тоже перестал работать.
Зато сработал.

	Send, {Shift up}
	Send, <^w

8 (изменено: terra-4, 2019-07-04 13:17:56)

Re: AHK: залипает Shift

Это для закрытии страницы браузера, без залипания..

vk6D::
KeyWait vk6D ; Ждать отпускания клавиши. Используйте одну команду
SendInput, {Blind}^{vk57} ;- закрыть страницу SendInput {Blind} ctrl+W
return

9

Re: AHK: залипает Shift

terra-4, спасибо, попробую, отпишусь о результате.

10

Re: AHK: залипает Shift

OmTatSat, вряд ли кто-то захочет копаться в вашей портянке кода, где уже первая строка a = "" наводит на мысль, что код будет запутанный и возможно с ошибками.
Приведите простой пример, где шифт у вас залипает, тогда можно будет расссмотреть.
terra-4, у меня так не залипает:

f11:: send ^w

11

Re: AHK: залипает Shift

terra-4, отлично, весьма признателен за помощь, за сутки ни одного залипания!)
Можете пожалуйста пояснить почему shift залипал с обычной реализацией send?

12

Re: AHK: залипает Shift

Malcev, вроде решен вопрос, Благодаря terra-4
send ^w пробовал, с моим недокодом залипало((.