"if" mehrere Befehle...

11/03/2010 19:25 KDeluxe#16
Du musst die Lautstärke von Mozilla nicht ändern, es würde eigentlich auch nichts bringen.

Wenn ich dich richtig verstanden habe, suchst du sowas:
PHP Code:
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>

$Form1 GUICreate("Titel"15585)
GUISetBkColor(0xFFFFFF)
GUICtrlCreateLabel("Passwort:"10105017)
$I_Passwort GUICtrlCreateInput(""103013521BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$B_OK GUICtrlCreateButton("OK"105513525)

$Form2 GUICreate("Titel"15590)
GUISetBkColor(0xFFFFFF)
$B_Play GUICtrlCreateButton("Play"10106525)
$B_Stop GUICtrlCreateButton("Stop"80106525)
GUICtrlCreateLabel("Lautstärke:"10455717)
$S_Volume GUICtrlCreateSlider(106013525)
GUICtrlSetData(-150)
GUICtrlSetBkColor(-10xFFFFFF)
GUISetState(@SW_SHOW$Form1)

Global 
$Radio ObjCreate("WMPLayer.ocx")
$Radio.URL "http://217.151.152.245/bigfm-mp3-96"
$Radio.Controls.Stop()

While 
Sleep(10)
    
$nMsg GUIGetMsg(1)
    If 
$nMsg[1] == $Form1 Then
        
Switch $nMsg[0]
            Case 
$GUI_EVENT_CLOSE
                
Exit
            Case 
$B_OK
                
If GUICtrlRead($I_Passwort) == "Sascha" Then
                    GUISetState
(@SW_HIDE$Form1)
                    
GUISetState(@SW_SHOW$Form2)
                Else
                    
$MsgBox MsgBox(53"Fehler""Das eingegebene Passwort ist falsch!")
                    If 
$MsgBox == 2 Then Exit
                EndIf
        EndSwitch
    ElseIf 
$nMsg[1] == $Form2 Then
        
Switch $nMsg[0]
            Case 
$GUI_EVENT_CLOSE
                
Exit
            Case 
$B_Play
                $Radio
.Controls.Play()
            Case 
$B_Stop
                $Radio
.Controls.Stop()
        EndSwitch
    EndIf

    
$Volume GUICtrlRead($S_Volume)
    If 
$Volume <> $Radio.Settings.Volume() Then
        $Radio
.Settings.Volume() = $Volume
    
EndIf
WEnd 
11/03/2010 19:32 eagly200#17
danke aber geht das denn nicht auch mit dem Link:
[Only registered and activated users can see links. Click Here To Register...]

??
11/03/2010 20:11 KDeluxe#18
Du möchtest doch ein Webradio und was soll man den von der Hauptseite abspielen?
Es gibt nichts, dafür musst du schon die Radiostreams benutzen.
11/03/2010 20:16 eagly200#19
_IECreate("http://static.bigfm.de/content/pictures/swf/battle.swf", 1, 0)

so gehts doch... nur brauch ich da halt nur die Lautstärke verändern.
11/03/2010 20:23 KDeluxe#20
Ich versteh nicht, wo dein Problem sein soll, ich hab dir doch ein "gutes" Beispiel erstellt,
du musst nur den Link anpassen ($Radio.URL = "").
11/03/2010 20:33 eagly200#21
ahso ok dann danke ich melde mich zurück
schade das geht net...
11/03/2010 20:50 ZaZiZu#22
Quote:
Originally Posted by eagly200 View Post
ahso ok dann danke ich melde mich zurück
schade das geht net...
[Only registered and activated users can see links. Click Here To Register...]
finde hier das richtige, scanne es mit CE und mach das dann mit memoryread oder memorywrite oder so (kenn mich da noch nicht aus)
€dit: mein pc hat schon macken :D lautstärke auf 25% ist abnormal laut in kopfhörern, in manchen games(wie s4league) ist mein regler bei ca. 5% und die lautstärke ist da schon angenehm ô.O
11/03/2010 20:52 KDeluxe#23
Quote:
Originally Posted by eagly200 View Post
ahso ok dann danke ich melde mich zurück
schade das geht net...
+ 2 Zeilen und alles geht:
PHP Code:
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>

$Form1 GUICreate("Titel"15585)
GUISetBkColor(0xFFFFFF)
GUICtrlCreateLabel("Passwort:"10105017)
$I_Passwort GUICtrlCreateInput(""103013521BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$B_OK GUICtrlCreateButton("OK"105513525)

$Form2 GUICreate("Titel"15590)
GUISetBkColor(0xFFFFFF)
$B_Play GUICtrlCreateButton("Play"10106525)
$B_Stop GUICtrlCreateButton("Stop"80106525)
GUICtrlCreateLabel("Lautstärke:"10455717)
$S_Volume GUICtrlCreateSlider(106013525)
GUICtrlSetData(-150)
GUICtrlSetBkColor(-10xFFFFFF)
GUISetState(@SW_SHOW$Form1)

Global 
$Radio ObjCreate("WMPLayer.ocx")
;
$Radio.URL "http://217.151.152.245/bigfm-mp3-96"
$Radio.URL "http://static.bigfm.de/content/pictures/swf/battle.swf"
$Radio.Controls.Stop()

While 
Sleep(10)
    
$nMsg GUIGetMsg(1)
    If 
$nMsg[1] == $Form1 Then
        
Switch $nMsg[0]
            Case 
$GUI_EVENT_CLOSE
                
Exit
            Case 
$B_OK
                
If GUICtrlRead($I_Passwort) == "Sascha" Then
                    GUISetState
(@SW_HIDE$Form1)
                    
GUISetState(@SW_SHOW$Form2)
                Else
                    
$MsgBox MsgBox(53"Fehler""Das eingegebene Passwort ist falsch!")
                    If 
$MsgBox == 2 Then Exit
                EndIf
        EndSwitch
    ElseIf 
$nMsg[1] == $Form2 Then
        
Switch $nMsg[0]
            Case 
$GUI_EVENT_CLOSE
                
Exit
            Case 
$B_Play
                $Radio
.Controls.Play()
            Case 
$B_Stop
                $Radio 
ObjCreate("WMPLayer.ocx")
                
$Radio.URL "http://static.bigfm.de/content/pictures/swf/battle.swf"
                
$Radio.Controls.Stop()
        EndSwitch
    EndIf

    
$Volume GUICtrlRead($S_Volume)
    If 
$Volume <> $Radio.Settings.Volume() Then
        $Radio
.Settings.Volume() = $Volume
    
EndIf
WEnd 
11/04/2010 12:35 eagly200#24
JUHUUUUUUUUUUUUUUUUUUUUUUUUUUUU.............
DANKE!!!!!!!!


also wirklich Danke
was ich jetzt noch bräuchte:
Den Befehl WinSetOnTop ($Titel,"",1) so eingebaut das es geht, weil ich habe es überall in die While-Schleife eingesetzt aber es ging nicht....
Und dann noch (weil ich zwar eine idee hätte WIE das dann geht aber nicht wie man das wieder aus macht): eine "Lautlos"-Taste/Funktion.
11/04/2010 19:09 KDeluxe#25
Benutze bei der Form einfach $WS_EX_TOPMOST.
Das muten ist relativ einfach, du musst einfach die Lautstärke auslesen, sie in eine
Variable speichern und die anschließend auf 0 setzen.
Klickt man ein weiteres mal auf den Button setzt man einfach die Lautstärke auf den
gespeicherten Wert.
Wahlweise kann man den Slider zur Regulierung der Lautstärke auch zwischenzeitlich
deaktivieren.

Ich hab es einfach mal so gemacht:
PHP Code:
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$Form1 GUICreate("Radio"15585)
GUISetBkColor(0xFFFFFF)
GUICtrlCreateLabel("Passwort:"10105017)
$I_Passwort GUICtrlCreateInput(""103013521BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$B_OK GUICtrlCreateButton("OK"105513525)

$Form2 GUICreate("Radio"15590, -1, -1, -1$WS_EX_TOPMOST)
GUISetBkColor(0xFFFFFF)
$B_Play GUICtrlCreateButton("Play"10106525)
$B_Stop GUICtrlCreateButton("Stop"80106525)
GUICtrlCreateLabel("Lautstärke:"10456017)
$B_Mute GUICtrlCreateButton("Mute"80356525)
$S_Volume GUICtrlCreateSlider(106013525)
GUICtrlSetData(-150)
GUICtrlSetBkColor(-10xFFFFFF)
GUISetState(@SW_SHOW$Form1)

Global 
$Radio ObjCreate("WMPLayer.ocx")
Global 
$WebRadioURL "http://static.bigfm.de/content/pictures/swf/battle.swf"
$Radio.URL $WebRadioURL
$Radio
.Controls.Stop()

Global 
$Mute True$Mute_Volume

While Sleep(10)
    
$nMsg GUIGetMsg(1)
    If 
$nMsg[1] == $Form1 Then
        
Switch $nMsg[0]
            Case 
$GUI_EVENT_CLOSE
                
Exit
            Case 
$B_OK
                
If GUICtrlRead($I_Passwort) == "Sascha" Then
                    GUISetState
(@SW_HIDE$Form1)
                    
GUISetState(@SW_SHOW$Form2)
                Else
                    
$MsgBox MsgBox(53"Fehler""Das eingegebene Passwort ist falsch!")
                    If 
$MsgBox == 2 Then Exit
                EndIf
        EndSwitch
    ElseIf 
$nMsg[1] == $Form2 Then
        
Switch $nMsg[0]
            Case 
$GUI_EVENT_CLOSE
                
Exit
            Case 
$B_Play
                $Radio
.Controls.Play()
            Case 
$B_Stop
                $Radio 
ObjCreate("WMPLayer.ocx")
                
$Radio.URL $WebRadioURL
                $Radio
.Controls.Stop()
            Case 
$B_Mute
                
If $Mute Then
                    $Mute 
False
                    $Mute_Volume 
$Radio.Settings.Volume()
                    
$Radio.Settings.Volume() = 0
                    
;GUICtrlSetState($S_Volume$GUI_DISABLE)
                Else
                    
$Mute True
                    $Radio
.Settings.Volume() = $Mute_Volume
                    
;GUICtrlSetState($S_Volume$GUI_ENABLE)
                EndIf
            Case 
$S_Volume
                
If Not($MuteThen $Mute True
        
EndSwitch
    EndIf

    If 
$Mute Then
        $Volume 
GUICtrlRead($S_Volume)
        If 
$Volume <> $Radio.Settings.Volume() Then
            $Radio
.Settings.Volume() = $Volume
        
EndIf
    EndIf
WEnd 
11/04/2010 20:33 Banana.Crafts#26
Quote:
Originally Posted by maxi39 View Post
soundlautstärke mit CE auslesen? xD
€ funktioniert wirklich, grad probiert
Hehe, find ich lustig...

Ne mal im Ernst, Autoit kann mehr als Ihr denkt.
SoundSetWaveVolume - Yeah