Beiträge von Conan10

  • SoundExtra - Problem

    Hi
    Habe heute mal versucht mit der SoundExtra-Udf den Sound zu verlangsamen. Direkt wurde mir eine Fehlermeldung rausgegeben, welche mir sagte, dass die Funktion mciSendString nicht enthalten wäre. Habe dadrauf im Forum gesucht und dieses Codestück gefunden:

    Spoiler anzeigen
    [autoit]


    Func mciSendString($string, $iLen = 0)
    Local $iRet
    $iRet = DllCall("winmm.dll", "int", "mciSendStringA", "str", $string, "str", "", "long", $iLen, "long", 0)
    If Not @error Then Return $iRet[2]
    EndFunc ;==>mciSendString

    [/autoit]


    Trotz diesem Code ging es aber nicht. Hoffe ihr könnt mir helfen.

    Die komplette UDF(mit dem Fehlerhaften Code):

    Spoiler anzeigen
    [autoit]

    Func _SoundTimeToMs($Hours, $Minutes, $Seconds)

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

    Return ($Hours*3600000)+($Minutes*60000)+($Seconds*1000)

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

    EndFunc

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

    Func _SoundMsToTime($ms)

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

    Local $Return[3]

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

    if $ms >= 3600000 Then; 1000*60*60 = 3600000
    $Hours = Floor($ms/3600000)
    $Rest = $ms-($Hours*3600000)
    Else
    $Hours = 0
    $Rest = $ms
    EndIf

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

    If $Rest >= 60000 Then; 1000*60 = 60000
    $Minutes = Floor($Rest/60000)
    $Rest = $Rest-($Minutes*60000)
    Else
    $Minutes = 0
    $Rest = $ms
    EndIf

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

    $Seconds = Round($Rest/1000)

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

    $Return[0] = $Hours
    $Return[1] = $Minutes
    $Return[2] = $Seconds

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

    Return $Return

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

    EndFunc

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

    Func _SoundInfo($sSnd_id, $Parameter); look at "http://msdn2.microsoft.com/en-us/library/ms713277(VS.85).aspx" at the table "digitalvideo" for possible parameters

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

    If StringInStr($sSnd_id,'!') Then Return SetError(3, 0, 0); invalid file/alias

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

    ;return status
    Return mciSendString("status " & FileGetShortName($sSnd_id) & " " &$Parameter)
    EndFunc;==>_SoundInfo

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

    Func _SoundSpeed($sSnd_id, $Speed); $Speed: 0 - 2267, 1000= normal
    ;Declare variables
    Local $iRet

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

    If StringInStr($sSnd_id,'!') Then Return SetError(3, 0, 0); invalid file/alias

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

    if $Speed < 0 or $Speed > 2267 Then Return SetError(1, 0, 0)

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

    $iRet = mciSendString("set " & FileGetShortName($sSnd_id) & " speed "&$Speed)
    ;return
    If $iRet = 0 Then
    Return 1
    Else
    Return SetError(1, 0, 0)
    EndIf
    EndFunc;==>_SoundSpeed

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

    Func _SoundPanLeft($sSnd_id, $Pan); $Pan: 0 - 1000, 1000= normal
    ;Declare variables
    Local $iRet

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

    If StringInStr($sSnd_id,'!') Then Return SetError(3, 0, 0); invalid file/alias

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

    if $Pan < 0 or $Pan > 1000 Then Return SetError(1, 0, 0)

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

    $iRet = mciSendString("setaudio " & FileGetShortName($sSnd_id) & " left volume to "&$Pan)
    ;return
    If $iRet = 0 Then
    Return 1
    Else
    Return SetError(1, 0, 0)
    EndIf
    EndFunc;==>_SoundPanLeft

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

    Func _SoundPanRight($sSnd_id, $Pan); $Pan: 0 - 1000, 1000= normal
    ;Declare variables
    Local $iRet

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

    If StringInStr($sSnd_id,'!') Then Return SetError(3, 0, 0); invalid file/alias

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

    if $Pan < 0 or $Pan > 1000 Then Return SetError(1, 0, 0)

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

    $iRet = mciSendString("setaudio " & FileGetShortName($sSnd_id) & " right volume to "&$Pan)
    ;return
    If $iRet = 0 Then
    Return 1
    Else
    Return SetError(1, 0, 0)
    EndIf
    EndFunc;==>_SoundPanRight

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

    Func _SoundVolume($sSnd_id, $Volume); $Volume: 0 - 1000, 1000= normal
    ;Declare variables
    Local $iRet

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

    If StringInStr($sSnd_id,'!') Then Return SetError(3, 0, 0); invalid file/alias

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

    if $Volume < 0 or $Volume > 1000 Then Return SetError(1, 0, 0)

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

    $iRet = mciSendString("setaudio " & FileGetShortName($sSnd_id) & " volume to "&$Volume)
    ;return
    If $iRet = 0 Then
    Return 1
    Else
    Return SetError(1, 0, 0)
    EndIf
    EndFunc;==>_SoundVolume

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

    Func mciSendString($string)
    Local $iRet
    $iRet = DllCall("winmm.dll", "int", "mciSendStringA", "str", $string, "str", "", "int", 65534, "hwnd", 0)
    If Not @error Then Return $iRet[2]
    EndFunc ;==>mciSendString

    [/autoit]

    Danke schonmal, wie immer, im Vorraus

  • Fehler bei der Autoit.de-Indexseite

    Hi an alle die mir helfen können.
    Habe neuerdings, das Problem, das mir im IE diese Fehlermeldung angezeigt wird:

    Spoiler anzeigen

    Details zum Fehler auf der Webseite

    Benutzer-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; Trident/4.0; SLCC1; .NET CLR 2.0.50727; Media Center PC 5.0; .NET CLR 1.1.4322; .NET CLR 3.5.30729; FDM; .NET CLR 3.0.30729)
    Zeitstempel: Sun, 14 Jun 2009 13:38:00 UTC


    Meldung: Objekt erforderlich
    Zeile: 685
    Zeichen: 2
    Code: 0
    URI: http://www.autoit.de/index.php?page=Index

    Hat jemand eine Lösung?

  • Morsecode'er

    .- .-.. ... --- / .. -.-. .... / ..-. .. -. -.. . / -.. . -. / -- --- .-. ... . -.-. --- -.. . .-. / . -.-. .... - / --. ..- - / -.. .- ... / .. ... - / . -.-. .... - / . .. -. . / --. ..- - . / ... .- -.-. .... . ;)

  • Präsentationsideen für AutoIt?

    Wahrscheinlich kann ich auch noch was dabei lernen. Bin nicht so der "Alles was geht muss ein Array sein"-Fan. Vielleicht werde ich es ja dann :D
    Aber 4D kannst du wirklich weglassen du kannst es zwar erwähnen, aber in normalen Situationen braucht man keine 4D.

  • ModernMenu - Größere Icons

    Hi,
    wollte mal fragen, ob es einen Befhel gibt, der bewirkt, dass beim Menü von der ModernMenu UDF die Icons größer werden. Die Frage kommt daher, dass mir die Icons zu klein sind und man sie gar nicht richtig erkennen kann.

    Vielen Danke für jede Antwort ;)

  • Hilfe bei Chatprog

    Also der 2. Fehler liegt wahrscheinlich daran, dass du den Port im Router nicht freigegeben hast.

    Auch dieser Ausschnitt ist irgendwie komisch da Disconnect zweimal vorkommt. :D

    [autoit]

    If $rec<>"" And $rec<>"Disconect" Then
    For $j= 0 To UBound($index)-1
    If $index[$j]<>"" Then TCPSend($index[$j],$rec)
    Next
    ElseIf $rec="Disconect" Then
    DisConect($index[$i])
    EndIf

    [/autoit]

    Auch würde ich mal die Rechtschreibung beachten: Connect, Disconnected, ... :P