Beiträge von stayawayknight

  • Gesamten Ordner von FTP Server herunterladen

    _FTP_DirPut_Contents
    [autoit]


    Func _FTP_DirPutContents($l_InternetSession, $s_LocalFolder, $s_RemoteFolder, $b_RecursivePut, $l_Context = 0)

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

    If StringRight($s_LocalFolder,1) == "\" Then $s_LocalFolder = StringTrimRight($s_LocalFolder,1)
    ; Shows the filenames of all files in the current directory.
    Local $search = FileFindFirstFile($s_LocalFolder & "\*.*")

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

    ; Check if the search was successful
    If $search = -1 Then Return SetError(1, 0, 0)

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

    Local $File
    While 1
    $File = FileFindNextFile($search)
    If @error Then ExitLoop
    If StringInStr(FileGetAttrib($s_LocalFolder & "\" & $File), "D") Then
    _FTP_DirCreate($l_InternetSession, $s_RemoteFolder & "/" & $File)
    If $b_RecursivePut Then
    _FTP_DirPutContents($l_InternetSession, $s_LocalFolder & "\" & $File, $s_RemoteFolder & "/" & $File, $b_RecursivePut, $l_Context)
    EndIf
    Else
    _FTP_FilePut($l_InternetSession, $s_LocalFolder & "\" & $File, $s_RemoteFolder & "/" & $File, 0, $l_Context)
    EndIf
    WEnd

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

    ; Close the search handle
    FileClose($search)
    Return 1
    EndFunc ;==>_FTP_DirPutContents

    [/autoit]

    Das ist die Funktion, die den Ordner hochlädt.
    Eigentlich kannst du diese fast übernehmen, du musst allerdings die (rekursive) Dateisuche natürlich mit den vom Namen her ähnlichen FTP-Funktionen auf dem FTP-Server durchführen, und "FilePut" und verwandte Befehle durch entsprechendes FileGet o.ä. ersetzen.

    Gruß stay

  • Bugs in GuiToolTip.au3?

    Hallo,

    ich wollte letztens die Funktionen der GuiToolTip-UDF testen und musste dabei feststellen, das, soweit ich getestet habe, kein einziges Beispielskript richtig anschlägt.
    Es tauchen bei mir keinerlei über diesen Weg erzeugte Tips auf.

    Ein Beispiel: http://translation.autoit.de/onlinehilfe/li…SetToolTips.htm
    In dem angegebenen Beispielskript wird bei mir über keinem Control ein Tooltip angezeigt.

    Gleiches gilt auch für das Beispiel von prog@ndy: Deutsche Hilfe - Funktionen ohne Beispiel

    Ich hatte dieses Probem bereits mit name22 und Raupi in der SB diskutiert, bei keinem von uns erschien ein Tip - obwohl in der MsgBox ein Handle ausgegeben wurde.
    Ich habe das nun mit beiden AutoItversionen getestet, es läuft bei keiner.
    Ich benutze Win7, Environment(Language:0407 Keyboard:00000407 OS:WIN_7/Service Pack 1 CPU:X64 OS:X86).

    Mache ich etwas falsch, oder liegt das Problem woanders?
    Als Bug ist dies soweit ich gesehen habe nicht registriert.

    Viele Grüße und Danke im Voraus
    stay


    Edit: Dank prog@ndy weiß ich nun, dass AutoIt wohl inzwischen die WM_NOTIFY Message nicht mehr sendet - weiß jemand, woran das liegen könnte?

  • Zahl + 1 senden

    Hi,

    ich kann dir nur folgendes empfehlen: [ gelöst ] Buch
    Ich habe das Gefühl, dass du dir mit den Basics noch nicht wirklich im Klaren bist, die wohl für die weitere Entwicklung deines geheimen Programms jedoch wichtig werden.

    Lies dir das (wirklich gute) Buch doch erstmal durch - dann sollten sich deine Fragen auflösen.

    Gruß stay

  • Runder Butten?

    Zitat von Xorianator

    @Marsi -> Eher der Sinus, nicht ?
    Wo brauchst du bei rundem den Pythagoras ?
    Das dauert doch deutlich länger, als wenn man einen Einheitskreis zeichnet ?

    Mit dem Pythagoras kannst du hier, ausgehend vom Mittelpunkt des Kreises, die Entferung der Maus zum Button errechnen.
    Wenn die Entfernung kleinergleich dem Radius ist, befindet sich die Maus beim Klicken im Button.

    Vielleicht liegts auch an mir, aber eine ähnliche Abfrage über den Sinus zu erreichen stelle ich mir komplizierter vor.

  • Einzelnes Zeichen nur 1x entfernen

    Meine Version:

    Spoiler anzeigen
    [autoit]


    MsgBox(0, "Resultat", _DeleteCharByNumber("amhmmfaff", 6))

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

    Func _DeleteCharByNumber($sStringArg, $iNumberArg)
    Local $sSplit = StringSplit($sStringArg, "")
    $sStringArg = ""
    For $i = 1 To UBound($sSplit) - 1
    If $i <> $iNumberArg Then $sStringArg &= $sSplit[$i]
    Next
    Return $sStringArg
    EndFunc ;==>_DeleteCharByNumber

    [/autoit]

  • kleines Programm

    Hallo,

    das Programm lässt sich wohl umsetzen, auch wenn der Zeitbedarf etwas größer sein sollte.
    Mir stellt sich beim Lesen deines Posts gerade nur die Frage: Was willst du eigentlich hier?
    Hast dich heute angemeldet, hast wohl nach eigener Aussage überhaupt keine Ahnung von AutoIt, willst aber, dass andere hier ein Programm für dich bauen.
    Was machst du dann eigentlich in einem Entwicklerforum?

    Außerdem bin ich mir nicht sicher, inwieweit die Nutzung der oben genannten Seiten hier legal ist.

    Falls das geklärt sein sollte, kann ich mich da durchaus mal dran versuchen.

    Gruß stay

  • ComboBox in Schleife auslesen

    Hi,

    mit dem On-Event-Mode sollte sich dein Problem lösen lassen:

    Beispiel
    [autoit]


    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    Opt("GUIOnEventMode", 1)
    $hGui = GUICreate("Gui", 615, 438, 192, 124)
    $cCombo = GUICtrlCreateCombo("Bitte ein Element auswählen", 120, 56, 153, 25)
    GUICtrlSetData(-1, "Text1|Text2|Text3")
    GUICtrlSetOnEvent(-1, "ComboTextChange")
    GUISetOnEvent($GUI_EVENT_CLOSE, "ende")
    GUISetState(@SW_SHOW)

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

    While 1
    Sleep(10)
    WEnd

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

    Func ComboTextChange()
    MsgBox(0, "Neues Element ausgewählt", GUICtrlRead($cCombo))
    EndFunc ;==>ComboTextChange

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

    Func ende()
    Exit
    EndFunc ;==>ende

    [/autoit]

    Gruß stay

  • [Mini Release] Reaktionsmesser :D

    Da stimmt was noch nicht ganz...

    Gruß stay

  • Countdown

    Hab dir mal was gebastelt, kannst du ja nach Belieben anpassen (die oben genannte Version mit der Msgbox schien mir etwas countdown-fremd)

    Oben werden die Sekunden angezeigt, der Progress zeigt den Fortschritt der aktuellen Minute an.

    Countdown
    [autoit]


    #include <Date.au3>

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

    $sDate = "2012/12/24 00:00:00" ;Weihnachten 2012

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

    ProgressOn("Countdown", "Countdown für " & $sDate, "Noch " & _DateDiff("s", _NowCalc(), $sDate) & " Sekunden.")
    WinSetOnTop("Countdown", "", 0)

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

    While _DateDiff("s", _NowCalc(), $sDate) > 0
    ProgressSet((100 / 60) * @SEC, "Countdown für " & $sDate, "Noch " & _DateDiff("s", _NowCalc(), $sDate) & " Sekunden.")
    Sleep(1000)
    WEnd

    [/autoit]