HELP mein script will nicht funktionieren....

    Hallo leute ...

    ich habe viel überlegt und vielgezweifelt... viele meiner probleme hab ich selbst gelösst....
    aber es tauchte wieder eines auf.... das ich alleine nicht lößen kann ...

    Spoiler anzeigen
    [autoit]


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

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

    #Region ### START Koda GUI section ### Form=C:\Users\Michaela\Desktop\ver und entschlüssler.kxf
    $Form1 = GUICreate("Ver- und Entschlüssler", 626, 355, -1, -1)
    GUISetBkColor(0xA0A0A0)
    $Edit1 = GUICtrlCreateEdit("", 8, 8, 513, 337)
    GUICtrlSetData(-1, "")
    GUICtrlSetFont(-1, 8, 400, 0, "arial")
    GUICtrlSetBkColor(-1, 0xC8C8C8)
    $Button1 = GUICtrlCreateButton("Speichern", 536, 80, 75, 25, 0)
    GUICtrlSetFont(-1, 8, 400, 0, "arial")
    $Button2 = GUICtrlCreateButton("Laden ", 536, 128, 75, 25, 0)
    GUICtrlSetFont(-1, 8, 400, 0, "arial")
    $Button3 = GUICtrlCreateButton("Homepage", 536, 176, 75, 25, 0)
    GUICtrlSetFont(-1, 8, 400, 0, "arial")
    $Button4 = GUICtrlCreateButton("Anleitung", 536, 224, 75, 25, 0)
    GUICtrlSetFont(-1, 8, 400, 0, "arial")
    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
    $pfad01 = FileSaveDialog ("Speicherort auswahl...","","Multisavedateien(*.tfj)")
    $stringer01 = _StringEncrypt (1, $Edit1, "hallo",4)
    FileWrite ($pfad01 , $stringer01)
    Case $Button2
    $pfad02 = FileOpenDialog ("Datei laden...","","Multisavedateien(*.tfj)")
    $reader = FileRead ($pfad02)
    $stringer02 = _StringEncrypt (0, $reader, "hallo",4)
    GUICtrlSetData ($Edit1, $stringer02)
    Case $Button3
    ShellExecute ("http://www.fratzi.jimdo.com/")
    Case $Button4
    MsgBox (0,"Anleitung", "Die Verwendung von diesem Programm ist Kinderleicht! Einfach das Edit1 löschen und Text eingeben, wenn es fertig ist, auf Speichern drücken. Andernfalls können Sie Gespeicherte dateien aufrufen und Sie lesen bzw umändern.")
    EndSwitch
    WEnd

    [/autoit]


    es haut beim speichern nicht hin... und beim lades weiss ich es nicht weil ich ja zuerst was speichern muss :D
    nagut kann mir einer helfen? danke im voraus

    Einmal editiert, zuletzt von WORLD-KILLER (9. August 2010 um 21:51)

    Hallo World-Killer (hoffentlich nicht ernst gemeint),

    • du solltest eine aussagekräftige Überschrift nehmen. Vielleicht hilft ja dass weiter:
      http://www.autoit.de/index.php?page=User&userID=204778
    • gerade bei verschlüsseltem Text ist es wichtig [autoit]$FileHandle = FileOpen($DeinPfad,2)[/autoit] zum öffnen der Datei zu verwenden, sonst gibst nur Müll
    • Du hast [autoit]GuiCtrlRead[/autoit] vergessen

    hier das korrigierte Skript:

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #Include <String.au3>

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

    #Region ### START Koda GUI section ### Form=C:\Users\Michaela\Desktop\ver und entschlüssler.kxf
    $Form1 = GUICreate("Ver- und Entschlüssler", 626, 355, -1, -1)
    GUISetBkColor(0xA0A0A0)
    $Edit1 = GUICtrlCreateEdit("", 8, 8, 513, 337)
    GUICtrlSetData(-1, "")
    GUICtrlSetFont(-1, 8, 400, 0, "arial")
    GUICtrlSetBkColor(-1, 0xC8C8C8)
    $Button1 = GUICtrlCreateButton("Speichern", 536, 80, 75, 25, 0)
    GUICtrlSetFont(-1, 8, 400, 0, "arial")
    $Button2 = GUICtrlCreateButton("Laden ", 536, 128, 75, 25, 0)
    GUICtrlSetFont(-1, 8, 400, 0, "arial")
    $Button3 = GUICtrlCreateButton("Homepage", 536, 176, 75, 25, 0)
    GUICtrlSetFont(-1, 8, 400, 0, "arial")
    $Button4 = GUICtrlCreateButton("Anleitung", 536, 224, 75, 25, 0)
    GUICtrlSetFont(-1, 8, 400, 0, "arial")
    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
    $pfad01 = FileSaveDialog ("Speicherort auswahl...","","Multisavedateien(*.tfj)")
    $stringer01 = _StringEncrypt (1, GuiCtrlRead($Edit1), "hallo",4)
    $hFile = FileOpen($pfad01,2) ;damit die Datei jedesmal neu erstellt wird
    FileWrite ($hFile , $stringer01)
    FileClose($hFile)
    Case $Button2
    $pfad02 = FileOpenDialog ("Datei laden...","","Multisavedateien(*.tfj)")
    $reader = FileRead ($pfad02)
    $stringer02 = _StringEncrypt (0, $reader, "hallo",4)
    GUICtrlSetData ($Edit1, $stringer02)
    Case $Button3
    ShellExecute ("http://www.fratzi.jimdo.com/")
    Case $Button4
    MsgBox (0,"Anleitung", "Die Verwendung von diesem Programm ist Kinderleicht! Einfach das Edit1 löschen und Text eingeben, wenn es fertig ist, auf Speichern drücken. Andernfalls können Sie Gespeicherte dateien aufrufen und Sie lesen bzw umändern.")
    EndSwitch
    WEnd

    [/autoit]

    mfg (Auto)Bert

    Du hast beim ersten _StringEncrypt ein GuiCtrlRead vergessen
    so wie du es machst verschlüsselst du nur das handle von der Editbox (mit den handle bin ich mir net sicher ob des stimmt)
    Also Zeile 31 muss so aussehen:

    [autoit]

    $stringer01 = _StringEncrypt(1,GuiCtrlRead($Edit1),"hallo",4)

    [/autoit]

    EDIT: Ich weiß ich bin langsam :pinch:

    autoBert
    nein das ist zum glück auch NICHT ernst gemeint (schade auch :D)
    deine "ausbesserung" hat mir sehr geholfen ! ! ! danke danke danke danke !
    und mir fallen nciht so gute überschriften aus :D ich nehm meist klassiker wie hier ;)

    @mysteryo
    joa auch deins hat mir geholfen und dan mit dem handle stimmt ;)