1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. autoBert

Beiträge von autoBert

  • _IEFormSubmit funktioniert nicht, es sind mehr als 2 Buttons auf der Seite

    • autoBert
    • 6. Januar 2013 um 16:17

    Benenne die Website oder schau dir das 2. Beispiel zu _IEAction an.

  • Durch Windos Post Install, Silent Installieren

    • autoBert
    • 5. Januar 2013 um 19:35
    Zitat von SSlayer93

    am ende des Textes steht


    Heist das jetzt für Windows 7 & Vista Benutzer keine Autounattend.xml mehr notwendig ist?


    Ja, dies ist die Aussage des Zitierten.

    Zitat von SSlayer93

    sry ich bestätige gern was ich verstanden habe :D :whistling: :whistling:


    Nein, damit stellst du dein Textveständnisf#higkeit in Frage.

    mfg autoBert

  • Problem mit meiner GUI

    • autoBert
    • 4. Januar 2013 um 14:14

    Hallo derBrot,

    ich würde dafür die GUICtrlPic.au3 von Großvater verwenden. Dein Skript sähe dann so aus:

    Spoiler anzeigen
    [autoit]

    #cs ----------------------------------------------------------------------------

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

    AutoIt Version: 3.3.6.1
    Author: Marcel B.

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

    Script Function:
    Template AutoIt script.

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

    #ce ----------------------------------------------------------------------------

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

    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <EditConstants.au3>
    #include <ButtonConstants.au3>
    #include <GDIPlus.au3>
    #include <WindowsConstants.au3>
    #include <GuiConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <FTPEx.au3>
    #include <Array.au3>
    #include <GUIConstantsEx.au3>
    #include <GuiComboBox.au3>
    #include <StaticConstants.au3>
    #include <Array.au3>
    #include <GUICtrlPic.au3>

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

    #Region ### START Koda GUI section ### Form=

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

    ;~ $Pic1 = GUICtrlCreatePic("background.jpg", 0, 0, 751, 523)
    ;~ GUICtrlSetState(-1, $GUI_DISABLE)
    Opt('GUIOnEventMode', 1)
    $WinMain = GUICreate("Form1", 705, 523, 283, 74)
    GUISetOnEvent($GUI_EVENT_CLOSE, '_LoginExit')
    $Pic1 = GUICtrlCreatePic("bg3.jpg", 0, 0, 705, 523)
    GUICtrlSetState(-1, $GUI_DISABLE)
    _GUICtrlPic_Create("headerhbulm.png", -10, 0)
    $Label3 = GUICtrlCreateLabel(" Benutzername:", 130, 220, 120, 26, $SS_CENTER)
    GUICtrlSetFont(-1, 11, 800, 0, "Arial Black")
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    $Label1 = GUICtrlCreateLabel("Probleme beim Einloggen ?", 157, 320, 132, 17)
    GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetColor(-1, 0x000080)
    $Label11 = GUICtrlCreateLabel("Datenschutzbestimmungen", 20, 488, 132, 17)
    GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetColor(-1, 0x000080)
    $Label111 = GUICtrlCreateLabel("", 160, 488, 132, 17)
    GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetColor(-1, 0x000080)
    ;~ $Label4 = GUICtrlCreateLabel("Datenschutzbestimmungen", 0, 504, 132, 17)
    ;~ GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
    ;~ GUICtrlSetColor(-1, 0x000080)
    $Label2 = GUICtrlCreateLabel("Willkommen im Control Center", 80, 98, 611, 27)
    GUICtrlSetFont(-1, 12, 800, 0, "Arial Black")
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    $Label5 = GUICtrlCreateLabel("Kennwort:", 130, 270, 90, 26, $SS_CENTER)
    GUICtrlSetFont(-1, 11, 800, 0, "Arial Black")
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    $Input2 = GUICtrlCreateInput("Kennwort", 138, 288, 145, 28, BitOR($GUI_SS_DEFAULT_INPUT, $ES_PASSWORD))
    GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
    $Input3 = GUICtrlCreateInput("Name", 138, 240, 145, 28)
    GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
    ;~ GUICtrlSetColor(-1, 0x000080)
    $Link = GUICtrlCreateLabel("www.LS-Roleplay.com", 160, 488, 374, 18)
    GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetColor(-1, 0x000080)
    $Link = GUICtrlCreateLabel("Copyright", 279, 488, 374, 18)
    GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetColor(-1, 0x000080)
    $LoginNow = GUICtrlCreateButton("Login", -280, -88, 75, 25, $BS_DEFPUSHBUTTON)
    GUICtrlSetOnEvent($LoginNow, "_Login")
    GUISetState(@SW_SHOW)
    ;~ GUICtrlSetData(@SW_HIDE,$hGUI )
    #EndRegion ### END Koda GUI section ###

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

    LoadCursor("1.cur", $WinMain)
    LoadCursor("2.cur", GUICtrlGetHandle($Input2))
    LoadCursor("3.cur", GUICtrlGetHandle($Label1))

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

    While 1
    Sleep(50)
    WEnd

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

    Func _LoginExit()
    Exit
    EndFunc ;==>_LoginExit

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

    Func _Login()
    GUISetState(@SW_HIDE, $WinMain)
    ;GUICtrlSetData(@SW_HIDE,$hGUI )
    MsgBox(0, "", "Hier wird einmal das Hauptmenu sein.")
    EndFunc ;==>_Login

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

    Func LoadCursor($szFileName, $hGuiX)
    $hCursor = DllCall("user32.dll", "hwnd", "LoadCursorFromFile", "str", $szFileName)
    $hCursor = $hCursor[0]
    If $hCursor <> 0 Then DllCall("user32.dll", "hwnd", "SetClassLong", "hwnd", $hGuiX, "int", -12, "hwnd", $hCursor)
    EndFunc ;==>LoadCursor

    [/autoit]

    mfg autoBert

  • AutoIt 3.3.8.1 komplett deutsche Hilfe verfügbar - Stand 2012.12.28

    • autoBert
    • 3. Januar 2013 um 22:00

    und wann wird die neue Hife im Forum (unter Downloads) verlinkt?

    mfg autoBert

  • Copying Tool

    • autoBert
    • 3. Januar 2013 um 20:17
    Zitat von Fliwatt

    Es wäre total nett, wenn mir jemand vieleicht die Arbeit abnehmen könnte,


    Wenn schon jemand anders deine Arbeit machen soll muss schon etwas mehr herausspringen als:

    Zitat von Fliwatt

    zum Beispiel ein Programm zu installieren oder mich irgendwo registrieren oder einen oder mehrere Youtube Kanäle zu abonnieren.

    und warum du für die MD-Prüfung eine bestimmte DLL vorschreibst verstehe ich gar nicht hat doch AutoIt

    [autoit]

    _Crypt_HashFile

    [/autoit]

    das ohne zusätzliche DLL auskommt.

    mfg autoBert

  • GUI nach minimieren weg

    • autoBert
    • 3. Januar 2013 um 19:29

    Da du deine PNG-Dateien nicht beigelegt hast kann man dein Skript (ohne unnötigen Aufwand)nicht testen. Du solltest dich einmal nach Großvater's GUICreateTransparent.au3 und GUICtrlPic.au3 umschauen. Diese beiden UDF's eignen sich wundebar für deinen Zweck.

    Edit: die verwendenten Bildnamen (cheats, trainer etc.) lassen eh Zweifel an der Forenregen Kompatibilität aufkommen.

    mfg autoBert

  • brauche hilfe bei meinem Updater

    • autoBert
    • 27. Dezember 2012 um 17:12

    Einfach den Eröffnungsbeitrag bearbeiten und den Präfix (nähe) Überschrift auf gelöst setzen und absenden.

    mfg autoBert

  • brauche hilfe bei meinem Updater

    • autoBert
    • 27. Dezember 2012 um 07:24
    Zitat von dreamer68

    kannst du mir bitte genauer sagen wo ich das einfügen muss ... also so dass auch ein Neuling das versteht


    Logischerweise bevor du das 1. Mal auf funpic zugreifst, danach nützt es ja nichts.

    Spoiler anzeigen
    [autoit]

    #RequireAdmin
    #NoTrayIcon

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

    $Pfad = @ProgramFilesDir & "\DreamsPrograms"
    $Pfad2 = @ProgramFilesDir & "\DreamsPrograms\DreamRadio"
    $VersionsInfo = "http://dreamer68.funpic.de/Radioversion.ini"

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

    $oldVersion = IniRead(@ProgramFilesDir & "\DreamsPrograms\DreamRadio\Radioupdate.ini","Version","Version","NotFound")
    $NewVersion = "0.0"

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

    HttpSetUserAgent("User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:11.0) Gecko/20100101 Firefox/11.0") ; User-Agent (Header) von AutoIt3 ändern, da beim Webhoster dieser gesperrt ist

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

    If Not FileExists( $Pfad ) Then
    DirCreate( $Pfad )
    EndIf

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

    If Not FileExists( $Pfad2 ) Then
    DirCreate( $Pfad2 )
    EndIf

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

    $Ini = BinaryToString(InetRead( "http://dreamer68.funpic.de/Radioversion.ini" ))
    FileWrite( $Pfad2 & "\Radioversion.ini", $Ini )

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

    $NewVersion = IniRead( $Pfad2 & "\Radioversion.ini","Version","Version","")
    If $NewVersion = $oldVersion Then
    Else
    $msg = MsgBox (4,"Update","There is a new version existing: " & $NewVersion & " ! You are using: " & $oldVersion & ". Do you want to download the new version?")
    If $msg = 7 Then
    Run( $Pfad2 & "\DreamRadio1.exe" )
    FileDelete( $Pfad2 & "\Radioversion.ini")
    ElseIf $msg = 6 Then
    $downloadLink = IniRead( $Pfad2 & "\Radioversion.ini","Version","download","NotFound")
    $dlhandle = InetGet( $downloadLink, $Pfad2 & "\DreamRadio1.exe", 0, 1 )
    ProgressOn( "", "", "",-1,-1,16 )
    $Size = InetGetSize( $downloadLink,1 )
    While Not InetGetInfo( $dlhandle, 2 )
    $Percent = ( InetGetInfo( $dlhandle,0 ) / $Size ) * 100
    ProgressSet( $Percent, $Percent & " percent")
    Sleep(1)
    WEnd
    ProgressSet(100 , "Done", "Complete")
    sleep(500)
    ProgressOff()
    IniWrite( $Pfad2 & "\Radioupdate.ini","version","version",$NewVersion)
    InetClose( $dlhandle )
    MsgBox(-1,"Success","Download Complete!")
    Run( $Pfad2 & "\DreamRadio1.exe" )
    EndIf
    FileDelete( $Pfad2 & "\Radioversion.ini")
    Exit
    EndIf

    [/autoit]

    mfg autoBert

  • Steam Client ohne GUI im Chatmodus

    • autoBert
    • 27. Dezember 2012 um 04:15
    Zitat von Awesome

    Steam bietet diese Gameserver-tools sogar extra an (kostenlose) !
    Sofern man sich das Spiel gekauft hat kann jeder einen eigenen gameserver ganz legal hosten

    Stimmt evtl.

    Zitat

    D. Software für dedizierte Server

    Ihr(e) Abonnement(s) enthält/enthalten gegebenenfalls Zugang zu der Software für dedizierte Server von Valve. Sollte dies der Fall sein, sind Sie berechtigt, die Valve-Software für dedizierte Server auf einer unbegrenzten Anzahl von Computern für das Hosten von Mehrspieler-Online-Spielen mit Valve-Produkten zu nutzen. Falls Sie die Valve-Software für dedizierte Server einzusetzen und in Betrieb zu nehmen beabsichtigen, sind ausschließlich Sie selbst für die Bereitstellung der für derartige Aktivitäten erforderlichen Internetzugänge, Bandbreite und/oder Hardware verantwortlich und haben sämtliche hiermit verbundenen Kosten zu tragen.


    Na dann kann er ja ohne Pobleme diese Gameservertools benutzen den die AGB sagen auch:

    Zitat

    F. Nutzungsbeschränkungen

    Es ist Ihnen untersagt, die Software für andere Zwecke als für den zulässigen Zugriff auf die Steam-Plattform und auf Ihre Abonnements oder sonst in Abweichung von den einschlägigen Abonnementbedingungen zu verwenden. Soweit nicht gemäß Vertragsziffer 2(C) (Modifikationen und abgeleitete Werke) oder sonst gemäß der vorliegenden Vereinbarung (umfasst sind hier auch jegliche Abonnementbedingungen oder Nutzungsrichtlinien) und ungeachtet der vorliegend geregelten Beschränkungen nach einschlägigem (Gesetzes-)Recht ausdrücklich gestattet, ist es Ihnen untersagt, die Software oder sonst über die Steam-Plattform abgerufene Software ohne die vorherige, schriftliche Zustimmung von Valve ganz oder teilweise zu kopieren, zu fotokopieren, zu vervielfältigen, zu veröffentlichen, zu vertreiben, zu übersetzen, nachzukonstruieren, zu verändern, zu zerlegen, zu dekompilieren, zur Grundlage eines abgeleiteten Werks zu machen oder aus ihr/ihnen den Quellcode abzuleiten oder von ihr/ihnen Schutzrechtshinweise oder sonstige Kennzeichen zu entfernen.

    Die vorliegende Vereinbarung gestattet es Ihnen nicht, die Software in einem Internet-Café, einer Computer-Spielhalle oder an einem anderen physischen Standort zu verwenden, es sei denn, es handelt sich bei Ihnen um einen konzessionierten Betreiber eines Internet-Cafés (im nachfolgend definierten Sinne). Ein „Internet-Café“ ist ein Ladengeschäft, in dem Computer-Arbeitsplätze zur Nutzung durch Kunden vorgehalten werden. Ein „konzessionierter Betreiber eines Internet-Cafés“ ist der Inhaber eines Internet-Cafés, der den Abonnementbedingungen für konzessionierte Betreiber von Internet-Cafés zugestimmt hat, welche unter der folgenden Internetadresse hinterlegt sind: http://store.steampowered.com/cybercafe_agreement/.

    Daher: Vote for Close

    mfg autoBert

  • brauche hilfe bei meinem Updater

    • autoBert
    • 27. Dezember 2012 um 03:45
    Zitat von dreamer68

    mein Problem ist jetzt nur, dass er das eig. Programm nicht downloaded


    Füge

    [autoit]

    HttpSetUserAgent("User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:11.0) Gecko/20100101 Firefox/11.0") ; User-Agent (Header) von AutoIt3 ändern, da bei manchen Webhostern der Standard-AutoIt Header gesperrt ist

    [/autoit]

    Danach sollte es eigentlich klappen.

    mfg autoBert

  • Steam Client ohne GUI im Chatmodus

    • autoBert
    • 26. Dezember 2012 um 20:56
    Zitat von chief_newgin

    Ich möchte sie nämlich nutzen um Gameserver starten, updaten und beenden zu können. Bitte helft mir!


    Hast du denn die nötgen Steamlizenz(en) für diese Gameserver? Ansonsten wäre es illegal und dafür darfst du keine Hilfe erwarten.


    @All: bitte bis zum Nachweis der Lizenz bitte nicht suporten

    mfg autoBert

  • Textdatei in einer bestimmtenzeile ein Text ändern ohne das ein anderes aus einer anderen Zeile mit überschrieben wird.

    • autoBert
    • 26. Dezember 2012 um 00:38
    Zitat von qwert23

    _ReplaceStringInFileist hierfür evtl. zu empfehlen.


    Absolut unbrauchbar da es in der Datei entweder alle (darf nicht sein, siehe Post 1) oder das 1. Vorkommen (Lotteriespiel, ist es das richtige?) ersetzt.

    Zitat von PainTain

    Du könntest mithilfe von "_FileListToArray" die Textdatei in einem Array speichern,

    Das geht auch nicht, was soll er mt den Dateinamen?

    Zitat von AspirinJunkie

    Einfacher wäre stattdessen die Datei zeilenweise in ein Array einzulesen (mit FileReadLine oder FileReadToArray), die entsprechende Zeile im Array zu ändern, die Datei zu löschen und auf Grundlage des Arrays wieder neu zu schreiben (mit FileWriteLine oder FileWriteFromArray.


    Klappt beides, ich würde aber die "_FileReadToArray / _FileWriteFromArray" Lösung vorziehen.

    mfg autoBert

  • Alternative Weihnachtslieder =:o)

    • autoBert
    • 25. Dezember 2012 um 03:00

    Der Text von http://www.youtube.com/watch?v=CGWywCFR31g ist :thumbup:

    Frohe Weihnachten

  • letsgo, der Applehasser, wird 16

    • autoBert
    • 24. Dezember 2012 um 22:41

    Auch von mir die besten Wünsch: Gesundheit, Erfolg und Glück in allen Lebenslagen.

    PainTain: dass er bei Äpfeln erst einmal skeptisch ist könnte daran liegen dass er als Kleinkind schon aufmerksam zugehört hat: http://www.youtube.com/watch?v=qNbxWQZ5XjM
    und diesen Ratschlag heute noch befolgt. Bei bereits angebissenen muss man doppelt vorsichtig sein.

  • Tastatur USB Kabel rein/raus

    • autoBert
    • 24. Dezember 2012 um 14:58
    Zitat von Zattoo

    habe ja schon gepostet das die help seite von denen (bei mir) nicht geht

    Seltsam, sie ging bei mir am 22. Dezember 2012, 13:26 und sie geht auch im Moment.

    Zitat von autoBert

    PS.: ich kann die Razer Suportseite aufufen.


    im übigen solltest du woh sebst in der Lge sein die Kontatadesse zu emitteln.

    mfg autoBert

  • Deutsche Hilfe - Funktionen ohne Beispiel

    • autoBert
    • 22. Dezember 2012 um 21:30

    Und hier noch ein Beispiel zu _FTP_DirDelete

    Spoiler anzeigen
    [autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include <FTPEx.au3>
    #include <File.au3>
    #include <Array.au3>

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

    Opt('MustDeclareVars', 1)

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

    _example1()

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

    Func _example1()
    Local $s_ServerName = 'ftp.nowhere.de' ;dieser Server existiert nicht
    Local $s_Username = "autobert"
    Local $s_Password = "topSecret"

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

    Local $s_RemoteFolder = "/FTPTestfiles/" ;dieser Ordner wird gelöscht
    Local $i_Passive = 1
    Local $l_InternetSession, $l_FTPSession, $errOpen, $errFTP

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

    $l_InternetSession = _FTP_Open('AuoItZilla') ;Öffnet eine FTP Sitzung
    $errOpen = @error
    If Not @error Then
    $l_FTPSession = _FTP_Connect($l_InternetSession, $s_ServerName, $s_Username, $s_Password, $i_Passive) ;Verbindet zu einem FTP Server
    $errFTP = @error
    If Not @error Then
    If _FTP_DirDelete($l_FTPSession, $s_RemoteFolder) Then
    ConsoleWrite("Löschen von " & $s_RemoteFolder & " erfolgreich" & @CRLF)
    Else
    If _FTP_DirRemove($l_FTPSession, $s_RemoteFolder, True) Then
    ConsoleWrite("Löschen von " & $s_RemoteFolder & " erfolgreich" & @CRLF)
    Else
    ConsoleWrite("Löschen von " & $s_RemoteFolder & " fehlgeschlagen" & @CRLF)
    EndIf
    EndIf
    Else
    MsgBox(0, "Connect", "fehlgeschlagen")
    ConsoleWrite("Connect: " & " " & $errFTP & @CRLF)
    EndIf
    Else
    MsgBox(0, "Open", "fehlgeschlagen")
    ConsoleWrite("Open " & " " & $errOpen & @CRLF)
    EndIf
    _FTP_Close($l_InternetSession) ;schliesst die FTP-Sitzng
    EndFunc ;==>_example1

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

    ;===============================================================================
    ; Function Name: _FTP_DirRemove($l_FTPSession, $sDir, $bDebug, $idProgress, $idLblPercent, $idLblFile)
    ; Description:: Löscht den amgegebenen Ordner inkl. aller Unterverzeichnisse
    ; Parameter(s): $l_FTPSession das von _FTP_Connect zurückgegebene Handle
    ; $sDir Verzeichnispfad, der gelöscht werden soll
    ; $bDebug optional True protokolliert in der Konsole
    ; $idProgress " ID des Fortschrittbalkens
    ; $idLblPercent " ID des Labels für Prozentanzeige
    ; $idLblFile " ID des Labels für aktuelle Aktion
    ; Demo Ja
    ;
    ; Autor(s): autoBert (http://www.autoit.de)
    ;
    ; zur freien Benutzung in eigenen Skripten und auch zur freien Weitergabe unter der Vorgabe,
    ; dass diese Funktionsbeschreibumg inkl. Autor nicht enfernt wird
    ;===============================================================================
    Func _FTP_DirRemove($l_FTPSession, $sDir, $bDebug = False, $idProgress=0, $idLblPercent=0, $idLblFile=0)
    If StringRight($sDir, 1) <> "/" Then $sDir &= "/"
    Local $aResult[1], $iPercent, $iRes = 1
    ToolTip('Zusammen stellen der Vereichnisliste, bitte warten ...') ;kann auskommentiert werden
    _FTP_FileList_Rekursiv($l_FTPSession, $aResult, $sDir, True)
    _ArrayInsert($aResult, 1, $sDir)
    $aResult[0] += 1
    if $bDebug Then _ArrayDisplay($aResult)
    For $i = $aResult[0] To 1 Step -1
    if $bDebug Then ConsoleWrite($aResult[$i] & @TAB)
    If $idLblFile > 0 Then GUICtrlSetData($idLblFile,$aResult[$i])
    If StringRight($aResult[$i], 1) = "/" Then
    If _FTP_DirDelete($l_FTPSession, $aResult[$i]) Then
    if $bDebug Then ConsoleWrite("Ordner gelöscbt")
    Else
    $iRes = 0
    if $bDebug Then ConsoleWrite("Ordner NICHT gelöscbt")
    EndIf
    Else
    If _FTP_FileDelete($l_FTPSession, $aResult[$i]) Then
    if $bDebug Then ConsoleWrite("Datei gelöscbt")
    Else
    if $bDebug Then ConsoleWrite("Datei NICHT gelöscbt")
    EndIf
    EndIf
    $iPercent = Round(100 - ($i/$aResult[0]*100),2)
    If $idLblPercent > 0 Then GUICtrlSetData($idLblPercent,$iPercent)
    If $idProgress > 0 Then GUICtrlSetData($idProgress,$iPercent)
    if $bDebug Then ConsoleWrite(@TAB & $iPercent & @CRLF)
    Next
    Return $iRes
    EndFunc ;==>_FTP_DirRemove
    ;===============================================================================
    ; Function Name: _FTP_FileList_Rekursiv($l_FTPSession, $aResult, $sPath, $bFolders)
    ; Description:: füllt ein Array mit Dateien (und Verzeichnissen wenn $bFolders true) des FTP-Pfades inkl. aller Unterverzeichnisse
    ; Parameter(s): $l_FTPSession das von _FTP_Connect zurückgegebene Handle
    ; $aResult = das Array in dem die Ergebnisse eingefügt werden
    ; $sPath = Verzeichnispfad, der eingefügt werden soll
    ; $bFolders = True = auch Verzeichnisse einfügen, False = nur Dateien, Default = nur Dateien
    ;
    ; Autor(s): autoBert (http://www.autoit.de)
    ;
    ; zur freien Benutzung in eigenen Skripten und auch zur freien Weitergabe unter der Vorgabe,
    ; dass diese Funktionsbeschreibumg inkl. Autor nicht enfernt wird
    ;===============================================================================
    Func _FTP_FileList_Rekursiv($l_FTPSession, ByRef $aResult, $sPath, $bFolders = False)
    Local $aFiles, $aFolders
    If $sPath <> "" Then
    _FTP_DirSetCurrent($l_FTPSession, $sPath)
    ;if _FTP_DirGetCurrent($l_FTPSession) <> $sPath Then Exit
    EndIf
    $aFiles = _Ftp_ListToArray($l_FTPSession, 2)
    If IsArray($aFiles) Then
    ;_ArrayDisplay($aFiles)
    If $aFiles[0] > 0 Then
    For $i = 1 To $aFiles[0]
    _ArrayAdd($aResult, $sPath & "/" & $aFiles[$i])
    ;ConsoleWrite("File: " & $sPath & "/" & $aFiles[$i] & @CRLF)
    Next
    EndIf
    EndIf
    $aFolders = _Ftp_ListToArray($l_FTPSession, 1)
    ;_ArrayDisplay($aFolders)
    If IsArray($aFolders) Then
    If $aFolders[0] > 0 Then
    For $i = 1 To $aFolders[0]
    If $aFolders[$i] <> '.' And $aFolders[$i] <> '..' Then
    ;ConsoleWrite("Folder: " & $sPath & "/" & $aFolders[$i] & @CRLF)
    If $bFolders Then _ArrayAdd($aResult, $sPath & "/" & $aFolders[$i] & "/")
    _FTP_FileList_Rekursiv($l_FTPSession, $aResult, $sPath & "/" & $aFolders[$i], $bFolders)
    EndIf
    Next
    EndIf
    EndIf
    $aResult[0] = UBound($aResult) - 1
    EndFunc ;==>_FTP_FileList_Rekursiv

    [/autoit]

    mfg autoBert

  • _FTP_DirDelete() Problem

    • autoBert
    • 22. Dezember 2012 um 17:26
    Zitat von TheShadow

    Ist ungtestet, sollte aber soweit funktionieren.


    Aber nur wenn der Ordner keine Unterordner enthält.

    mfg autoBert

  • _FTP_DirDelete() Problem

    • autoBert
    • 22. Dezember 2012 um 14:20
    Zitat von hauke96

    Damit er also nicht jede Minute auf seinem FTP Server den Ordner löschen muss, soll das programm das machen.


    Dann muss das Pogamm auch zuvor den Inhalt löschen.

    mfg autoBert

  • Problem bei While-Schleife incl. Variable

    • autoBert
    • 22. Dezember 2012 um 14:07

    Dafür eignet sich ein Array:

    [autoit]

    #Include <Array.au3>

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

    $var = "Andy|chris|mama|papa"
    $aVar = StringSplit($var, "|")
    _ArrayDisplay($aVar)

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

    For $i = 1 To $aVar[0]
    Sleep(2000)
    MsgBox(0, "", $aVar[$i], 1)
    Next

    [/autoit]

    mfg autoBert

  • _FTP_DirDelete() Problem

    • autoBert
    • 22. Dezember 2012 um 13:44
    Zitat von hauke96

    - Filezilla-Server Output: 500 Directory not empty


    Dann lösche halt zuvor den Inhalt.

    mfg autoBert

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™