Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1563 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  sendkeys marche pas

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

sendkeys marche pas

n°538591
belgarion
Emporté par le Nexus
Posté le 13-10-2003 à 19:09:26  profilanswer
 

j ai un programme ( un jeux ) et je voudrais faire un chtit prog VB  qui lui fera croire que j appui sur la touche 1 en boucle
 
j ai trouver comment envoyer une touche c la fonction sendkeys
 
mais mon prob c que sendkeys('1') ca envoie bien 1 a mon jeux mais il n envoi pas exactement un appui sur la touche 1 donc ca fonctionne pas comme je veux :cry:  
 
et j arrive pas a me servir de la fonction sendmessage


Message édité par belgarion le 13-10-2003 à 20:28:03
mood
Publicité
Posté le 13-10-2003 à 19:09:26  profilanswer
 

n°540490
drasche
Posté le 15-10-2003 à 16:19:51  profilanswer
 

pourquoi dis-tu que ça n'envoie pas exactement un appui sur la touche 1? Tu peux développer un peu? :??:


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
n°540587
belgarion
Emporté par le Nexus
Posté le 15-10-2003 à 17:19:47  profilanswer
 

oui je peux
 
pour lancer un sort dans mon jeux faut appuyer sur la touche 1 (la touche & pas le clavier numerique)
 
et quand j utilise mon prog ca ne lance pas le sort
 
par contre quand j appuie sur la touche entree dans le jeux pour que j ecrive un message la en faisant tourner le programme je vois bien les 1 qui s inscrive
 
c plus clair ?

n°540600
drasche
Posté le 15-10-2003 à 17:24:37  profilanswer
 

ah en fait c'est le "&" qui t'intéresse? Ou alors j'ai rien compris? :D
 
'fin comme je le vois c'est le "&" que tu dois balancer et non un "1".


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
n°540623
belgarion
Emporté par le Nexus
Posté le 15-10-2003 à 17:54:31  profilanswer
 

non parcque j ai essayer avec "&" et ca marche pas je suis pas bete :p
 
en faite le probleme j ai bien l impression c que sendkeys enoie au jeux le string qui serait associer à un appui sur la touche "1"
 
et le jeux n attend pas le string mais le message comme quoi on a appuyer sur la touche numero 56 (je dit n importe quoi comme numero :p ) du clavier
 
je sais pas si c clair ce que je dit :p
 
en gros la fonction sendKeys marchera pas dans mon cas
il faudrait que j utilise la fonction SendMessage mais j arrive pas a la faire marcher :cry:

n°540663
drasche
Posté le 15-10-2003 à 18:33:40  profilanswer
 

oui je vois ce que tu veux dire, et effectivement, le SendKeys ne va pas donner un résultat valable dans ce cas :/
 
bon faudrait que je retourne lire ma doc sur SendMessage, me semble que je m'en suis jamais servi non plus jusqu'à présent :/


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
n°540698
belgarion
Emporté par le Nexus
Posté le 15-10-2003 à 19:20:50  profilanswer
 

bon j ai trouver ca
http://www.experts-exchange.com/Pr [...] 22172.html
 
mais bon je pige pas tout :/
 
je colle mon code

Code :
  1. Private Declare Function SendMessageLong Lib "user32" _
  2. Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As _
  3. Long, ByVal wParam As Long, ByVal lParam As Any) As Long
  4. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  5. Private Const WM_KEYDOWN = &H100
  6. Private Const WM_KEYUP = &H101
  7. Private Const VK_SPACE = &H20
  8. Private Const VK_7 = &H50
  9. Private Sub chant2_Click()
  10. Timer1.Enabled = False
  11. End Sub
  12. Private Sub Form_Load()
  13.    Timer1.Interval = 1000   ' Set Timer interval.
  14. End Sub
  15. Private Sub chant1_Click()
  16. AppActivate ("Dark Age of Camelot, Copyright © 2001-03 Mythic Entertainment, Inc." )
  17. Timer1.Enabled = True
  18. End Sub
  19. Private Sub stopchant_Click()
  20. Timer1.Enabled = False
  21. End Sub
  22. Private Sub Timer1_timer()
  23. Daoc = FindWindow("Dark Age of Camelot, Copyright © 2001-03 Mythic Entertainment, Inc.", vbNullString)
  24. Call SendMessageLong(Daoc, WM_KEYDOWN, VK_7, 0& )
  25. Call SendMessageLong(Daoc, WM_UP, VK_7, 0& )
  26. End Sub


 
si tu pige ce qui va pas fait moi signe


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  sendkeys marche pas

 

Sujets relatifs
Comment marche le site http://amg.sytes.net/Commet utiliser POST, et pourquoi mon example ne marche pas :/
Code pour un pop-up marche pas sur IE et a des problèmes sur MozillaMon appercu live data ne marche pas avec DreamW
Pb avec la fonction isNull qui marche pasPassage de variable ne marche plus ?? HELP
100% en Y marche pas avec Netscape./configure : comment ça marche ?
position de l'image...ca marche pas[RESOLU] euh pkoi ca marche pas cette image??
Plus de sujets relatifs à : sendkeys marche pas


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR