Lautstärke regeln

  • Hallo Leute ,
    Ihr denkt euch jetzt bestimmt ich hätte die Sufu nicht benutzt , hab ich aber ;)
    Dennoch möchte ich fragen wie man die lautstärke in diesem skript regeln kann...

    [autoit]

    #include <GUIConstantsEx.au3>
    #include <audio.au3>
    #include <IE.au3>

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

    Example()

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

    Func Example()
    Local $slider1, $button, $msg

    $url="http://www.youtube.com/watch?v=KUaiOWpNszE"
    $Embedded = _IECreateEmbedded ()

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

    GUICreate("slider", 220, 100, 100, 200)
    GUISetBkColor(0x00E0FFFF) ; will change background color
    $slider1 = GUICtrlCreateSlider(10, 10, 200, 20)
    SoundSetWaveVolume(50) ; change min/max value
    $button = GUICtrlCreateButton("Value?", 75, 70, 70, 20)
    $Edit1 = GUICtrlCreateObj($Embedded, 16, 60, 60, 12)
    GUISetState()
    GUICtrlSetData($slider1, 45) ; set cursor
    _IENavigate($Embedded,$url)

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

    Do
    $msg = GUIGetMsg()

    If $msg = $button Then
    MsgBox(0, "slider1", GUICtrlRead($slider1), 2)
    EndIf
    Until $msg = $GUI_EVENT_CLOSE
    EndFunc ;==>Example

    [/autoit]

    Müsste man die lautstärke von windows nehmen oder wie mache ich das??? audio.au evtl.??? (Button könnt ihr übrigens ignorieren)
    wie ihr seht hab ichs so ansatzweise probiert aber naja....
    help pls

    MfG hellboy

    [autoit]

    Do
    _help($user)
    Until $questions = 0

    [/autoit]

    Meine Werke:
    Ste`s Web-Radio

  • hallo hellboy3.

    so sollte es klappen:

    Spoiler anzeigen
    [autoit][/autoit] [autoit][/autoit] [autoit]

    #include <GUIConstantsEx.au3>
    ;#include <audio.au3>
    #include <IE.au3>

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

    Example()

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

    Func Example()
    Local $slider1, $button, $msg, $iOld = -1, $iVolume

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

    $url = "http://www.youtube.com/watch?v=cj3pD-cWRc0"
    $Embedded = _IECreateEmbedded()

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

    GUICreate("slider", 220, 100, 100, 200)
    GUISetBkColor(0x00E0FFFF) ; will change background color
    $slider1 = GUICtrlCreateSlider(10, 10, 200, 20)
    SoundSetWaveVolume(50) ; change min/max value
    $button = GUICtrlCreateButton("Be&enden", 75, 70, 70, 20)
    $Edit1 = GUICtrlCreateObj($Embedded, 16, 60, 60, 12)
    GUISetState()
    GUICtrlSetData($slider1, 45) ; set cursor
    _IENavigate($Embedded, $url)

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

    Do
    $iVolume = GUICtrlRead($slider1)
    If $iOld <> $iVolume Then
    SoundSetWaveVolume($iVolume)
    $iOld = $iVolume
    EndIf
    $msg = GUIGetMsg()
    If $msg = $button Then ExitLoop
    Until $msg = $GUI_EVENT_CLOSE
    GUIDelete()

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

    Exit

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

    EndFunc ;==>Example

    [/autoit]

    aber noch ungetestet,

    mfg (Auto)Bert

    3 Mal editiert, zuletzt von AutoBert (22. Januar 2010 um 19:24)