tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Windows音声認識のマイクボタン操作につきまして
投稿日: 2022/03/09(Wed) 10:49
投稿者すす
お世話になります。

検索などでいろいろ調べましたが分かりませんでしたので、ご質問致しました。

OS: Windows10 , Windows11  VB6
すべてのアプリ → Windows簡単操作 →  Windows音声認識
Windows音声認識を閉じる事はできます。

質問
Windows音声認識の、まるい中のマイクボタンをクリックして
[聞き取ります] → [オフ] →[聞き取ります]を切り替えができないかと思っています。
"?????"が分かればと思っています。推測になり、ご質問して申し訳ありません。
ご教示を願えますと幸いであります。


Option Explicit

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassNams As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hwndParent As Long, ByVal hwndChildAfter As Long, ByVal lpClassName As String, ByVal lpWindowName As String) As Long


Private Sub Command1_Click()

                    Dim Ret As Long
                    Dim hwnd As Long
                    Dim Child_hwnd As Long
                  
                  hwnd = FindWindow("MS:SpeechTopLevel", vbNullString)
                    
                  If hwnd <> 0 Then

                      Child_hwnd = FindWindowEx(hwnd, 0, "?????", vbNullString) '推測になります。
                      
                      Ret = SendMessage(Child_hwnd, &HF5, 0, 0) 'ボタンをクリック

                      '・
                      '・
                      '・
                      Ret = SendMessage(hwnd, &H10, 0&, 0&) 'Windows音声認識を閉じる事はできます。

                   End If
End Sub

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。