VBS Lautstärke regeln per SendKeys

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • VBS Lautstärke regeln per SendKeys

    set wshell = CreateObject("Wscript.shell")
    wshell.run "C:\Windows\System32\SndVol.exe"
    If wshell.AppActivate("SndVol.exe") = FALSE then
    Wscript.Sleep 1000
    else
    wshell.sendkeys "{TAB}"
    WScript.Sleep 500
    wshell.sendkeys "{TAB}"
    WScript.Sleep 500
    wshell.sendkeys "{PGUP}"
    End if

    funktioniert eigentlich alles, keine Fehlermeldung und so aber irgendwie werden die sendkeys befehle nicht wirklich umgesetzt...
    Weiss jemand ne lösung?