アクティブウィンドウのタイトルをドラゴンのMicrosoft WindowsのクリップボードにコピーするNaturallySpeakingの高度なスクリプト

Question

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

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

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

は

私が使用してこの問題を回避するには、AutoHotkeyスクリプトを定義することです

を私はジャングルに持っていないことを好むだろうそれはAutoHotkeyとDragon NaturallySpeakingの間です。それは "純粋な"高度なスクリプトで行うことができますか？

Answer 1

はい、次のように、あなたがドラゴン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の部分だけが必要ですが、参照先の関数と宣言を必要な場所に置くこともできます。

第H