sendkeys marche pas

Marsh Posté le 13-10-2003 à 19:09:26

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

Reply

Marsh Posté le 13-10-2003 à 19:09:26

Reply

Marsh Posté le 15-10-2003 à 16:19:51

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)

Reply

Marsh Posté le 15-10-2003 à 17:19:47

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 ?

Reply

Marsh Posté le 15-10-2003 à 17:24:37

ah en fait c'est le "&" qui t'intéresse? Ou alors j'ai rien compris?

'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)

Reply

Marsh Posté le 15-10-2003 à 17:54:31

non parcque j ai essayer avec "&" et ca marche pas je suis pas bete

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 ) du clavier

je sais pas si c clair ce que je dit

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:

Reply

Marsh Posté le 15-10-2003 à 18:33:40

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)

Reply

Marsh Posté le 15-10-2003 à 19:20:50

bon j ai trouver ca
http://www.experts-exchange.com/Pr [...] 22172.html

mais bon je pige pas tout

je colle mon code

Code :

Private Declare Function SendMessageLong Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As _
Long, ByVal wParam As Long, ByVal lParam As Any) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Const WM_KEYDOWN = &H100
Private Const WM_KEYUP = &H101
Private Const VK_SPACE = &H20
Private Const VK_7 = &H50
Private Sub chant2_Click()
Timer1.Enabled = False
End Sub
Private Sub Form_Load()
Timer1.Interval = 1000 ' Set Timer interval.
End Sub
Private Sub chant1_Click()
Timer1.Enabled = True
End Sub
Private Sub stopchant_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_timer()
Call SendMessageLong(Daoc, WM_KEYDOWN, VK_7, 0& )
Call SendMessageLong(Daoc, WM_UP, VK_7, 0& )
End Sub

si tu pige ce qui va pas fait moi signe

Reply

sendkeys marche pas

Sujets relatifs:

Leave a Replay