Beiträge von BinDannMalWeg

  • Hilfe bei Skript

    Zitat von SchrotterChwebnode

    Ist jetzt hald nicht gerade so schön aufgebaut

    aha ^^
    Kleiner Vorschlag:

    Spoiler anzeigen
    [autoit]

    #include <File.au3>
    #include <Date.au3>

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

    $sFile = _DirGetLatestFile(@DesktopDir, "*.pdf")
    If @error Then Exit
    ConsoleWrite("Neuste Datei: " & $sFile & @LF)
    FileMove($sFile, @DesktopDir & "\Muster.pdf")
    ; Tu hier was immer du mit der Batch tun wolltest lieber direkt in Autoit...
    Sleep(60 * 1000 * 60) ; Solches 'Warten' ist sehr unsicher und vor allem auch schlechter Stil - Ich wette mit dir, dass du irgend wie anderst erkennen kannst wann die Datei fertig 'bearbeitet' ist...
    FileMove(@DesktopDir & "\Muster.pdf", $sFile)

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

    Func _DirGetLatestFile($sDir, $sFileType = "*")
    If StringRight($sDir, 1) <> "\" Then $sDir &= "\"
    If Not FileExists($sDir) Then SetError(1)
    Local $aNew[2] = [999999999, ''], $aFiles = _FileListToArray($sDir, $sFileType, 1)
    If Not IsArray($aFiles) Then SetError(2)
    For $i = 1 To $aFiles[0]
    $a = FileGetTime($sDir & $aFiles[$i], 0, 0)
    If @error Then ContinueLoop
    $d = _DateDiff("s", $a[0] & "/" & $a[1] & "/" & $a[2] & " " & $a[3] & ":" & $a[4] & ":" & $a[5], _NowCalc())
    If $d < $aNew[0] Then
    $aNew[0] = $d
    $aNew[1] = $i
    EndIf
    Next
    If $aNew[1] = '' Then SetError(3)
    Return $sDir & $aFiles[$aNew[1]]
    EndFunc ;==>_DirGetLatestFile

    [/autoit]

  • SchrotterChwebnode - Projekte Sammlung

    Es tut mir Leid, aber das hier grenzt ja fast schon an Spam! Lauter von dir entwickelte Helferchen - Okay. Wenn du den Quellcode für dich behalten möchtest -Okay. Aber wieso postet man so etwas dann im "Scripte" Forum? Ehrlich gesagt erschließt sich mir nicht mal warum das überhaupt hier gepostet wird, wenn man hier nicht einmal Antworten soll... ?(

  • Gewünschte IP umleiten

    Rein theoretisch könntest du einen Proxyserver schreiben welcher dann auf 127.0.0.1 läuft, um ihn dann im System als Proxyserver einzutragen... Allerdings wäre das "etwas" kompliziert. ;) Wieso willst du das denn selber machen, wo es genau dafür doch wunderschöne Programme gibt?

  • Wiedermal RegExp...

    Wie wärs mit einem anderen Ansatz? Ich würde mir den Quellcode des Players (der ja bei allen Links fast gleich bleibt) ansehen und versuchen über diesen dann an die ID zu gelangen... ;) Du kannst hiermit ja mal testen:

    [autoit]

    #include <Array.au3>
    Local $sURL, $aResult
    $sURL = "http://www.youtube.com/watch?v=RGpkNPbSa2Q"
    $aResult = StringRegExp(BinaryToString(InetRead($sURL)), '"video_id": "(.+?)"', 3)
    _ArrayDisplay($aResult, $sURL)

    [/autoit]

  • Speichern, Laden in Combobox..

    Man verwendet keine Arrays ohne zu überprüfen ob überhaupt eines vorliegt! Das ist eben das Problem, wenn Anfänger versuchen mit ihrem Halbwissen anderen Anfängern zu helfen... ^^ Der Fehler sagt dir, dass du auf ein Array-Element zugreifst das nicht existiert. Deshalb musst du vorher überprüfen ob in $Array[0] die richtige Anzahl an Ergebnissen zurückgegeben wurde. Außerdem könntest du auch mit Hilfe des Befehls "IsArray()" überprüfen ob überhaupt eine Array zurückgegeben wurde und mit "Ubound()" dann die Länge des Arrays überprüfen... ;)

  • Spotify Link (STRG+C) zu Titel

    Ich nutze zwar Spotify nicht, aber ich hab das schnell mal etwas optimiert... ;)

    [autoit]

    Local $aIDs, $sData

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

    $aIDs = StringRegExp(ClipGet(), "(?:http\:\/\/)?(?:www\.)?open\.spotify\.com\/track\/([A-Za-z0-9]+)", 3)
    If Not IsArray($aIDs) Then Exit

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

    For $i = 0 To UBound($aIDs)-1
    $aInfo = _Spotify_GetInfoByID($aIDs[$i])
    $sData &= $aInfo[1] & " - " & $aInfo[0] & " - " & $aInfo[2] & @LF
    Next

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

    ClipPut($sData)

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

    Func _Spotify_GetInfoByID($sID)
    Local $sSource = BinaryToString(InetRead("http://open.spotify.com/track/" & $sID)), $aReturn[3], $aTrack = StringRegExp($sSource, '<meta property="og\:title" content="(.+?)">', 3), $aArtist = StringRegExp($sSource, '<h2> by <a href="\/artist\/.+?">(.+?)<\/a><\/h2>', 3), $aAlbum = StringRegExp($sSource, '<h3>Tracks in <a href="\/album\/.+?">(.+?)<\/a><\/h3>', 3)
    If IsArray($aTrack) Then $aReturn[0] = $aTrack[0]
    If IsArray($aArtist) Then $aReturn[1] = $aArtist[0]
    If IsArray($aAlbum) Then $aReturn[2] = $aAlbum[0]
    Return $aReturn
    EndFunc

    [/autoit]

  • [Suche Leute] 2D RPG-Spiel in Autoit

    Wieso jetzt schon wieder das nächste 2D-RPG anfangen? :D Frag doch den lieben Hauke mal ob ihr nich ne gemeinsame Sache draus machen könnt, denn dann sparst du dir einiges... (Er ist mittlerweile glaub ich schon bei Fullscreen 8o ) Ich selber habe schlichtweg nich die Zeit um mitzumachen, aber vielleicht kannst du dir ja bei meinem 2D-RPG ein paar Anregungen holen... :) (Kleiner Tipp: gaaanz unten ist die aktuellste Version zu finden ^^) Und falls es irgendwann wirklich mal an den Multiplayer-Mode geht, steuer ich gern den Netzwerk Teil bei... ;)

  • TCP Server [Grundgerüst]

    Ich möchte an dieser Stelle nur einmal anmerken, dass eine solche Konstruktion (auf Client- und Serverseite) zu sehr großen Problemen führen kann...

    [autoit]

    $Data = TCPRecv($Client, 1024)

    [/autoit]

    Denn was passiert wenn die Gegenseite gleich mehrere Pakete hintereinander schickt oder wenn ein Paket größer als 1024 Zeichen schickt? Genau es kommt zu Fehlern in der Verarbeitung! Deshalb sollte die Rückgabe von TCPRecv() stehts in einen Buffer geschrieben werden, welcher dann nach vollständigen Paketen abgesucht wird. Wenn diese dann abgearbeitet sind werden eben diese aus dem Buffer entfernt und übrig bleibt der Anfang des noch noch nicht vollständig angekommenen Paketes. ;)

  • RosettaCode Sammelthread

    Art: Neu-Implementierung
    Task: http://rosettacode.org/wiki/Loops/Nested
    Beteiligte: Christoph54
    Skript:

    Spoiler anzeigen
    [autoit]

    Local $Array[20][20] ; declare array
    ; fill array:
    For $row = 0 To 19
    For $collumn = 0 To 19
    $Array[$row][$collumn] = Random(1, 20, 1)
    Next
    Next
    ; search 20:
    For $row = 0 To 19
    For $collumn = 0 To 19
    ConsoleWrite($Array[$row][$collumn] & @TAB)
    If $Array[$row][$collumn] = 20 Then ExitLoop 2
    Next
    ConsoleWrite(@LF)
    Next

    [/autoit]