3
SendKeys Tastenfolge senden
Hi
mein vb script soll die tasten strg + shift + i senden.
also wie wei ich STRG gedrückt halte dann shift dazu drück und auch halte und dan i
meine vbs sieht so aus geht aber nicht:
set shell = CreateObject("Wscript.Shell")
shell.sendkeys {"^"} "SHIFT" + "i"
thx im foraus
mfg
hexflex
mein vb script soll die tasten strg + shift + i senden.
also wie wei ich STRG gedrückt halte dann shift dazu drück und auch halte und dan i
meine vbs sieht so aus geht aber nicht:
set shell = CreateObject("Wscript.Shell")
shell.sendkeys {"^"} "SHIFT" + "i"
thx im foraus
mfg
hexflex
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 49217
Url: https://administrator.de/contentid/49217
Printed on: April 19, 2024 at 11:04 o'clock
3 Comments
Latest comment
Ich nehm an, Du willst mit Deinem Script ein bestehendes Programm automatisieren? Wär AutoIt für Dich auch diskutabel? Falls ja, meld Dich nochmal, da könnt ich ein paar Beispiele posten.
Hallo hexflex,
Probier dieses mal ist aber leider ungetestet. Speichere den folgenden Quelltext als *.vbs Datei ab vorrausgesetzt du hast kein Antivierenprogramm oder etc. am laufen was die Ausführung von Scriptdateien unterbindet.
set osh = wscript.CreateObject("wscript.Shell")
wscript.sleep 200
set wshshell = createobject("Wscript.shell")
wshshell.popup "starte die Tastenkombination in 3 sek.",3,"STRG+Shift+I"
Set shella = WScript.CreateObject ("Shell.Application")
shella.MinimizeAll
wscript.sleep 100
osh.Sendkeys "^(+{I})"
wscript.sleep 2000
shella.UndoMinimizeAll
Mfg
Probier dieses mal ist aber leider ungetestet. Speichere den folgenden Quelltext als *.vbs Datei ab vorrausgesetzt du hast kein Antivierenprogramm oder etc. am laufen was die Ausführung von Scriptdateien unterbindet.
set osh = wscript.CreateObject("wscript.Shell")
wscript.sleep 200
set wshshell = createobject("Wscript.shell")
wshshell.popup "starte die Tastenkombination in 3 sek.",3,"STRG+Shift+I"
Set shella = WScript.CreateObject ("Shell.Application")
shella.MinimizeAll
wscript.sleep 100
osh.Sendkeys "^(+{I})"
wscript.sleep 2000
shella.UndoMinimizeAll
Mfg
Danle Torben,
Hat super funktioniert!
Hat super funktioniert!
