Vbscript Printscreen à MSpaint

Prendre une capture d'écran de la fenêtre active.

Set Wshshell=CreateObject("Word.Basic")
WshShell.sendkeys"%{prtsc}"
WScript.Sleep 1500

Exécuter Mspaint et coller.

set Wshshell = WScript.CreateObject("WScript.Shell")
Wshshell.Run "mspaint"
WScript.Sleep 500

WshShell.AppActivate "Paint"
WScript.Sleep 500

WshShell.sendkeys "^(v)"
WScript.Sleep 1500

Ici, l'opération de Prise de capture d'écran de la fenêtre active fonctionne très bien..
Aussi, il commence avec mspaint, mais le contenu n'est pas été collé dans le fichier de peinture.

OriginalL'auteur Chetan G | 2013-05-05

  1. 4

    Votre ^V paramètre .Sendkeys est mauvais, il doit être:

    WshShell.sendkeys "^v"

    L' .Dormir après .AppActivate semble être critique; je ne pouvais pas le faire "travailler" jusqu'à ce que j'ai augmenté le temps de dormir:

    WshShell.AppActivate "Paint"
WScript.Sleep 5000

    Votre problème prouve que .Sendkeys n'est pas fiable. Regarder ici, en particulier la publication de Moby Disque de réfléchir à d'autres stratégies.

    OriginalL'auteur Ekkehard.Horner