script.vbs
-----------------------------------------
set Arg = Wscript.Arguments
Set Shell = WScript.CreateObject("WScript.Shell")
shell.Run "notepad.exe " & Arg(0),1
Playstring "%fe%fq"
Sub PlayString(s)
For i = 1 To len(s)
'le délai de 50 millisecondes s'impose, sinon ça coince!
WScript.Sleep 50
shell.SendKeys Mid(s, i, 1)
Next
End Sub
--------------------
je le lance avec la commande "script.vbs nom du fichier"
il fonctionne bien sauf si un autre programmme se lance en même temps, il
pert le focus donc le script ne fonctionne plus
Il y a t-il une solution ?
Merci d'avance
Yann
Le programme (program.vbs) doit juste ouvrir le fichier avec notepad et l'enregistrer
Il y a moyen de faire ça avec AppActivate/SendKeys mais pourquoi ne pas plutôt utiliser le File System Object pour ouvrir, modifier et enregistrer le fichier ?
note : Les scripts basés sur AppActivate et/ou SendKeys finissent généralement à la poubelle :-)
Amicalement,
-- Jean - JMST Belgium
je vais tester
Yann
"Jean" <repondre@groupe.svp> a écrit dans le message de news:
mn.3d4d7d627b957a58.41316@windows...
Le programme (program.vbs) doit juste ouvrir le fichier avec notepad et
l'enregistrer
Il y a moyen de faire ça avec AppActivate/SendKeys mais pourquoi ne pas
plutôt utiliser le File System Object pour ouvrir, modifier et enregistrer
le fichier ?
Le programme (program.vbs) doit juste ouvrir le fichier avec notepad et l'enregistrer
Il y a moyen de faire ça avec AppActivate/SendKeys mais pourquoi ne pas plutôt utiliser le File System Object pour ouvrir, modifier et enregistrer le fichier ?
