2

Dragon NaturallySpeaking の高度なスクリプトで、アクティブなウィンドウのタイトルを Microsoft Windows のクリップボードにコピーする方法はありますか?

私が使用する回避策は、 AutoHotkeyスクリプトを定義することです。

^!l::
WinGetActiveTitle, Title
Clipboard = %Title%
return

音声コマンドでキーボード ショートカットを呼び出します。

ここに画像の説明を入力

しかし、AutoHotkey と Dragon NaturallySpeaking の間でジャングルにする必要はありません。「純粋な」高度なスクリプトで実行できますか?

4

1 に答える 1

2

はい、次のように、Dragon NaturallySpeaking の高度なスクリプトを使用して、アクティブなウィンドウのタイトルをクリップボードにコピーできます。

'
'   get window title
'
Sub Main
    Clipboard ( GetWindowTitle )
End Sub
'
'   Use these Windows Functions for Getting an active Window title
'
Declare Function GetForegroundWindow Lib "user32" () As Long
'
Declare Function GetWindowText Lib "user32" _
    Alias "GetWindowTextA" ( ByVal hwnd As Long , _
        ByVal lpString As String , ByVal cch As Long ) As Long
'
'   GetWindowTitle
'   (Gets an active Window title)
'
Function GetWindowTitle() As String
    Dim x As Integer
    Dim TitleText As String * 300
    Dim hw As Long
    hw = GetForegroundWindow()
    x = GetWindowText ( hw , TitleText , Len ( TitleText ) )
    GetWindowTitle = Trim ( Left ( TitleText , x ) )
End Function
'

今、私はすべての関数をグローバル '#Uses ファイル (他の宣言、関数、グローバル定数などと共に) に保持しているので、必要なのは Main Sub 部分だけですが、参照されるすべての関数と宣言を必要なスクリプトも 1 つです。

H番目

于 2016-07-21T21:13:40.267 に答える