VBS ECRIVANT DANS LE BLOC-NOTE...

Commentaire de Alain Proviste le 21/07/2005 15:49:57 administrateur CS

ca serait bien de faire en sorte que si la personne change de fenetre ca ne continu pas à taper dans la fenetre qu'il aura ouverte.

Commentaire de BZY1 le 22/07/2005 08:42:02

salut je pense qu'un truc du genre peut t'aider:

sub form_keypress(ascii as integer)
   Do While ascii=""
   'ton code
   Loop
end sub

ou

sub form_keypress(ascii as integer)
dim a as byte
   Do While a=150
        a=a+1
        if ascii=27 then goto sortie_boucle 'touche echap
   Loop
sortie_boucle:
'reste du code
end sub

a+

Commentaire de Julien39 le 23/07/2005 21:28:17

C'est original bravo.

Commentaire de tekila_bandita le 28/07/2005 10:07:43

SVP: j'ai un petit problème :

a=inputbox("Tape le temps d'attente")
wscript.sleep &a&

comment inclure la valeur "a" dans le code ?


merci pour votre aide.....

Commentaire de tekila_bandita le 28/07/2005 18:04:21

c'est bon j'ai résolu mon problème, tu avais raisons :

dim a
a=inputbox("Tape le temps d'attente")
wscript.sleep clng(a)

;)

Commentaire de tekila_bandita le 08/08/2005 11:52:22

Je voulais tous vous remercier pour le forum, car je pense que je le monopolise pas mal avec mes questions...
Je débute, j'ai 14 ans, j'ai commencé la programmation par un simple msgbox() qui m'a donner envie d'allé plus loin... bien sur, je reconnais que moi aussi j'ai joué au lamers mais bon...J'ai eue mon premier pc ya 7 mois, je n'en avait jamais eu au paravant...
alors, soyez clément! lol
merci en tout cas pour votre aide !
;)

Commentaire de MoRpHeUsTyLe le 28/08/2005 21:34:37

cé vrémen pa mal ton code !Vrémen pratik...

Commentaire de viran le 06/02/2006 13:28:27

Vraiment bien ce code tu peux lancer nimporte quel application comme cmd.exe et faire ca par exemple :

'définission de la variable
'la variable peut porter n'importe quel nom, ici variable.
Set variable=CreateObject("WScript.Shell")
'lancement du notepad dans le répertoire "C:\WINDOWS\System32" grace a la commande "nom de

la variable.Run"
'Bien sur, vous pouvez lancer d'autre chose, du moment que son répertoire est correctement

indiquer.
variable.Run("C:\WINDOWS\System32\cmd.exe")
'patiente 5 millisecondes ( je crois ) pour laisser le temps au pc de s'executer.
wscript.sleep 50
'écris la lettre "L" grace a la commande "nom de la variable.SendKeys"
'Bien sur, plusieurs lettre peuvent apparaitre en meme temps, mais là on doit simuler une

frappe humaine
variable.SendKeys ("@echo off")
variable.SendKeys ("{enter}")
variable.SendKeys ("cls")
variable.SendKeys ("{enter}")
variable.SendKeys ("C")
wscript.sleep 212 '
variable.SendKeys ("h")
wscript.sleep 212
variable.SendKeys ("a")
wscript.sleep 212
variable.SendKeys ("r")
wscript.sleep 212
variable.SendKeys ("g")
wscript.sleep 212
variable.SendKeys ("e")
wscript.sleep 212 '
variable.SendKeys ("m")
wscript.sleep 212
variable.SendKeys ("e")
wscript.sleep 212
variable.SendKeys ("n")
wscript.sleep 212
variable.SendKeys ("t")
wscript.sleep 212
variable.SendKeys (".")
wscript.sleep 212
variable.SendKeys (".")
wscript.sleep 212
variable.SendKeys (".")
wscript.sleep 212
'Les touches comme "entrer", "alt" et compagnie sont introduite par des accoloades {}
'Donc, ici, s'effectuera un saut de ligne...
variable.SendKeys ("{enter}")
wscript.sleep 212
variable.SendKeys ("Termine")
Set WshShell = Nothing

et ca rend vraiment bien!!

si vous savez comment on fait une combinaison de touche "alt+entree" plz merci ;) 9/10 car j'ai fait quelques changements.
J'ai mis 212 au lieu de 121 qui je trouve est trop rapide.

Commentaire de antho2005 le 19/07/2006 17:43:26

Salut tout le monde,

viran => " si vous savez comment on fait une combinaison de touche "alt+entree" "

tout simple (pour pas dire de gros mots) : variable.SendKeys ("{alt}{enter}")

()^_^) 9/10 (^_^()

Antho2005

Commentaire de antho2005 le 20/07/2006 18:51:33

En fait pour faire alt + entrer tu peut faire variable.SendKeys ("%~") ou variable.SendKeys ("%{enter}")

voici les code pour maj, ctrl, alt

Touche Code
MAJ    +
CTRL   ^
ALT    %