3

我有一个显示一本书的窗口。在下面的两个较小的框中,有打开的书的页码和卷信息。我可以很容易地得到这些信息,如下所示:

ControlGetText, volume, ThunderRT6TextBox3      
ControlGetText, page, ThunderRT6TextBox2

然后我的脚本使我的鼠标指针移动到一个按钮。它单击它,并弹出一个新窗口。在那个窗口中,有更多与图书相关的文本信息,例如出版商、作者姓名、版本等。我想检索该信息。但是当我尝试相同的策略时它不起作用,例如:

ControlGetText, data, RichTextWndClass3

这两种情况之间的唯一区别是这两个小框是可编辑的,您可以输入文本而此窗口是静态的。

我尝试了许多其他选项,例如: SendEvent ^a 相当于 control + a,应该选择所有内容。我尝试暂停,但它永远不会选择。我尝试使用脚本手动双击该窗口。它起作用了,一个词就这样被选中了。即使这样 SendEvent ^a 也不做任何事情。但是,如果我执行 SendEvent ^{insert},则所选单词会被复制到我的剪贴板。

我尝试了更多组合:

ControlSend ahk_class ThunderRT6FormDC, ^a
ControlSend ClassNN RichTextWndClass3, ^a

ControlSend ThunderRT6FormDC, ^a
ControlSend RichTextWndClass3, ^a

它们都不起作用。所有文本选择都不会在该窗口中显示出来。

剩下的唯一选择是让脚本手动选择整个文本。但是,这是缓慢且非常荒谬的。此外,在 Window Spy 下的部分:可见窗口文本中,文本都在那里。我尝试了许多其他可能性,但我已经无能为力了。我如何直接收获该文本?


编辑——窗口的文本显示在窗口间谍中的标题下:TitleMatchMode=slow Visible Text,而不是标题:可见窗口文本


编辑——我和你谈过两个窗口。我得到卷和页码的第一个。第二个需要通过按下按钮弹出。这两个窗口都有相同的类名: ahk_class ThunderRT6MDIForm 这有什么问题吗?


编辑——结论是我不可能直接从第二个窗口获取该文本。因此,我选择了蹩脚、无聊的手动方法。我将 {shift down} 发送到活动窗口,然后在窗口底部单击。然后我将选择保存到我的剪贴板。它有效,但它只是愚蠢的。请帮我找到一个比这个更优雅的解决方案。

这是我使用的代码:

ControlGetText, volume, ThunderRT6TextBox3 

ControlGetText, page, ThunderRT6TextBox2 

Click, 110, 70 

sleep 1000

SendInput {shift down}

click 29, 490

SendInput {shift up}

sleep 1000

SendInput, ^{ins} 

sleep 100

有趣的是,真正的键盘键,如 abc 是不可能的。但我可以发送 ctrl、shift 和 ins。正如我上面提到的,^c 也给出了问题,就像 ^a 给出了问题一样。

4

2 回答 2

1

有一个自动热键脚本可以模拟大多数窗口间谍逻辑。它被称为 AHK_Window_Info_v1.7.ahk。好消息是...您可以运行它以查看您的第二个窗口文本是否对该脚本可见,如果是...提取信息所需的逻辑在脚本中可用。这是该网页的链接,该脚本可通过该页面上的 SKAN 保​​管箱链接获得。 http://www.autohotkey.com/board/topic/8204-ahk-window-info-17/

于 2014-03-29T20:33:54.010 回答
1

该例程将完成从活动窗口获取和返回以下文本部分的工作: - EdtWindowTextFastVisible - EdtWindowTextSlowVisible - EdtWindowTextFastHidden - EdtWindowTextSlowHidden

MyGetWindowText(ByRef EdtWindowTextFastVisible, ByRef EdtWindowTextSlowVisible, ByRef EdtWindowTextFastHidden,ByRef EdtWindowTextSlowHidden)
{
; Source: https://code.google.com/p/autohotkey-cn/source/browse/trunk/Source/AHK_Window_Info/AHK_Window_Info_v1.7.ahk?r=6
EdtWindowTextFastVisible =
EdtWindowTextSlowVisible =
EdtWindowTextFastHidden =
EdtWindowTextSlowHidden =

WindowControlTextSize = 32767
VarSetCapacity(WindowControlText, WindowControlTextSize)
WinGet, WindowUniqueID, ID, A

;Suggested by Chris
WinGet, ListOfControlHandles, ControlListHwnd, ahk_id %WindowUniqueID% ; Requires v1.0.43.06+.
Loop, Parse, ListOfControlHandles, `n
{
    text_is_fast := true
    If not DllCall("GetWindowText", "uint", A_LoopField, "str", WindowControlText, "int", WindowControlTextSize)
    {
        text_is_fast := false
        SendMessage, 0xD, WindowControlTextSize, &WindowControlText,, ahk_id %A_LoopField% ; 0xD is WM_GETTEXT
    }
    If (WindowControlText <> ""){
        ControlGet, WindowControlStyle, Style,,, ahk_id %A_LoopField%
        If (WindowControlStyle & 0x10000000)
        { ; Control is visible vs. hidden (WS_VISIBLE).
            If text_is_fast
            EdtWindowTextFastVisible = %EdtWindowTextFastVisible%%WindowControlText%`r`n
            Else
            EdtWindowTextSlowVisible = %EdtWindowTextSlowVisible%%WindowControlText%`r`n
        } Else
        { ; Hidden text.
            If text_is_fast
            EdtWindowTextFastHidden = %EdtWindowTextFastHidden%%WindowControlText%`r`n
            Else
            EdtWindowTextSlowHidden = %EdtWindowTextSlowHidden%%WindowControlText%`r`n
        }
    }
}

;EdtWindowTextFastVisibleFull := ShowOnlyAPartInGui("EdtWindowTextFastVisible", EdtWindowTextFastVisible, 400)
;EdtWindowTextSlowVisibleFull := ShowOnlyAPartInGui("EdtWindowTextSlowVisible", EdtWindowTextSlowVisible, 400)
;EdtWindowTextFastHiddenFull := ShowOnlyAPartInGui("EdtWindowTextFastHidden", EdtWindowTextFastHidden, 400)
;EdtWindowTextSlowHiddenFull := ShowOnlyAPartInGui("EdtWindowTextSlowHidden", EdtWindowTextSlowHidden, 400)

Return
}
于 2015-01-22T19:50:42.680 回答