Hi,
ich bin gerade dabei ein skript zu erstellen, welches eine art chat werden soll... allerding klappt das mit dem entschlüsseln der datei nicht so richtig, deshalb brauch ich dringend hilfe, denn ich finde den Fehler einfach nicht(Das skript is im Anhang). Danke schonmal, 
Robin
kanns leider gerade nicht testen, aber was mir auffällt:
du löscht das $Edit1 nach etwas über 80ms wieder
das gibt max ein kurzes aufflackern der Nachricht
While 1
;GUICtrlSetData($Edit1, "") ; <-- löscht Nachricht
$read2 = _StringEncrypt(0,fileread($pfad), "1") ; <-- erst lesen, dann entschlüsseln
GUICtrlSetData($Edit1, $read2) ; <-- schreibt Nachricht
Sleep(80)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$read = GUICtrlRead($Edit2)
If $read = "" then
msgbox(48, "Information", "Du kannst keine Nachricht ohne Inhalt senden!")
else
FileWrite($pfad,_StringEncrypt(1, $user&": "&$read&@CRLF, "1"))
GUICtrlSetData($Edit2, "")
EndIf
EndSwitch
WEnd
Edit: außerdem musst du die ausgelesenen Daten entschlüsseln
du löscht das $Edit1 nach etwas über 80ms wieder
das gibt max ein kurzes aufflackern der Nachricht
Ja das stimmt und ich werde es auch noch ändern... aber jetzt ist erstmal das mit dem entschlüsseln wichtiger.
siehe edit oberer post
Oh hatte ich übersehen^^
Jetzt funktioniert es zumindest schonmal in der ersten Zeile, aber wenn man danach noch eine nachricht schreibt, wird diese wieder nicht entschlüsselt...
schreib mal über den FileWrite noch nen FileDelete, sonst steht die letzte verschlüsselte Nachricht noch in der Datei
ja hab ich, aber bringt i-wie nicht viel
hm, ich schaus mir zuhause mal an, wenn bis dahin kein anderer geantwortet hat
hab hier halt leider kein autoit
i-wann knack ich das sch..ß admin passwort^^
LOL oke danke schonmal
mal ein einfacher Ansatz ohne groß drüber nachgedacht zu haben ...
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <file.au3>
#include <string.au3>
HotKeySet("{F4}", "schliessen")
MsgBox(48, "Information", "Zum schließen des Schul-Chats einfach nur <F4> drücken")
$pfad = @desktopdir&"\NetControl.new"
$user = @UserName
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Schul-Chat", 467, 442, 405, 112)
Global $Edit1 = GUICtrlCreateEdit("", 9, 6, 442, 298, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_VSCROLL))
Global $Edit2 = GUICtrlCreateEdit("", 12, 318, 442, 73, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
Global $Button1 = GUICtrlCreateButton("Senden", 351, 405, 103, 25, $WS_GROUP)
Global $Button2 = GUICtrlCreateButton("Löschen", 151, 405, 103, 25, $WS_GROUP)
Global $read , $read2, $readfile
Global $pass = "mein_pass"
GUICtrlSetData($Edit1, "")
GUISetState(@SW_SHOW)
Global $Form1_AccelTable[1][2] = [["{ENTER}", $Button1]]
GUISetAccelerators($Form1_AccelTable)
#EndRegion ### END Koda GUI section ###
While 1
Sleep(10)
$readfile = _StringEncrypt(0,fileread($pfad),$pass,1)
If $read2 <> $readfile Then
$read2 = $readfile
GUICtrlSetData($Edit1, $read2)
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$read = GUICtrlRead($Edit2)
If $read = "" then
msgbox(48, "Information", "Du kannst keine Nachricht ohne Inhalt senden!")
else
FileDelete($pfad)
FileWrite($pfad,_StringEncrypt(1,$readfile&@CRLF&$user&": "&$read,$pass,1))
GUICtrlSetData($Edit2, "")
EndIf
Case $Button2
FileDelete($pfad)
EndSwitch
WEnd
func schliessen()
Exit
EndFunc
anbei das geänderte Script:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <file.au3>
#include <string.au3>
HotKeySet("{F4}", "schliessen")
MsgBox(48, "Information", "Zum schließen des Schul-Chats einfach nur <F4> drücken")
$pfad = @DesktopDir & "\NetControl.new"
$user = @UserName
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Schul-Chat", 467, 442, 405, 112)
Global $Edit1 = GUICtrlCreateEdit("", 9, 6, 442, 298, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN, $WS_VSCROLL))
Global $Edit2 = GUICtrlCreateEdit("", 12, 318, 442, 73, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN, $WS_VSCROLL))
Global $Button1 = GUICtrlCreateButton("Senden", 351, 405, 103, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
Global $Form1_AccelTable[1][2] = [["{ENTER}", $Button1]]
GUISetAccelerators($Form1_AccelTable)
#EndRegion ### END Koda GUI section ###
While 1
;GUICtrlSetData($Edit1, "")
$read2 = _StringEncrypt(0, FileRead($pfad), "1")
If $read2 <> GuiCtrlRead($Edit1) Then GUICtrlSetData($Edit1, $read2) ; <-- aktualisiert nur bei Änderung
;Sleep(80)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
schliessen()
Case $Button1
$read = GUICtrlRead($Edit2)
If $read = "" Then
MsgBox(48, "Information", "Du kannst keine Nachricht ohne Inhalt senden!")
Else
FileDelete($pfad)
FileWrite($pfad, _StringEncrypt(1, $read2 & $user & ": " & $read & @CRLF, "1"))
GUICtrlSetData($Edit2, "")
EndIf
EndSwitch
WEnd
Func schliessen()
FileDelete($pfad) ; <-- Nachrichtendatei löschen
Exit
EndFunc ;==>schliessen
Edit: verdammt, zu langsam gewesen^^
SUPER! Es funktioniert^^ Vielen Vielen Dank
