VBA et le sendkeys au dos

J'ai beau relire mais il me manque des éléments/précisions...
Peux-tu etre plus exaustif stp. Enfin détail-nous l'objectif, le materiel et méthodes retenues pour atteindre l'objectif. @+

~°sidarus°~

Bonjour,

Puisque que vous avez commencer avec VBA, je vous conseille d'utiliser VBS (un sous-ensemble) qui s'insère très bien sous VBA et vous permettra d'effectuer tous les opérations requises en mode DOS.

Enfin, c'est un avis !

Lupin

ARf bonne question!
Je tablerai pour un fichier comiler en .exe, donc il est pas évident de connaître le langage dans lequel il est porgrammé.

Je ne sais si je suis très clair!

En tout cas merci de s'intéresser à mon problème!

Salut a tous

je pense que la solutions est dans l'utilisation d'uneAPI, je l'ai utilisée, je la retrouve et je vous la donne

A+

Voila je l'ai retrouvé

Fonction keybd_event

Declare Sub keybd_event Lib "user32" Alias "keybd_event" ( _
ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
Versions :
. Windows 95/98 : Oui
. Windows NT : A partir de 3.1
. Windows 2000/XP : Oui

Description :
Cette API permet de simuler des frappes au clavier tout comme vous le feriez.
bVk est le code ascii de la touche à envoyer au buffer clavier.
bScan est utilisé pour définir l'action de certaines touches spéciales comme "Imprime écran".
dwFlags est l'évènement que l'on souhaite génèrer comme KeyUp ou l'utilisation des touches étendues sur les claviers spéciaux.
dwExtraInfo permet d'ajouter une valeur supplémentaire à la touche actionnée.

Exemple d'utilisation :

' Exemple de Phil (Plancon@Onetelnet.fr)

Option Explicit

Private Declare Sub keybd_event Lib "user32" Alias "keybd_event" ( _
ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)

' bVk est le code ascii de la touche
Private Const VK_LWIN = &H5B
Private Const VK_APPS = &H5D

' Pour d'autres touches...
' a à z 65 à 90
' Home 36
' End 35
' Flêche vers le haut 38
' Flêche vers le bas 40
' Flêche vers la gauche 37
' Flêche vers la droite 39
' Echap 27
' Impr écran 44 (= vbKeySnapshot)
' Page haut 33
' Page bas 34
' Insert 45
' F1 à F12 112 à 123
' Barre d'espace 32
' Ctrl 17
' Alt 18
' Maj 16
' Verr Num 144
' Arrêt défil 145
' Tab 9
' Shift 16

' bscan (Lorsque l'on utilise la touche imprime écran)
Const TheScreen = 1 ' Copie l'écran
Const TheForm = 0 ' Copie la fenêtre active

' dwFlags (le drapeau) :
Const KEYEVENTF_EXTENDEDKEY = &H1 ' Pour actionner les touches étendues
Const KEYEVENTF_KEYUP = &H2 ' Relache la touche

' ---Cet exemple montre comment gérer Windows---
Sub GestionWindows(Index As Integer)
' ---déclarations des variables---
Dim VK_ACTION As Long
' ---Traite l'action---
Select Case Index
Case 0 ' Ouverture de l'Exploreur
VK_ACTION = &H45 ' La lettre e (ascii 69)
Case 1 ' Rechercher des fichiers
VK_ACTION = &H46 ' La lettre f (ascii 70)
Case 2 ' Réduire toutes les fenêtres
VK_ACTION = &H4D ' La lettre m (ascii 77)
Case 3 ' Ouverture du menu exécuter
VK_ACTION = &H52 ' La lettre r (ascii 82)
Case 4 ' Actionner le menu démarrer
VK_ACTION = &H5B ' Le bouton démarrer de windows sur le clavier (ascci 91)
End Select
' ---Envoie de la séquence de touche---
Call keybd_event(VK_LWIN, 0, 0, 0)
Call keybd_event(VK_ACTION, 0, 0, 0)
Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)
End Sub

Private Sub Command1_Click()
' ---Copie d'écran de la forme active (pour l'écran utiliser "TheScreen")---
keybd_event vbKeySnapshot, TheForm, 0&, 0&
' ---On laisse le temps à Windows de charger l'image en mémoire---
DoEvents
' ---Copie du presse-papier dans le contrôle image1---
Image1 = Clipboard.GetData(vbCFBitmap)
End Sub

Merci, a docvb.free.fr et a RVTT (vbfrance.com)

j'ai lu dans votre premier msg que vous aviez utilise cette fonction, sans succés, mais je vous l'ai copier comme je l'ai eu. ces explication mon permis de piloter un automate.

a vous de voir

salut

Merci Luckymonaco de t'intéresser à moi et de me proposer cette solution, malheureusement, j'avais déja envisager keydb_event!
Néanmoins peut-être est-ce une erreur de synthaxe de ma part, étant un parfait débutant (1 semaine de porgrammation à tout casser), ce serait très probable.

Voile le programme tel qu'il est avec les deux fonctions d'emmulation calvier:

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Declare Sub keybd_event Lib "user32" Alias "keybd_event" ( _
ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)

Sub rappatriement()

Dim I As Long
I = Shell ("c:\WINNT\bureau\RS232\T.exe")
' ouverture du prog en Dos
AppActivate I
' Prise de main sur le prog en DOS
Sleep 5000
' attente d'éxécution
SendKeys ({F2})
' emmule F2 sur le programme qui a la main, lance le prog
Sleep 2000
SendKeys (A)
' nom du fichier texte généré par le prog en dos
Sleep 500
SendKeys (~)
' validation du nom
' emmule entré
Sleep 120000
SendKeys ({F3})
' emmule F3 arrêt du prog
Sleep 1000
SendKeys ({esc})
' emmule echap, termine le prog DOS

End Sub

Sub Rappatriement2()
Dim I As Long
Const VK_démarre = 71
Const VK_arrete = 72
Const VK_termine = 1B
Const VK_nom = 41
'Const VK_ok = 'ba la comme ça je me rappelle plus du code ascii correspondant à entree
I = Shell ("c:\WINNT\bureau\RS232\T.exe")
' ouverture du prog en Dos
AppActivate (I)
' Prise de main sur le prog en DOS
Sleep 5000
' attente d'éxécution
Call keybd_event(Vk_démmarre, 0, 0, 0)
' emmule F2 sur le programme qui a la main, lance le prog
Sleep 2000
Call keybd_event(Vk_nom, 0, 0, 0)
' nom du fichier texte généré par le prog en dos
Sleep 500
Call keybd_event(Vk_ok, 0, 0, 0)
' validation du nom
' emmule entré
Sleep 120000
Call keydb_event(Vk_arrete, 0, 0, 0)
' emmule F3 arrêt du prog
Sleep 1000
Call keydb_event(Vk_termine, 0, 0, 0)
' emmule echap, termine le prog DOS

end sub

Donc voila, si vous voyez une grossière erreur, merci de me faire signe.
Très cordialement

Dimi

Salut,

Pour passer des touches dans une fenêtre Dos moi j'ai utilisé le logiciel BillRedirect. C'est un logiciel qui se spécialise dans la redirection des données va voir ... www.BillProduction.com

Bonne chance ...


Steph