Appel VBScript externe

**ZMehdi** · 24/04/2015, 12h39

Bonjour,

J'ai réalisé un script pour automatiser une tache sur un logiciel de gestion (sage), et jusqu'à aujourd'hui tout se passe comme prévu.

Après j'ai créé un autre script pour faire une traçabilité de la 1ère tache. le script a pour but de faire une "Impr écran". Le script tout seul marche parfaitement en utilisant MsPaint il enregistre une image avec un nom donné et sur un chemin donné.

Le blocage: quand j'ai fusionné les deux scripts ça n'a pas marché et c'est devenu illisible... donc j'ai décidié de mettre 2 fichiers. (reajustement.vbs et imprecran.vbs)
quand je fais l'appel de "imprecran.vbs" depuis "reajustement.vbs" tout se passe bien au niveau de la tache et aussi au niveau de l'imprEcran mais quand ça arrive à l'enregistrement du fichier il change le répertoire d'enregistrement ce qui bloque la suite.

Partie du code "reajustement.vbs"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Wscript.sleep(6000)
    oCmd.SendKeys("~")    
    Wscript.sleep(100000)
 
    oCmd.run "imprecran.vbs"    '<<== L'appel du vbs externe
 
    Wscript.sleep(6000)
 
    oCmd.SendKeys("~")
    oCmd.SendKeys("%{F4}")

Partie du code "imprecran.vbs"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
dim MyVar, objShell, dt, ladate, chemin
dt=now
chemin = "c:\reajustement\screenshots\"
ladate = year(dt) &"-"& month(dt) &"-"& day(dt) &"-"& hour(dt) &"-"& minute(dt)
Set objShell = Wscript.CreateObject("WScript.Shell")
 
WScript.Sleep 1500
AltPrintScreen "test"
WScript.Sleep 1500
objShell.Run "mspaint"
Wscript.Sleep 1500
objShell.SendKeys "^v"
Wscript.Sleep 1500
objShell.SendKeys "%fr"
WScript.Sleep 1000
objShell.SendKeys chemin & ladate
WScript.Sleep 1000
objShell.SendKeys "~" 
WScript.Sleep 1000
objShell.SendKeys "%{F4}"

AltPrintScreen est une fonction d'impression d'écran trouvée sur le web très utile.

Merci pour votre aide

**hackoofr** · 24/04/2015, 13h00

Personnellement j'utilise un programme externe en ligne de commande Nircmdc.exe
et le code est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Set Ws = CreateObject("WScript.Shell")
NomImage = Day(Now) & "_" & Month(Now) & "_" & Year(Now) & "-" & Hour(Now) & "_" & Minute(Now)
Command = "nircmdc.exe savescreenshot """ & NomImage &".jpg"""
Resultat = Ws.Run(Command,0,True)

et si tu as besoin plus de personnalisation sur ce dernier, surtout n'hésites pas

**ZMehdi** · 24/04/2015, 13h08

Salut hackoofr,

Merci pour votre aide.
y a-t-il un moyen de le faire sans passer par des programmes externes? des arguments à ajouter quand j'appelle mon fichier... parce que ce n'est qu'une très petite partie du projet, je ne peux pas passer à autre chose maintenant.