Speech Engine User

Date: 02-16-2022

Return to Index

 
'Compilable Example:  (Jose Includes)
#Compiler PBWin 10
#Compile Exe  "voice_receive.exe
#Dim All
%Unicode = 1
#Include "Win32API.inc"
#Include "sapi.inc"
 
%IDC_Body = 500
Global hDlg, vMsg As Dword
Function PBMain() As Long
   Dialog Font "Tahoma",12,0
   Dialog New Pixels, 0, "Speech-To-Text",,,400,200, %WS_SysMenu To hDlg
   Control Add Label, hDlg, %IDC_Body,"", 0,0,400,200
   Dialog Show Modal hDlg Call DlgProc
End Function
 
CallBack Function DlgProc() As Long
   Local temp$, tmp$
   Select Case Cb.Msg
      Case %WM_InitDialog
         vMsg = RegisterWindowMessage("vMessage")
      Case vMsg
         Select Case Cb.LParam  '1=get CC   '9=close speech recognition
            Case 1
               Clipboard Get Text To temp$
               Control Set Text hDlg, %IDC_Body, IIf$(Len(temp$),temp$,"")
         End Select
   End Select
End Function
 
 
 

created by gbSnippets
http://www.garybeene.com/sw/gbsnippets.htm