Vbscript Printscreen zu MSpaint

Nehmen Sie einen Screenshot des aktiven Fensters.

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

Ausführen, Mspaint und einfügen.

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

WshShell.AppActivate "Paint"
WScript.Sleep 500

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

Hier der Betrieb für die Aufnahme screenshot des aktiven Fensters funktioniert einwandfrei..
Auch beginnt es mit mspaint, aber der Inhalt wird nicht eingefügt in die paint-Datei.

InformationsquelleAutor Chetan G | 2013-05-05

  1. 4

    ^V-parameter zu .Sendkeys ist falsch, es sollte sein:

    WshShell.sendkeys "^v"

    Den .Schlaf nach .AppActivate scheint kritisch zu sein; ich konnte es nicht 'arbeiten', bis ich erhöhte die schlafende Zeit:

    WshShell.AppActivate "Paint"
WScript.Sleep 5000

    Dein problem beweist, dass .Sendkeys ist nicht zuverlässig. Schauen hier, vor allem die Entsendung von Moby Disk zu denken, über andere Strategien.

    InformationsquelleAutor Ekkehard.Horner

Schreibe einen Kommentar