TIA SendKeys Anweisung für Screenshot

[WUNHofmann]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo Zusammen,

ich möchte per Skript eine Tastenkombination senden um einen Screenshot zu erstellen.

WinCC Advanced PC Runtime

Ich verwende folgendes Skript:

Dim WshShell
Set WshShell = CreateObject("Wscript.Shell")
WshShell.SendKeys  "{PRTSC}"

Das Skript läuft ohne Fehlermeldung ab, leider wird die Taste nicht gesendet.

Zum testen ob prinzipiell Tasten gesendet werden habe ich auch folgendes probiert:

Dim WshShell
Set WshShell = CreateObject("Wscript.Shell")
WshShell.Run "Notepad"
WshShell.SendKeys  "test abcdedf"

Notepad wird geöffnet aber es passiert keine Texteingabe

Hat jemand eine Idee?

 

[Matze001]

Vermutlich wird die eingabe geschickt... aber es kommt nicht im notepad an, weil es bis dahin noch gar nicht offen oder nicht im fokus ist.
Vielleicht tut ja auch dein Printscreen... schonmal probiert das Bild aus der Zwischenabnlage irgendwo einzufügen?

Alternativ über die Drucken-Funktion auf nen PDF-Printer gehen?

Grüße

Marcel

 

[WUNHofmann]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo Matze,

du hast recht. Habe auch gerade rausgefunden das man die "Drucken" Taste nicht mit SendKeys betätigen kann.

Habe jetzt Alt+F12 verwendet, jetzt klappt es.

Dim WshShell
Set WshShell = CreateObject("Wscript.Shell")
WshShell.SendKeys  "%{F12}"
End Sub

Ich verwende übrigens "Greenshot". Dort kann man die Tastenkombinationen für den Screenshot selbst festlegen und ohne Dialog
den Screenshot direkt in eine Datei speichern.