Hallo da draußen,
diese Idee entbehrt sich nicht einer gewissen Sinnlosigkeit aber ich hab mir vor Monaten mal ein kleines Nippelboasrd gebastelt.
Wer mit dem Begriff, so wie ich vorher, nichts anfangen kann: Es ist ein kleines Tool das im Hintergrund läuft und bei einer bestimmten Tastenkombination einen bestimmten Ton (mp3) wiedergibt.
Mittlerweile habe ich eine relativ ausgereifte Auswahl an Tönen die zu 90% der Gegebenheiten im Büroalltag passen und für Erheiterung sorgen. Sowas wie den Jingle von Jeopardy wenn einer eine Frage stellt. Das "Ja natürlich" aus das Leben des Brain, Spok's "Faszinierend", "Aufs Maul" von Gabba-Gandalf , den ein oder anderen Monolog aus Full Metal Jacket usw.
Der Code ist relativ einfallslos:
Spoiler anzeigen
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=icon.ico
#AutoIt3Wrapper_Outfile=FunSoundPlayer.exe
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <Misc.au3>
#include <File.au3>
#include <Sound.au3>
#include <MsgBoxConstants.au3>
#include <TrayConstants.au3>
;~ FileInstall("Jeopardy.mp3",@ScriptDir & "\Jeopardy.mp3",0)
;~ FileInstall("Jeopardy.mp3","C:\tmp\Jeopardy.mp3",0)
;~ FileInstall("nircmd.exe",@ScriptDir & "\nircmd.exe",0)
;~ If ProcessExists ("JeopardyPlayer.exe") Then
;~ ProcessClose ("JeopardyPlayer.exe")
;~ EndIf
Local $Sound1, $Sound2, $Sound3, $Sound4, $Sound5, $Sound6, $Sound7, $Sound8, $Sound9, $Sound19
$Sound1= IniRead(@ScriptDir & "\Sounds.ini", "Sound1", "key", "nicht eingetrsgen")
$Sound2= IniRead(@ScriptDir & "\Sounds.ini", "Sound2", "key", "nicht eingetrsgen")
$Sound3= IniRead(@ScriptDir & "\Sounds.ini", "Sound3", "key", "nicht eingetrsgen")
$Sound4= IniRead(@ScriptDir & "\Sounds.ini", "Sound4", "key", "nicht eingetrsgen")
$Sound5= IniRead(@ScriptDir & "\Sounds.ini", "Sound5", "key", "nicht eingetrsgen")
$Sound6= IniRead(@ScriptDir & "\Sounds.ini", "Sound6", "key", "nicht eingetrsgen")
$Sound7= IniRead(@ScriptDir & "\Sounds.ini", "Sound7", "key", "nicht eingetrsgen")
$Sound8= IniRead(@ScriptDir & "\Sounds.ini", "Sound8", "key", "nicht eingetrsgen")
$Sound9= IniRead(@ScriptDir & "\Sounds.ini", "Sound9", "key", "nicht eingetrsgen")
$Sound10= IniRead(@ScriptDir & "\Sounds.ini", "Sound10", "key", "nicht eingetrsgen")
$Sound11= IniRead(@ScriptDir & "\Sounds.ini", "Sound11", "key", "nicht eingetrsgen")
$Sound12= IniRead(@ScriptDir & "\Sounds.ini", "Sound12", "key", "nicht eingetrsgen")
;~ FileInstall("nircmdc.exe",@ScriptDir &"\nircmdc.exe",0)
Local $aSound1 = _SoundOpen( @ScriptDir & "\Sound1.mp3" )
Local $aSound2 = _SoundOpen( @ScriptDir & "\Sound2.mp3" )
Local $aSound3 = _SoundOpen( @ScriptDir & "\Sound3.mp3" )
Local $aSound4 = _SoundOpen( @ScriptDir & "\Sound4.mp3" )
Local $aSound5 = _SoundOpen( @ScriptDir & "\Sound5.mp3" )
Local $aSound6 = _SoundOpen( @ScriptDir & "\Sound6.mp3" )
Local $aSound7 = _SoundOpen( @ScriptDir & "\Sound7.mp3" )
Local $aSound8 = _SoundOpen( @ScriptDir & "\Sound8.mp3" )
Local $aSound9 = _SoundOpen( @ScriptDir & "\Sound9.mp3" )
Local $aSound10 = _SoundOpen( @ScriptDir & "\Sound10.mp3" )
Local $aSound11 = _SoundOpen( @ScriptDir & "\Sound11.mp3" )
Local $aSound12 = _SoundOpen( @ScriptDir & "\Sound12.mp3" )
;~ TrayTip("Bedienung","ALT + 1-0",2)
;~ TraySetToolTip("Alt+"&@CRLF&"1 = " & $Sound1&@CRLF &"2 = " & $Sound2&@CRLF &"3 = " & $Sound3&@CRLF &"4 = " & $Sound4&@CRLF &"5 = " & $Sound5&@CRLF & "6 = " & $Sound6&@CRLF &"7 = " & $Sound7&@CRLF &"8 = " & $Sound8&@CRLF &"9 = " & $Sound9&@CRLF &"10 = " & $Sound10)
$Liste=("1=" & $Sound1 & @CRLF & "2=" & $Sound2 & @CRLF &"3=" & $Sound3& @CRLF&"4=" & $Sound4& @CRLF&"5=" & $Sound5& @CRLF&"6=" & $Sound6& @CRLF&"7=" & $Sound7& @CRLF&"8=" & $Sound8& @CRLF&"9=" & $Sound9& @CRLF &"10=" & $Sound10& @CRLF &"11=" & $Sound11& @CRLF &"12=" & $Sound12)
While 1
;~ Sound1
If _IsPressed ("11") and _IsPressed ("70") Then ;-7B ist die F12 Taste
Run(@ScriptDir & "\nircmd.exe setdefaultsounddevice Lautsprecher")
_SoundPlay($aSound1)
While _IsPressed ("11")
Sleep(250)
WEnd
_SoundStop($aSound1)
Run(@ScriptDir & "\nircmd.exe setdefaultsounddevice Headset")
Sleep(250)
EndIf
;~ Sound2
If _IsPressed ("11") and _IsPressed ("71") Then ;-7B ist die F12 Taste
Run(@ScriptDir & "\nircmd.exe setdefaultsounddevice Lautsprecher")
_SoundPlay($aSound2)
While _IsPressed ("11")
Sleep(250)
WEnd
_SoundStop($aSound2)
Run(@ScriptDir & "\nircmd.exe setdefaultsounddevice Headset")
Sleep(250)
EndIf
;~ Sound3
If _IsPressed ("11") and _IsPressed ("72") Then ;-7B ist die F12 Taste
Run(@ScriptDir & "\nircmd.exe setdefaultsounddevice Lautsprecher")
_SoundPlay($aSound3)
While _IsPressed ("11")
Sleep(250)
WEnd
_SoundStop($aSound3)
Run(@ScriptDir & "\nircmd.exe setdefaultsounddevice Headset")
Sleep(250)
EndIf
;~ Sound4
If _IsPressed ("11") and _IsPressed ("73") Then ;-7B ist die F12 Taste
Run(@ScriptDir & "\nircmd.exe setdefaultsounddevice Lautsprecher")
_SoundPlay($aSound4)
While _IsPressed ("11")
Sleep(250)
WEnd
_SoundStop($aSound4)
Run(@ScriptDir & "\nircmd.exe setdefaultsounddevice Headset")
Sleep(250)
EndIf
;~ Sound5
If _IsPressed ("11") and _IsPressed ("74") Then ;-7B ist die F12 Taste
Run(@ScriptDir & "\nircmd.exe setdefaultsounddevice Lautsprecher")
_SoundPlay($aSound5)
While _IsPressed ("11")
Sleep(250)
WEnd
_SoundStop($aSound5)
Run(@ScriptDir & "\nircmd.exe setdefaultsounddevice Headset")
Sleep(250)
EndIf
;~ Sound6
If _IsPressed ("11") and _IsPressed ("75") Then ;-7B ist die F12 Taste
Run(@ScriptDir & "\nircmd.exe setdefaultsounddevice Lautsprecher")
_SoundPlay($aSound6)
While _IsPressed ("11")
Sleep(250)
WEnd
_SoundStop($aSound6)
Run(@ScriptDir & "\nircmd.exe setdefaultsounddevice Headset")
Sleep(250)
EndIf
;~ Sound7
If _IsPressed ("11") and _IsPressed ("76") Then ;-7B ist die F12 Taste
Run(@ScriptDir & "\nircmd.exe setdefaultsounddevice Lautsprecher")
_SoundPlay($aSound7)
While _IsPressed ("11")
Sleep(250)
WEnd
_SoundStop($aSound7)
Run(@ScriptDir & "\nircmd.exe setdefaultsounddevice Headset")
Sleep(250)
EndIf
;~ Sound8
If _IsPressed ("11") and _IsPressed ("77") Then ;-7B ist die F12 Taste
Run(@ScriptDir & "\nircmd.exe setdefaultsounddevice Lautsprecher")
_SoundPlay($aSound8)
While _IsPressed ("11")
Sleep(250)
WEnd
_SoundStop($aSound8)
Run(@ScriptDir & "\nircmd.exe setdefaultsounddevice Headset")
Sleep(250)
EndIf
;~ Sound9
If _IsPressed ("11") and _IsPressed ("78") Then ;-7B ist die F12 Taste
Run(@ScriptDir & "\nircmd.exe setdefaultsounddevice Lautsprecher")
_SoundPlay($aSound9)
While _IsPressed ("11")
Sleep(250)
WEnd
_SoundStop($aSound9)
Run(@ScriptDir & "\nircmd.exe setdefaultsounddevice Headset")
Sleep(250)
EndIf
;~ Sound10
If _IsPressed ("11") and _IsPressed ("79") Then ;-7B ist die F12 Taste
Run(@ScriptDir & "\nircmd.exe setdefaultsounddevice Lautsprecher")
_SoundPlay($aSound10)
While _IsPressed ("11")
Sleep(250)
WEnd
_SoundStop($aSound10)
Run(@ScriptDir & "\nircmd.exe setdefaultsounddevice Headset")
Sleep(250)
EndIf
If _IsPressed ("11") and _IsPressed ("7A") Then ;-7B ist die F12 Taste
Run(@ScriptDir & "\nircmd.exe setdefaultsounddevice Lautsprecher")
_SoundPlay($aSound11)
While _IsPressed ("11")
Sleep(250)
WEnd
_SoundStop($aSound10)
Run(@ScriptDir & "\nircmd.exe setdefaultsounddevice Headset")
Sleep(250)
EndIf
If _IsPressed ("11") and _IsPressed ("7B") Then ;-7B ist die F12 Taste
Run(@ScriptDir & "\nircmd.exe setdefaultsounddevice Lautsprecher")
_SoundPlay($aSound12)
While _IsPressed ("11")
Sleep(250)
WEnd
_SoundStop($aSound10)
Run(@ScriptDir & "\nircmd.exe setdefaultsounddevice Headset")
Sleep(250)
EndIf
;~ Häh
If _IsPressed ("11") and _IsPressed ("70") Then ;-7B ist die F12 Taste
TrayTip ("Sounds", $Liste,5)
;~ While _IsPressed ("11")
;~ Sleep(250)
;~ WEnd
;~ _SoundStop($aSound10)
;~ Run(@ScriptDir & "\nircmd.exe setdefaultsounddevice Headset")
;~ Sleep(250)
EndIf
WEnd
Alles anzeigen
Das Problem ist dass die 10 Sounds die ich habe nicht reichen.
Jetzt könnte man wohl neue Tastenkombinationen eintragen aber das ist ja nicht schön.
Ich hab auch schon eins runtergeladen wo man die Sound Files in ein Listenfeld "laden" kann und dann die einzelnen Items bearbeiten und eine Tastenkombination und das Ausgabegerät zuweisen kann.
Das ist soweit ganz schick aber irgendwie läuft das nicht so rund.
Also war die Idee sowas in der Art selber zu bauen.
Ich würde gerne die Sounds und die Tastenkombination editierbar gestalten.
Also dachte ich ich frage mal euch nach zündenden Ideen wie ich das am besten anfange?