활성 창 제목을 Microsoft Windows의 클립 보드에 드래그 NaturallySpeaking의 고급 스크립팅

Question

Microsoft Windows의 활성 창 제목을 Dragon 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 파일에 모든 기능을 유지 선언, 함수 및 전역 상수, 등), 그래서 난 그냥 메인 하위 부분이 필요하지만, 참조 된 모든 기능과 선언을 하나의 스크립트에 넣을 수 있습니다.

제 H