[VB6] MAPI ed emulazione pulsante da tastiera

[LMondi]

Prova questo codice:
In un Modulo Bas
Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Su una form inserisci due Button ed una Txt:

Const KEYEVENTF_EXTENDEDKEY = &H1 'pressione del tasto (keyDown)
Const KEYEVENTF_KEYUP = &H2       'rilascio del tasto premuto (keyUp)
Private Sub Command1_Click()
Text1.SetFocus
    keybd_event vbKeyA, 0, KEYEVENTF_EXTENDEDKEY, 0 'simula la pressione del tasto "A"
   keybd_event vbKeyA, 0, KEYEVENTF_KEYUP, 0        'simula il rilascio del tasto "A"

    keybd_event vbKeyP, 0, KEYEVENTF_EXTENDEDKEY, 0 'simula la pressione del tasto "P"
    keybd_event vbKeyP, 0, KEYEVENTF_KEYUP, 0      'simula il rilascio del tasto "P"

   keybd_event vbKeyI, 0, KEYEVENTF_EXTENDEDKEY, 0 'simula la pressione del tasto "I"
   keybd_event vbKeyI, 0, KEYEVENTF_KEYUP, 0       'simula il rilascio del tasto "I"
   
End Sub
Private Sub Command2_Click()
    Command1.SetFocus
    keybd_event vbKeyReturn, 0, KEYEVENTF_EXTENDEDKEY, 0
    keybd_event vbKeyReturn, 0, KEYEVENTF_KEYUP, 0
End Sub

[MdE2005]

Ciao LMondi..questa funzione gliel'ho già consigliata ma penso che l'utente sia indirizzato verso SendKeys..il problema che rimane è quello di inviare il tasto ENTER ad una finestra NON del progetto ( a quanto ho capito..)

ciao

[Estro]

esattamente!!!!!!

[Estro]

Ho anche trovato queste due righe di codice ma ho non riesco io a inserirle esattamente nel codice e utilizzarle o non sono di grande utilizzo! nome applicazione è Outlook Exspress nel mio caso?

il % è = ALT I= I di Invio(riferito all' email)

Interaction.AppActivate ("nome applicazione")
Interaction.SendKeys "%(I)"

[MdE2005]

No, nel tuo caso è l'indirizzo del file ed il nome completo
Es. "c:\miofile.exe"

Prova con enter invece che con I..

[Estro]

per miofile.exe intendi l' applicazione outlook ? o il mio eseguibile vb? scusa ma ho ripreso a utilizzare vb dopo anni!

[MdE2005]

No, intendo il file in cui simulare la pressione dei tasti, quindi outlook express..

ciao

[Estro]

niente da fare! ne cosi...

Interaction.AppActivate ("C:\Programmi\Outlook Express.exe")
Interaction.SendKeys "(ENTER)"

ne cosi...

Interaction.AppActivate ("C:\Programmi\Outlook Express\msimn.exe")
Interaction.SendKeys "(ENTER)"

[MdE2005]

Prova ad usare il codice per la calcolatrice di windows, chiaramente con al posto di enter un numero..

ciao