soundkarte oO

  • hehe, so was habe ich vor geraumer zeit mal gemacht.

    für xp:

    Spoiler anzeigen
    [autoit]

    #cs ----------------------------------------------------------------------------

    AutoIt Version: 3.1.1.2
    Author: Dr.Galvany

    Script Function:
    Template AutoIt script.

    #ce ----------------------------------------------------------------------------

    [/autoit] [autoit][/autoit] [autoit]

    ; Script Start - Add your code below here

    [/autoit] [autoit][/autoit] [autoit]

    #Include <process.au3>
    #include <GUIConstants.au3>

    [/autoit] [autoit][/autoit] [autoit]

    $Form1 = GUICreate("Audio Ausgang", 253, 129, 521, 320)
    $NForce = GUICtrlCreateButton("NForce", 8, 72, 73, 33, 0)
    $Headset = GUICtrlCreateButton("Headset", 88, 72, 73, 33, 0)
    $Exit = GUICtrlCreateButton("Exit", 168, 72, 73, 33, 0)
    GUICtrlCreateLabel("Wähle den Audio Ausgang", 21, 18, 220, 29)
    GUICtrlSetFont(-1, 14, 800, 2, "Palatino Linotype")
    GUICtrlSetColor(-1, 0x0000FF)

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState(@SW_SHOW)

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $NForce
    _RunDOS("start control.exe mmsys.cpl")

    [/autoit] [autoit][/autoit] [autoit]

    WinWait("Eigenschaften von Sounds und Audiogeräte")
    Send("+{TAB}{RIGHT 2}")

    [/autoit] [autoit][/autoit] [autoit]

    WinWait("Eigenschaften von Sounds und Audiogeräte", "Audio")
    ControlClick("Eigenschaften von Sounds und Audiogeräte", "", "ComboBox1")
    Send("{DOWN}")
    ControlClick("Eigenschaften von Sounds und Audiogeräte", "OK", "Button11")
    ExitLoop

    [/autoit] [autoit][/autoit] [autoit]

    Case $msg = $Headset
    _RunDOS("start control.exe mmsys.cpl")

    [/autoit] [autoit][/autoit] [autoit]

    WinWait("Eigenschaften von Sounds und Audiogeräte")
    Send("+{TAB}{RIGHT 2}")

    [/autoit] [autoit][/autoit] [autoit]

    WinWait("Eigenschaften von Sounds und Audiogeräte", "Audio")
    ControlClick("Eigenschaften von Sounds und Audiogeräte", "", "ComboBox1")
    Send("{DOWN}")
    ControlClick("Eigenschaften von Sounds und Audiogeräte", "OK", "Button11")
    ExitLoop

    Case $msg = $Exit
    ExitLoop

    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop

    Case Else
    ;;;;;;;
    EndSelect
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Exit

    [/autoit]


    für Vista:

    Spoiler anzeigen
    [autoit]

    #cs ----------------------------------------------------------------------------

    AutoIt Version: 3.2.0.1
    Author: Dr.Galvany

    Script Function:
    Template AutoIt script.

    #ce ----------------------------------------------------------------------------

    [/autoit] [autoit][/autoit] [autoit]

    ; Script Start - Add your code below here

    [/autoit] [autoit][/autoit] [autoit]

    #Include <process.au3>
    #include <GUIConstants.au3>

    [/autoit] [autoit][/autoit] [autoit]

    $Form1 = GUICreate("Audio Ausgang", 253, 129, 521, 320)
    $NForce = GUICtrlCreateButton("NForce", 8, 72, 73, 33, 0)
    $Headset = GUICtrlCreateButton("Headset", 88, 72, 73, 33, 0)
    $Exit = GUICtrlCreateButton("Exit", 168, 72, 73, 33, 0)
    GUICtrlCreateLabel("Wähle den Audio Ausgang", 21, 18, 220, 29)
    GUICtrlSetFont(-1, 14, 800, 2, "Palatino Linotype")
    GUICtrlSetColor(-1, 0x0000FF)

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState(@SW_SHOW)

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $NForce
    _RunDOS("start control.exe mmsys.cpl")

    [/autoit] [autoit][/autoit] [autoit]

    WinWait("Sound")
    Send("{DOWN 1}")
    If ControlCommand("Sound", "&Als Standard", "Button2", "IsEnabled") = 1 Then
    ControlClick("Sound", "&Als Standard", "Button2")
    ControlClick("Sound", "OK", "Button4")
    ExitLoop
    Else
    ControlClick("Sound", "Abbrechen", "Button5")
    ExitLoop
    EndIf

    Case $msg = $Headset
    _RunDOS("start control.exe mmsys.cpl")

    [/autoit] [autoit][/autoit] [autoit]

    WinWait("Sound")
    Send("{DOWN 2}")
    If ControlCommand("Sound", "&Als Standard", "Button2", "IsEnabled") = 1 Then
    ControlClick("Sound", "&Als Standard", "Button2")
    ControlClick("Sound", "OK", "Button4")
    ExitLoop
    Else
    ControlClick("Sound", "Abbrechen", "Button5")
    ExitLoop
    EndIf

    Case $msg = $Exit
    ExitLoop

    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop

    Case Else
    ;;;;;;;
    EndSelect
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Exit

    [/autoit]

    Doktore