Appli hta avec vb

Fermé
pierre125 - 30 avril 2011 à 11:10
 pierre125 - 30 avril 2011 à 16:06
Bonjour,

jai fait une appli hta qui affiche un bouton et qui lance le bloc notes quand on clique dessus.
mais je souhaiterais ecrire dans le fichier donc simuler des touches.

voici le code de mon appli hta:
<HTML>
 <HEAD>
 <!-- [...] -->
 <SCRIPT TYPE="text/Vbscript">
  Sub monBouton_onclick()
  Set manipuleFichiers = CreateObject("WScript.shell")
  manipuleFichiers.run("notepad.exe") 'On lance l'application
  End Sub
 </SCRIPT>
 <script language="vbs">
 ResizeTo 400,140
MoveTo 250,200
</script>
</HEAD>
<BODY><center>
Cliquez sur le bouton pour lancer la connexion:<br>
 <br><INPUT TYPE="button" NAME="monBouton" VALUE="Connexion">
</center></BODY>
</HTML>


j'ai testé avec keybd_event ou send keys mais je ne sais pas où l'intégrer dans le script!

voici le code de la touche "z" avec keybd event:

// Appuie sur la touche Z
keybd_event(0x59,0,0,0);

est ce que quelqu'un sait où mettre ceci dans mon code html?? svp

cordialement,

pierre125

A voir également:

2 réponses

d'après ce que j'ai vu keybd_event est du langage c.
donc je prend plutot sendkeys. où faut il le mettre pour que ça fonctionne svp?
0
j'ai testé sendkeys mais où le place t'on dans le code?? svp
dans le script d'ouverture du programme?
0
j'ai testé ça:
<HTML>
 <HEAD>
 <!-- [...] -->
 <SCRIPT TYPE="text/Vbscript">
  Sub monBouton_onclick()
  Set manipuleFichiers = CreateObject("WScript.shell")
  manipuleFichiers.run("notepad.exe") 'On lance l'application
SendKeys("{ENTER}") 
 End Sub
 </SCRIPT>

	<script language="vbs">
 ResizeTo 400,140
MoveTo 250,200
</script>
</HEAD>
<BODY><center>
Cliquez sur le bouton pour lancer la connexion:<br>
 <br><INPUT TYPE="button" NAME="monBouton" VALUE="Connexion">
</center></BODY>
</HTML>


ça me lance bien le bloc notes mais ça n'appuie pas sur entrée et ça me dit que sendkeys n'est pas compatible. quelqu'un aurait il une idée svp?
0