[Pytanie] Sqlite.... I Richedit Dodawanie Tekstu W While

[Dubler]

pisze sobie nieinternetowy komunikator (dla kompów połączonych LANem i mających dyski wspólne) i już napisałem i śmiga mi etc ale moja "baza danych" z kontami opiera się na szyfrowanym pliku .ini co jak się doda znak wiecej/mniej to nie będzie działać a są u mnie w klasie/szkole takie nooby co lubią wszystko rozwalać... dlaczego chciałbym wrzucić jeśli nie wiadomości to choć same konta i ich konfiguracje do bazy danych i jakoś to zahasłować.

 

logowanie:

 

 

Func logowanieClick()

$sprawdzlogin = _Crypt_EncryptData(GUICtrlRead($Input1), "....", $....)

$sprawdzhaslo = _Crypt_EncryptData(GUICtrlRead($input2), "....", $....)

If GUICtrlRead($input2) = "" Then

MsgBox(16, "Error", "Błędny login lub hasło.")

Else

GUICtrlSetData($Input1, "")

GUICtrlSetData($input2, "")

$checkhaslo = IniRead("database.ini", $sprawdzlogin, "......", "error")

If $checkhaslo = $sprawdzhaslo Then

MsgBox(0, "Zalogowano", "Zalogowano pomyslnie.")

$zalogowano = "1"

$zalogowanyjako = BinaryToString(_Crypt_DecryptData($sprawdzlogin, ".....", $....))

GUISwitch($logowanie)

GUISetState(@SW_HIDE)

GUISwitch($userpanel)

GUICtrlSetData($zalogowanyjakolabel2, $zalogowanyjako)

GUISetState(@SW_SHOW)

$zm = 1

Else

MsgBox(16, "Error", "Błędny login lub hasło.")

EndIf

EndIf

EndFunc ;==>logowanieClick

 

tworzenie konta:

 

 

Func addaccoundClick()

GUISwitch($admaddkonto)

$dodajlogin = _Crypt_EncryptData(GUICtrlRead($Input4), "...", $.....)

$dodajhaslo = _Crypt_EncryptData(GUICtrlRead($Input5), ".....", $.....)

$zalogowanie = _Crypt_EncryptData(GUICtrlRead($Input4), ".....", $....)

GUICtrlSetData($Input4, "")

GUICtrlSetData($Input5, "")

IniReadSection("database.ini", $dodajlogin)

If @error Then

IniWriteSection("database.ini", $dodajlogin, "........" & $dodajhaslo)

IniWriteSection("database.ini", $dodajlogin, $zalogowanie & "....")

MsgBox(0, "Dodano", "Dodano!")

GUISwitch($admaddkonto)

GUISetState(@SW_HIDE)

GUISwitch($admpanel)

Else

MsgBox(16, "Error", "Login juz istnieje.")

EndIf

EndFunc ;==>addaccoundClick

 

 

Mój drugi problem polega na tym że przy włączaniu okienka czatu ładują się poprzednie wiadomości z pliku no i po załadowaniu włącza się pętelka w while która automatycznie czyta czy są nowe wiadomości i na końcu dodaje wiadomość choć nie powinna ( i na końcu są 2 te same wiadomości )

przykład:

To jest ukryta treść, proszę

• Zaloguj się
• lub
• Zarejestruj się

pentelka w while 1:

 

 

If $zalogowano = "1" Then

if $chatbox = "on" then

If StringToBinary(_GUICtrlEdit_GetLine($msgeditpanel, _GUICtrlrichEdit_GetLineCount($msgeditpanel)-1)) == FileReadLine($file2, -1) Then

Else

$text = BinaryToString(FileReadLine($file2, -1))

_GUICtrlEdit_AppendText($msgeditpanel, @CRLF & "---" & @CRLF & $text)

$buffer = FileRead($file2)

TrayTip("Nowa Wiadomosc", "Dostano nową wiadomość", 5, 4)

_GUICtrlRichEdit_ScrollLineOrPage($msgeditpanel, "ld")

_GUICtrlRichEdit_ScrollLineOrPage($msgeditpanel, "ld")

_GUICtrlRichEdit_ScrollLineOrPage($msgeditpanel, "ld")

EndIf

If _IsPressed("0D", $dll) Then

msgsend()

EndIf

EndIf

EndIf

 

i dodawanie tekstu wcześniejsze:

 

 

Func messageboxbtClick()

GUISwitch($userpanel)

GUISetState(@SW_HIDE)

GUISwitch($msgpanel)

GUISetState(@SW_SHOW)

inboxread()

$chatbox = "on"

sleep(200)

_GUICtrlRichEdit_Cut($msgeditpanel)

EndFunc ;==>messageboxbtClick

 

 

Jak to rozwiązać?

 

 

@edit

3 pytanie to jak zrobić żeby _IsPressed reagował tylko wtedy jak jest włączone konkretne GUI a nie w całym programie a nawet systemie

[4ggr35510n]

3 pytanie:

 

Rejestrujesz WN_NOTIFY za pomocą GuiRegisterMsg, potem tworzysz kilka struktur i zczytujesz kod windowsa. Dobry przykład tego jest w _GUICtrlListView_Create - odpal i obserwuj konsolę: może wychwycić każdą akcję GUI lub jego elementu.

 

ALBO

 

Podpinasz pod HotKeySet funkcję, która na samym początku sprawdza, czy dane okno jest aktywne (WinActive)

[Dubler]

@up

dzięki zastosowałem winactive z metody nr 2 i działa! thx