Skripte(PHP,ASP,Perl...)

Script zur Umschaltung zwischen analog und digi-out (Sound)

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

Frage

Habe eine 5.1 Soundkarte und möchte gerne per VB-Script (hatte bereits eines, welches aus versehen gelöscht wurde) die Umschaltung zwischen digi-out und analog steuern. Zweck des ganzen ist, daß wenn ich das Programm Tvtool starte, automatisch umgeschaltet wird (in TVtool kann man eine Datei starten lassen). Danke für Hilfe.

Antwort 1 von Christoph R

wieder hoch

Antwort 2 von Christoph R

hoch damit

Antwort 3 von Christoph R

ich glaub langsam echt, daß ich hier falsch bin... :(

Antwort 4 von Christoph R

Hilllllfeeee !!!!

Antwort 5 von Christoph R

ich gebe nicht auf...

Antwort 6 von Christoph R

nochmal nach oben...

Antwort 7 von asok

Hat dein Skript mit jeder Soundkarte funktioniert?

Antwort 8 von Christoph R

Soweit ich weiß ja, denn ich hatte es auch aus irgendeinem Forum und der Autor erklärte mir, daß es nichts anderes macht als:
- Lautstärkeregelung öffnen
- Erweiterte Einstellungen für Wiedergabemodus öffnen
- Und zu guter letzt noch ein Häkchen in "1 Nur digitale Ausgabe" setzt ODER entfernt
- Die Eigenschaftsseiten wieder schließen

Beim Start des Scriptes hat man auch gesehen, wie diese Fenster aufpoppen und sich wieder schließen

Antwort 9 von asok

Ach so, das Skript hat vermutlich einfach die Benutzereingaben simuliert. Warum hast du das nicht gleich gesagt? Das lässt sich machen - wenn das bis morgen Zeit hat.

Antwort 10 von Christoph R

Klar, super.
Das wär echt nett.

Antwort 11 von asok

Ich fang' mal so an:


Set shell = CreateObject("WScript.Shell")
shell.Run "sndvol32.exe"
WScript.Sleep 500
shell.SendKeys("e1{ESC}")

Das ist mehr "workaround", als echte Lösung, sollte aber dennoch funktionieren. Hängt aber auch von der Seite "Erweiterte Einstellungen" ab. Die ist je nach Fähigkeiten der Soundkarte verschieden, wenn mich nicht alles täuscht. Naja, probier' das erstmal aus.

Antwort 12 von Christoph R

Funktioniert wunderbar. Das einzige was noch fehlt ist, daß es auch wieder die Soundeigenschaften schließt.

Antwort 13 von asok

Ersetze die letzte Zeile durch


shell.SendKeys("e1{ESC}%{F4}")

Antwort 14 von Christoph R

Superklasse Toll!
Vielen Dank.
War wirklich sehr nett von Dir!