Beiträge von autoBert

  • 2. erstelltes Gui Fenster schließt auch 1. erstelltes Gui Fenster

    nochmal gendert:

    Spoiler anzeigen
    [autoit]

    #region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_icon=..\..\..\Documents\Downloads\spring-desktop-icons-by-softicons.com\ico\monitor.ico
    #AutoIt3Wrapper_UseUpx=n
    #endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
    MsgBox(0, "Starten!", "Passwort Maker wird gestartet!", 1)
    DirCreate(@ScriptDir & "/Passwörter")
    IniWrite(@ScriptDir & "/einstellungen.dll", "Info", "Version", "1.0.0.0")
    #include <EditConstants.au3>
    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

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

    Global $erstellt = "Test " ;<==============================

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

    #region ### START Koda GUI section ### Form=
    $form1 = GUICreate("Passwort Maker by TheFreakBpx3", 305, 199, 481, 357)
    GUISetBkColor(0x008080)
    $erstellen = GUICtrlCreateButton("Passwort erstellen", 8, 88, 137, 49, $WS_GROUP)
    $speichern = GUICtrlCreateButton("Passwort speichern", 8, 144, 137, 49, $WS_GROUP)
    $Label1 = GUICtrlCreateLabel("Passwort Maker", 40, 24, 224, 33)
    GUICtrlSetFont(-1, 22, 400, 0, "@Dotum")
    GUICtrlSetColor(-1, 0x000000)
    $offnen = GUICtrlCreateButton("Liste öffnen", 152, 88, 137, 49, $WS_GROUP)
    $update = GUICtrlCreateButton("Update", 152, 144, 137, 49, $WS_GROUP)

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

    #region ### START Koda GUI section ### Form=
    $form2 = GUICreate("Speichern ", 443, 60, 590, 550)
    GUISetBkColor(0x008080)
    $Label1 = GUICtrlCreateLabel("Zweck:", 8, 16, 83, 32)
    GUICtrlSetFont(-1, 15, 400, 0, "Arial Black")
    $passwort = GUICtrlCreateInput("", 96, 16, 209, 28)
    GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
    $Button1 = GUICtrlCreateButton("Speichern", 312, 8, 129, 41, $WS_GROUP)
    GUICtrlSetFont(-1, 14, 400, 0, "Modern")

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

    GUISetState(@SW_SHOW, $form1)

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

    While 1
    $msg = GUIGetMsg(1)
    Switch $msg[1]
    Case $form1
    Switch $msg[0] ;<===========================
    Case $GUI_EVENT_CLOSE
    $namep = "Passwort Maker"
    $msgbox = MsgBox(36, "Beenden?", "Wollen sie " & $namep & " wirklich beenden? Alle bis jetzt nicht gespeicherten Daten gehen verloren!")
    If $msgbox = 6 Then
    Exit
    EndIf

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

    Case $erstellen
    $erstellt = Chr(Random(97, 122)) & Chr(Random(65, 90)) & Chr(Random(65, 90)) & Chr(Random(65, 90)) & Chr(Random(65, 90)) & Chr(Random(65, 90))
    MsgBox(64, "Passwort!", "Erstelltes PW: " & $erstellt)
    Case $speichern ;<===============================
    GUISetState(@SW_DISABLE, $form1)
    GUISetState(@SW_SHOW, $form2)
    Case $offnen ;<=============================== verschoben ab hier
    ShellExecute(@ScriptDir & "/passwörter/passwort.ini")
    Case $update
    FileDelete(@TempDir & "\update.txt")
    InetGet("http://www.quizthefreakbpx3.co.de/Pw/update.txt", @TempDir & "\update.txt", 1, 0)
    $updatetxt = FileOpen(@TempDir & "\update.txt", 0)
    $ver_server = FileReadLine($updatetxt, 1)
    $ver_pc = IniRead("einstellungen.dll", "Info", "Version", "")
    If $ver_server = $ver_pc Or $ver_server = "" Then
    FileClose($updatetxt)
    MsgBox(0, "Keine neue Version", "Es gibt kein Update!")
    Else
    $msgbox = MsgBox(36, "Update!", "Es ist ein neues Update verfügbar! Downloaden?")
    If $msgbox = 6 Then
    ToolTip("Update wird runtergeladen... bitte warten....")
    DirCreate(@ScriptDir & "\neue version")
    InetGet("http://www.quizthefreakbpx3.co.de/pw/PasswortMaker.exe", @ScriptDir & "\neue version\PasswortMaker.exe", 1, 0)
    IniWrite("einstellungen.dll", "Info", "Version", $ver_server)
    FileClose($updatetxt)
    FileDelete(@ScriptDir & "update.txt")
    ToolTip("")
    MsgBox(0, "Update", "Das Programm wurde heruntergeladen! Danke fürs downloaden!")
    EndIf
    EndIf ;<=============================== bis hier war der falschen Form zugeordnet
    EndSwitch
    Case $form2
    Switch $msg[0]
    Case $GUI_EVENT_CLOSE
    GUISetState(@SW_ENABLE, $form1) ;==================================
    GUISetState(@SW_HIDE, $form2) ;==================================
    Case $Button1

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

    $box = MsgBox(36, "Speichern?", "Wollen sie das Passwort " & $erstellt & " für den Zweck " & GUICtrlRead($passwort) & " speichern?")
    If $box = 6 Then
    IniWrite(@ScriptDir & "/passwörter/passwort.ini", GUICtrlRead($passwort), "Passwort", $erstellt)
    EndIf
    ;evtl. hier ach beenden
    GUISetState(@SW_ENABLE, $form1) ;==================================
    GUISetState(@SW_HIDE, $form2) ;==================================
    EndSwitch
    EndSwitch
    WEnd

    [/autoit]

    mfg autoBert

  • Scribt; PC Standby - PC "wecken" --> Scribt auslösen

    Hallo DieKey,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die deutsche Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

    und jetzt zu deinen Fragen: zum Einschalten schaust du am besten in die BIOS-Einstellungen deines Rechners ob es eine Möglichkeit gibt ihn automatisch einzuschalten sobald Strom anliegt, wenn ja Zeitschaltuhr besorgen, wenn nein Pech gehabt da ja Wake On Lan ja wohl ach nicht in Frage kommt wegen dem Strom sparen, ausserdem könntest du ja dann deine EMails an diesem Rechner checken.
    Wenn die Sache mit dem enschalten geklärt ist kannst du dir mit der POP3.AU3 ein Skript schreiben, dass deine EMails checkt. Eine gute Vorlage ist Oscar 's PorpShow (findest du im Forum Skripte bzw. über SuchFunktion).

    Ps.: Ich frage mich allerdings welche wichtigen Mails dies wohl sind, von deinem Brötchengeber können sie ja nicht sein, denn sonst dürfte der Stromverbrauch ja keine Rolle spielen.
    Lässt du dich auch nachts von diesen Mails terrorisieren?

    mfg autoBert

  • 2. erstelltes Gui Fenster schließt auch 1. erstelltes Gui Fenster

    Hallo thefreakbpx3,

    hier das korrigierte Skript:

    Spoiler anzeigen
    [autoit]

    #region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_icon=..\..\..\Documents\Downloads\spring-desktop-icons-by-softicons.com\ico\monitor.ico
    #AutoIt3Wrapper_UseUpx=n
    #endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
    MsgBox(0, "Starten!", "Passwort Maker wird gestartet!", 1)
    DirCreate(@ScriptDir & "/Passwörter")
    IniWrite(@ScriptDir & "/einstellungen.dll", "Info", "Version", "1.0.0.0")
    #include <EditConstants.au3>
    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

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

    Global $erstellt ="Test " ;<==============================

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

    #region ### START Koda GUI section ### Form=
    $form1 = GUICreate("Passwort Maker by TheFreakBpx3", 305, 199, 481, 357)
    GUISetBkColor(0x008080)
    $erstellen = GUICtrlCreateButton("Passwort erstellen", 8, 88, 137, 49, $WS_GROUP)
    $speichern = GUICtrlCreateButton("Passwort speichern", 8, 144, 137, 49, $WS_GROUP)
    $Label1 = GUICtrlCreateLabel("Passwort Maker", 40, 24, 224, 33)
    GUICtrlSetFont(-1, 22, 400, 0, "@Dotum")
    GUICtrlSetColor(-1, 0x000000)
    $offnen = GUICtrlCreateButton("Liste öffnen", 152, 88, 137, 49, $WS_GROUP)
    $update = GUICtrlCreateButton("Update", 152, 144, 137, 49, $WS_GROUP)

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

    #region ### START Koda GUI section ### Form=
    $form2 = GUICreate("Speichern ", 443, 60, 590, 550)
    GUISetBkColor(0x008080)
    $Label1 = GUICtrlCreateLabel("Zweck:", 8, 16, 83, 32)
    GUICtrlSetFont(-1, 15, 400, 0, "Arial Black")
    $passwort = GUICtrlCreateInput("", 96, 16, 209, 28)
    GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
    $Button1 = GUICtrlCreateButton("Speichern", 312, 8, 129, 41, $WS_GROUP)
    GUICtrlSetFont(-1, 14, 400, 0, "Modern")

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

    GUISetState(@SW_SHOW, $form1)

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

    While 1
    $msg = GUIGetMsg(1)
    Switch $msg[1]
    Case $form1
    Switch $msg[0] ;<===========================
    Case $GUI_EVENT_CLOSE
    $namep = "Passwort Maker"
    $msgbox = MsgBox(36, "Beenden?", "Wollen sie " & $namep & " wirklich beenden? Alle bis jetzt nicht gespeicherten Daten gehen verloren!")
    If $msgbox = 6 Then
    Exit
    EndIf

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

    Case $erstellen
    $erstellt = Chr(Random(97, 122)) & Chr(Random(65, 90)) & Chr(Random(65, 90)) & Chr(Random(65, 90)) & Chr(Random(65, 90)) & Chr(Random(65, 90))
    MsgBox(64, "Passwort!", "Erstelltes PW: " & $erstellt)
    Case $speichern
    Case $offnen ;==================================
    GUISetState(@SW_DISABLE, $form1)
    GUISetState(@SW_SHOW, $form2)

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

    EndSwitch

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

    Case $form2
    Switch $msg[0]
    Case $GUI_EVENT_CLOSE
    GUISetState(@SW_ENABLE, $form1) ;==================================
    GUISetState(@SW_HIDE, $form2) ;==================================
    Case $Button1

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

    $box = MsgBox(36, "Speichern?", "Wollen sie das Passwort " & $erstellt & " für den Zweck " & GUICtrlRead($passwort) & " speichern?")
    If $box = 6 Then
    IniWrite(@ScriptDir & "/passwörter/passwort.ini", GUICtrlRead($passwort), "Passwort", $erstellt)
    EndIf
    ;evtl. hier ach beenden
    GUISetState(@SW_ENABLE, $form1) ;==================================
    GUISetState(@SW_HIDE, $form2) ;==================================

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

    Case $offnen
    ShellExecute(@ScriptDir & "/passwörter/passwort.ini")
    Case $update
    FileDelete(@TempDir & "\update.txt")
    InetGet("http://www.quizthefreakbpx3.co.de/Pw/update.txt", @TempDir & "\update.txt", 1, 0)
    $updatetxt = FileOpen(@TempDir & "\update.txt", 0)
    $ver_server = FileReadLine($updatetxt, 1)
    $ver_pc = IniRead("einstellungen.dll", "Info", "Version", "")
    If $ver_server = $ver_pc Or $ver_server = "" Then
    FileClose($updatetxt)
    MsgBox(0, "Keine neue Version", "Es gibt kein Update!")
    Else
    $msgbox = MsgBox(36, "Update!", "Es ist ein neues Update verfügbar! Downloaden?")
    If $msgbox = 6 Then
    ToolTip("Update wird runtergeladen... bitte warten....")
    DirCreate(@ScriptDir & "\neue version")
    InetGet("http://www.quizthefreakbpx3.co.de/pw/PasswortMaker.exe", @ScriptDir & "\neue version\PasswortMaker.exe", 1, 0)
    IniWrite("einstellungen.dll", "Info", "Version", $ver_server)
    FileClose($updatetxt)
    FileDelete(@ScriptDir & "update.txt")
    ToolTip("")
    MsgBox(0, "Update", "Das Programm wurde heruntergeladen! Danke fürs downloaden!")

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

    EndIf
    EndIf
    EndSwitch
    EndSwitch
    WEnd

    [/autoit]

    Änderungen habe ich mit ;<========== gekennzeichnet

    mfg autoBert

  • Button-Icon aus dll -> Problem bei der Anzeigegröße

    Hallo dimmuwinter,

    du kannst auch eine _GUIImageList nehmen:

    [autoit]

    ;#AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
    #include <GUIConstantsEx.au3>
    #include <GuiButton.au3>
    #include <GuiImageList.au3>

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

    Opt("MustDeclareVars", 1)

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

    _Main()

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

    Func _Main()
    Local $sBMPNormal = @ScriptDIR & "\Icons\dsFirst_NORMAL.BMP"
    Local $sBMPHot = @ScriptDir & "\Icons\dsFirst_mouseover.bmp"
    Local $sBMPPress = @ScriptDir & "\Icons\dsFirst_mousedown.bmp"
    Local $sBMPImage = @ScriptDir&"\icons.dll"
    Local $btn1, $btn2, $btn3, $btn4, $msg
    Local $hImagebtn1, $hImagebtn2, $hImagebtn3 ,$hImagebtn4

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

    ;Caveat: Minimum Operating Systems: Windows XP.

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

    ;Image list with multiple images will only show the images
    ;other than the 1st image when Themes are used.

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

    Local $hGUI = GUICreate("Button Imagelists - Minimum OS: Windows XP",400,300)

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

    GUICtrlCreatePic(@WindowsDir & "\Web\Wallpaper\Windows XP.jpg", 0, 0, 400, 300)
    GUICtrlSetState(-1, $GUI_DISABLE)

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

    ;multi state image Bitmap
    $btn1 = GUICtrlCreateButton("This Way", 30, 30, 90, 32)
    GUICtrlSetTip(-1, "Multi state bitmap imagelist")
    $hImagebtn1 = _GUIImageList_Create(24, 24, 3, 3)
    _GUIImageList_AddBitmap($hImagebtn1, $sBMPNormal);1 - Normal
    _GUIImageList_AddBitmap($hImagebtn1, $sBMPHot) ;2 - Hot
    _GUIImageList_AddBitmap($hImagebtn1, $sBMPPress) ;3 - Pressed
    _GUIImageList_AddBitmap($hImagebtn1, $sBMPPress);4 - Disabled
    _GUIImageList_AddBitmap($hImagebtn1, $sBMPNormal);5 - Defaulted
    _GUIImageList_AddBitmap($hImagebtn1, $sBMPNormal);6 - Stylus Hot (tablet computers only)
    _GUICtrlButton_SetImageList($btn1, $hImagebtn1)
    ;#cs
    ;single state image Bitmap
    $btn2 = GUICtrlCreateButton("This Way", 30, 70, 90, 32)
    GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetTip(-1, "Single bitmap imagelist")
    $hImagebtn2 = _GUIImageList_Create(24, 24, 5, 3)
    _GUIImageList_AddBitmap($hImagebtn2, $sBMPNormal);1 - Normal
    _GUICtrlButton_SetImageList($btn2, $hImagebtn2)
    ;#ce
    ;single state image Icon
    $btn3 = GUICtrlCreateButton("Unlock", 30, 110, 90, 40)
    GUICtrlSetTip(-1, "Single icon imagelist")
    $hImagebtn3 = _GUIImageList_Create(32, 32, 5, 3)
    _GUIImageList_AddIcon($hImagebtn3, "msrating.dll", 10, True)
    _GUICtrlButton_SetImageList($btn3, $hImagebtn3)

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

    ;single state image Bitmap with overlayed text
    $btn4 = GUICtrlCreateButton("Help", 30, 160, 80, 80)
    GUICtrlSetTip(-1, "Single bitmap imagelist with overlayed text")
    GUICtrlSetFont(-1, 14, 800, -1, "Comic Sans MS")
    $hImagebtn4 = _GUIImageList_Create(72, 72, 5, 3)
    _GUIImageList_AddIcon($hImagebtn4, $sBMPImage)
    _GUICtrlButton_SetImageList($btn4, $hImagebtn4, 4)

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

    GUISetState()

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

    While 1
    $msg = GUIGetMsg()
    Switch $msg
    Case $GUI_EVENT_CLOSE
    Exit
    ; Case $btn1
    Case $btn2
    GUICtrlSetState($btn1, $GUI_DISABLE)
    Case $btn3
    GUICtrlSetState($btn1, $GUI_ENABLE)
    ; Case $btn4
    EndSwitch
    WEnd
    EndFunc ;==>_Main

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

    Um das Beispiel vollständig beurteilen zu können benötigst du ach noch Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    Edit: in deinem Skriptbeispiel benutzt d @Workingdir, dies funktioniert am Skriptanfang ach immer problemlos. Falls du jedoch

    [autoit]

    FileSetFolder;
    FileOpenDialog;
    FileSaveDialog

    [/autoit]

    in deinem Skript verwendest wird dadurch @WorkingDir verstellt nimm also besser @SkriptDir
    mfg autoBert

  • [abgebrochen] HTML-Datei bearbeiten - Javascript in gepseicherte Seite injizieren - hilfe?

    Hallo campweb,

    es ist unhöflich seinen Skriptcode nicht im Forum selbst zu posten. Ich war mal so frei:

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

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

    Global $game = FileOpen(@ScriptDir & "\Game.campweb")
    #region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("ddd", 435, 58, 192, 124)
    $Button1 = GUICtrlCreateButton("Bitte speichern Sie die Website auf der Sie spielen möchten ab, und öffnen sie diese hier!", 2, 2, 429, 25)
    $Button3 = GUICtrlCreateButton("Spiel starten", 2, 28, 430, 25)
    GUICtrlSetState(-1, $GUI_DISABLE)
    GUISetState(@SW_SHOW)
    #endregion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    open()
    Case $Button3
    start()

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

    EndSwitch
    WEnd

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

    Func open()
    Global $file = FileOpenDialog("Website öffnen", @MyDocumentsDir, "HTML-Dateien (*.html)|HTM-Dateien (*.htm)")
    $file2 = FileOpen($file, 2)
    FileWrite($file2, StringReplace(FileRead($file2), "</html>", FileRead($game) & "<p>" & FileRead($file2)))
    GUICtrlSetState($Button3, $GUI_ENABLE)
    EndFunc ;==>open

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

    Func start()
    ShellExecute($file)
    EndFunc ;==>start

    [/autoit]

    interessant wäre natürlich deine Game.campweb die du hineinschreibst,

    mfg autoBert

  • frage zu listview

    Nimm

    [autoit]

    _GUICtrlListView_GetItemTextArray

    [/autoit]

    dadurch erhälst du ein Array mit allen Spalteninhalten des aktuell ausgewählten Items. Das Element 0 des Array enthält die Anzahl der Spalten. wenn du also eine Listview mit 2 Spalten hast kannst du so:

    [autoit]

    $aItem = _GUICtrlListView_GetItemTextArray($listview)
    MsgBox(0, $aItem[1], $aItem[2])

    [/autoit]

    in der Überschrift die 1. Spalte und als Text die 2. Spalte anzeigen lassen,

    mfh autoBert

  • [How to] Updatefunktion mit AutoIt

    Zitat von thefreakbpx3

    Der Unterschied zu FileZilla ist,
    dass FileZilla ein Webspaceserver


    Falsch, FTP, FTPS und SFTP Client mit grafischer Oberfläche, FileZilla ist OpenSource gibt es daher für Windows, Linux etc.

    Ps.: den Rest hab ich mir nicht mehr durchgelesen, hoffe aber dass du da bessere Infos bereistellst. Wenn jemand sehen möchte wie man in einer AutoIt-Exe eine Auto-Update-Funktion einbaut kann sich meinen MP3-Player (Link siehe Signatur) anschauen. Ich glaube Schnuffel hat einen universellen Updater in seiner Signatur.

    mfg autoBert

  • FTP-Upload "freezt" Script ?

    Hallo Emperormatem,

    im Skript hat sich leider ein Fehler eingeschlichen, so dass das letzte OK nicht unbedingt stimmte. Deshalb noch einmal korrigiert und erweitert um anschliessenden Donwload des Upgeloadeten Files und Anzeige des selben:

    Spoiler anzeigen
    [autoit]

    #include <FTPEx.au3>
    #include <Misc.au3>

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

    #include <FTPEx.au3>
    #include <Misc.au3>

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

    $sServer = 'test.te.funpic.de'
    $sUser = "blabla"
    $sPwd = '(warum liest du das? Dieser Server existiert sowieso nicht...)'

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

    $datei_pfad = FileOpenDialog("Datei auswählen", "", "Alle (*.*)|Ausführbare (*.exe)")

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

    $DLFile = @ScriptDir & "\ReadMeTest.txt"
    If FileExists($DLFile) Then FileDelete($DLFile)

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

    For $i = 1 To StringLen($datei_pfad)
    $stringright = StringRight($datei_pfad, $i)
    $stringtrim = StringTrimRight($stringright, $i - 1)
    If $stringtrim = "\" Then
    $file_name_rew = $stringright
    ExitLoop
    EndIf
    Next

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

    $file_name = StringTrimLeft($file_name_rew, 1)
    ConsoleWrite($file_name & @CRLF)

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

    $bDebug = True

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

    ConsoleWrite("Try to open " & @TAB)
    $ftpopen = _FTP_Open("myftp")
    If Not @error Then
    If $bDebug Then ConsoleWrite("OK" & @CRLF)
    ConsoleWrite("Try to Connect " & @TAB)
    $ftpconnect = _FTP_Connect($ftpopen, $sServer, $sUser, $sPwd)
    If Not @error Then
    If $bDebug Then ConsoleWrite("OK" & @CRLF)
    ConsoleWrite("Try to upload " & $file_name_rew & " " & $file_name & @TAB)

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

    _FTP_FilePut($ftpconnect, $datei_pfad, $file_name)
    If Not @error Then
    If $bDebug Then ConsoleWrite("OK" & @CRLF)
    ConsoleWrite("Try to download " & $file_name & " " & $DLFile & @TAB)
    _FTP_FileGet($ftpconnect, $file_name, $DLFile)
    If Not @error Then
    If $bDebug Then ConsoleWrite("OK" & @CRLF)
    ShellExecute($DLFile)
    Else
    If $bDebug Then ConsoleWrite("Failed" & @CRLF)
    EndIf
    Else
    If $bDebug Then ConsoleWrite("Failed" & @CRLF)
    EndIf
    Else
    If $bDebug Then ConsoleWrite("Failed" & @CRLF)
    EndIf
    Else
    If $bDebug Then ConsoleWrite("Failed" & @CRLF)
    EndIf
    _FTP_Close($ftpopen)

    [/autoit]

  • Performance bei strings kopieren

    Hallo dustmaster,

    das Performance-Problem kommt nicht vom Verketten sondern vom zeilenweise einlesen. Teste einmal dieses Skript:

    [autoit]

    ;#include <File.au3>

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

    Path to hex-file/s-record
    $sFilepath = FileOpenDialog("Choose hex file", @ScriptDir, "hex/s-rocord (*.hex; *.s19; *.mot)")
    If @error Then Exit MsgBox(4096, "ERROR", "Reading sourcefile failed!!!")

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

    $sRaw = ""

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

    $begin = TimerInit()
    Local $aFile[1]
    _FileReadToArray($sFilepath, $aFile)
    If Not @error Then
    For $i = 1 To $aFile[0]
    ; String is Data Record in hex format
    $string = $aFile[$i]
    If StringMid($string, 1, 1) = ":" And StringMid($string, 8, 2) = "00" Then

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

    $sRaw = $sRaw & StringMid($string, 10, "0x" & StringMid($string, 2, 2) * 2)

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

    EndIf
    Next
    EndIf
    ConsoleWrite(TimerDiff($begin) & @CRLF)

    [/autoit]

    mfg autoBert