Simuler l'appui sur une touche, cas précis

Question

Bonjour, j'ai r&#233;alis&#233; un programme r&#233;alisant un enregistrement audio &#224; l'aide du contr&#244;le activeX "Audio Play and Record".
Je dispose d'une version d&#233;mo de celui-ci et chaque fois que l'option RECORD est activ&#233;e, une fen&#234;tre appara&#238;t mentionnant qu'il s'agit d'une version d&#233;mo et je dois &#224; chaque fois appuyer sur enter.

Or, j'aimerais que cet appui sur ENTER se fasse de fa&#231;on automatique. 
Comment faire, donc, pour simuler l'appui sur la touche enter &#224; chaque fois qu'il est appuy&#233; sur le bouton record?

Ci-dessous, le code en question.
####################################################

Option Explicit
'----------------------------------------------------------------
'If you need more properties or have any idea for next update
'you can contact us by our web site
'http://www.station-media.com
'----------------------------------------------------------------


Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_NORMAL = 1


Private Sub cmdRecRecord_Click()



    SMAudioPlayAndRecordX1(1).RecBits = "16"
    SMAudioPlayAndRecordX1(1).RecChannels = "2"
    SMAudioPlayAndRecordX1(1).RecFrequency = "44100"


    SMAudioPlayAndRecordX1(1).RecFilename = App.Path & "	estons.wav"


    SMAudioPlayAndRecordX1(1).RecordStart


End Sub


Private Sub cmdRecStop_Click()
    SMAudioPlayAndRecordX1(1).RecordStop


End Sub

####################################################

Merci d'avance

Renfield · Answer

mauvaise solution.... fort a parier que cette fenetre est modale....
une solution pourrait-etre d'acheter ce composant

Renfield
Admin CodeS-SourceS - MVP Visual Basic

PCPT · Answer

salut,

mais temporairement, apr&#232;s le RecordStart, &#233;ventuellement attendre une
demi-seconde (for ... doevents ou un timer), un simple SendKey ENTREE
ou ESPACE devrait suffir....



je reste cela dit d'accord avec la premi&#232;re solution de Rey (salut) : ach&#232;te ;)

salmonrenaud · Answer

SMAudioPlayAndRecordX1(1).RecFilename = App.Path & "	estons.wav"
    SendKeys "{ENTER}"
    SMAudioPlayAndRecordX1(1).RecordStart

Fonctionne parfaitement, m&#234;me pas besoin de timer ou temporisation.
Merci bcp &#224; tous en tt cas!

A+

Renaud

Simuler l'appui sur une touche, cas précis

3 réponses

Discussions similaires