Beiträge von DeepRed92

  • Fragen

    Ich hab NSIS schon länger und versteh nicht genau wie das gehen soll. Gibts dafür sowas wie einen Assistenten wie bei Inno Setup?
    Und wo findet man Vorlagen dafür? (Nicht die Examples!)

  • Inputbox

    Hallo,

    wie kann ich mit AutoIt einen InputBox machen das genauso funktioniert wie das da oben(Suchfunktionsinput).?
    Also wenn man da nicht draufklickt steht da "Suchbegriff eingeben" und bei klick ist es leer.

  • Desktop Radio 3.9

    Hmmm ich weiß jetzt nicht waran das liegen könnte. Kann man dieses Script auch universeller machen?:

    [autoit]

    _waitinetconnect()

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

    Func _waitinetconnect()
    While Not Ping("www.google.de")
    Sleep(1000)
    WEnd
    EndFunc ;==>_waitinetconnect

    [/autoit]

  • Desktop Radio 3.9

    Die ganze Zeit?

    Funktioniert das bei dir?:

    [autoit]

    _waitinetconnect()

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

    Func _waitinetconnect()
    While Not Ping("www.google.de")
    Sleep(1000)
    WEnd
    EndFunc ;==>_waitinetconnect

    [/autoit]

    Dieses Script wartet solange bis du verbunden bist, aber irgendwie funzt das bei dir nicht!?!

  • Fragen zur Wmp Udf

    Hallo,

    ich habe diese UDF:

    Spoiler anzeigen
    [autoit]

    Func _wmpcreate($show, $left, $top, $width = 100, $height = 100)
    $oWMP = ObjCreate("WMPlayer.OCX")
    If $oWMP = 0 Then Return 0

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

    If $show = 1 Then
    GUICtrlCreateObj($oWMP, $left, $top, $width, $height)
    EndIf
    Return $oWMP
    EndFunc ;==>_wmpcreate

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

    Func _wmploadmedia(ByRef $object, $URL, $autostart = 1)
    $object.URL = $URL
    If $autostart = 1 Then $object.controls.play()
    EndFunc ;==>_wmploadmedia

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

    Func _wmpvalue($object, $setting, $para = 1)
    Select
    Case $setting = "play"
    If $object.controls.isAvailable("play") Then $object.controls.play()
    Case $setting = "stop"
    If $object.controls.isAvailable("stop") Then $object.controls.stop()
    Case $setting = "pause"
    If $object.controls.isAvailable("pause") Then $object.controls.pause()
    Case $setting = "invisible"
    $object.uiMode = "invisible"
    Case $setting = "controls"
    $object.uiMode = "mini"
    Case $setting = "nocontrols"
    $object.uiMode = "none"
    Case $setting = "fullscreen"
    $object.fullscreen = "true"
    Case $setting = "step"
    If $object.controls.isAvailable("step") Then $object.controls.Step ($para)
    Case $setting = "fastForward"
    If $object.controls.isAvailable("fastForward") Then $object.controls.fastForward()
    Case $setting = "fastReverse"
    If $object.controls.isAvailable("fastReverse") Then $object.controls.fastReverse()
    Case $setting = "volume"
    $object.settings.volume = $para
    Case $setting = "rate"
    $object.settings.rate = $para
    Case $setting = "playcount"
    $object.settings.playCount = $para
    Case $setting = "setposition"
    $object.controls.currentPosition = $para
    Case $setting = "getposition"
    Return $object.controls.currentPosition
    Case $setting = "getpositionstring";Returns HH:MM:SS
    Return $object.controls.currentPositionString
    Case $setting = "getduration"
    Return $object.currentMedia.duration
    EndSelect
    EndFunc ;==>_wmpvalue

    [/autoit]

    und möchte nun wissen wie ich feststellen kann, ob ein Medium (_wmploadmedia)
    erfolgreich geladen wurde?

  • Script funzt nicht

    Zitat

    Wieso 9, ich denke 10?

    Hier:

    Spoiler anzeigen
    [autoit]

    $Abfrage = _GetStatus($LoadStatus)

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

    If $Abfrage = "Play" Then

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

    MsgBox(0, "", $Abfrage) ; Zeigt in meinem kompletten Script "Play" an.

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

    $playerstate = $oPlayer.playstate

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

    MsgBox(0, "", $playerstate) ; Hier bekomme ich den Wert 9 zurück

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

    If $playerstate = 6 Or $playerstate = 1 Or $playerstate = 9 Then
    MsgBox(0, "", "Stop") ;Das hier funktioniert nicht...
    Else
    MsgBox(0, "", "Play")
    EndIf

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

    EndIf

    [/autoit]

    Dasl liegt wohl eher daran, dass du paar Sekunden warten musst bevor du auf OK bei der MsgBox klickst.


    Endlich funktioniert es jetzt.
    Ich habe das so gemacht und es funktioniert nun:

    [autoit]

    $playerstate = 9

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

    If $playerstate = 6 Or $playerstate = 1 Or $playerstate = 9 Then
    MsgBox(0, "", "Stop")
    ElseIf $playerstate = 3 Then
    MsgBox(0, "", "Play")
    EndIf

    [/autoit]

    Lag das nun an "Else" ??? :huh:

  • Script funzt nicht

    Zitat

    Pack mal das hier anstelle von Zeile 10 rein:

    Hab ich. Ich bekomme folgendes zurück: >10< und die 1

    Zitat

    P.S.: ein Beispielscript sollte auch bei jedem funktionieren. Ansonsten hat es wenig Sinn.

    Was soll daran nicht funktionieren? 8|

  • Script funzt nicht

    Stimmt. Schwer nachzuvollziehen. ich habe gerade einen Beispielscript erstellt und da scheint es zu funktionieren.

    Spoiler anzeigen
    [autoit]

    #include <IE.au3>

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

    ;Playergröße gestalten
    $oPlayer = _wmpcreate(0, 0, 0, 160, 165)
    ;ende

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

    ;Object create
    _wmpvalue($oPlayer, "controls")
    $oIE = _IECreateEmbedded()
    ;ende

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

    _wmploadmedia($oPlayer, "http://www.wdr.de/wdrlive/media/einslive-wm32.asx", 1)

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

    Sleep(1000)

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

    _wmpvalue($oPlayer, "Play")

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

    MsgBox(0,"","")

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

    If _GetStatus() = "Play" Then

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

    $playerstate = $oPlayer.playstate

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

    MsgBox(0,"",$playerstate)

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

    If $playerstate = 6 Or $playerstate = 1 Or $playerstate = 9 Then
    MsgBox(0, "", "Stop")
    Else
    MsgBox(0, "", "Play")
    EndIf

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

    EndIf

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

    Func _GetStatus()
    Return "Play"
    EndFunc ;==>_GetStatus

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

    Func _wmpcreate($show, $left, $top, $width = 100, $height = 100)
    $oWMP = ObjCreate("WMPlayer.OCX")
    If $oWMP = 0 Then Return 0

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

    If $show = 1 Then
    GUICtrlCreateObj($oWMP, $left, $top, $width, $height)
    EndIf
    Return $oWMP
    EndFunc ;==>_wmpcreate

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

    Func _wmploadmedia(ByRef $object, $URL, $autostart = 1)
    $object.URL = $URL
    If $autostart = 1 Then $object.controls.play()
    EndFunc ;==>_wmploadmedia

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

    Func _wmpvalue($object, $setting, $para = 1)
    Select
    Case $setting = "play"
    If $object.controls.isAvailable("play") Then $object.controls.play()
    Case $setting = "stop"
    If $object.controls.isAvailable("stop") Then $object.controls.stop()
    Case $setting = "pause"
    If $object.controls.isAvailable("pause") Then $object.controls.pause()
    Case $setting = "invisible"
    $object.uiMode = "invisible"
    Case $setting = "controls"
    $object.uiMode = "mini"
    Case $setting = "nocontrols"
    $object.uiMode = "none"
    Case $setting = "fullscreen"
    $object.fullscreen = "true"
    Case $setting = "step"
    If $object.controls.isAvailable("step") Then $object.controls.Step ($para)
    Case $setting = "fastForward"
    If $object.controls.isAvailable("fastForward") Then $object.controls.fastForward()
    Case $setting = "fastReverse"
    If $object.controls.isAvailable("fastReverse") Then $object.controls.fastReverse()
    Case $setting = "volume"
    $object.settings.volume = $para
    Case $setting = "rate"
    $object.settings.rate = $para
    Case $setting = "playcount"
    $object.settings.playCount = $para
    Case $setting = "setposition"
    $object.controls.currentPosition = $para
    Case $setting = "getposition"
    Return $object.controls.currentPosition
    Case $setting = "getpositionstring";Returns HH:MM:SS
    Return $object.controls.currentPositionString
    Case $setting = "getduration"
    Return $object.currentMedia.duration
    EndSelect
    EndFunc ;==>_wmpvalue

    [/autoit]

    Komisch ist aber das hier:

    Spoiler anzeigen
    [autoit]

    $Abfrage = _GetStatus($LoadStatus)

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

    If $Abfrage = "Play" Then

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

    MsgBox(0, "", $Abfrage) ; Zeigt in meinem kompletten Script "Play" an.

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

    $playerstate = $oPlayer.playstate

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

    MsgBox(0, "", $playerstate) ; Hier bekomme ich den Wert 9 zurück

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

    If $playerstate = 6 Or $playerstate = 1 Or $playerstate = 9 Then
    MsgBox(0, "", "Stop") ;Das hier funktioniert nicht...
    Else
    MsgBox(0, "", "Play")
    EndIf

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

    EndIf

    [/autoit]