Bumek662

Yeah, FireFox code all work, thanks.

I have problem, first double click - working If i double click secound time - program crash. http://scr.hu/12lk/e9ofb

#include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <GUIListBox.au3> #include <WindowsConstants.au3> Global $GUI = GUICreate("Kulinarne przepisy", 293, 294, 302, 218) Global $Przepisy = GUICtrlCreateList("xd", 0, 0, 153, 292) GUICtrlSetData($Przepisy, "Skasuj Mnie|") $Skasuj = GUICtrlCreateButton("Skasuj", 160, 146, 129, 49) $Dodaj = GUICtrlCreateButton("Dodaj", 160, 90, 129, 49) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Dodaj Dodaj() Case $Skasuj If Not GUICtrlRead($Przepisy) = "" Then $DoSkasownia = _GUICtrlListBox_FindInText($Przepisy, GUICtrlRead($Przepisy)) _GUICtrlListBox_DeleteString($Przepisy, $DoSkasownia) EndIf EndSwitch WEnd Func Dodaj() Local $GuiDodaj = GUICreate("Dodawanie przepisu", 267, 357, 192, 124) GUICtrlCreateLabel("Podaj nazwę przepisu:", 64, 8, 139, 22) GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS") $Nazwa = GUICtrlCreateInput("", 0, 32, 265, 21) GUICtrlCreateLabel("Tutaj daj przepis:", 72, 64, 113, 22) GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS") $Przepis = GUICtrlCreateEdit("", 0, 88, 265, 225) GUICtrlSetData(-1, "Przepis") $Koniec = GUICtrlCreateButton("Dodaj!", 49, 320, 169, 33) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE GUIDelete($GuiDodaj) Return Case $Koniec GUICtrlSetData($Przepisy, GUICtrlRead($Nazwa) & "|") GUIDelete($GuiDodaj) Return EndSwitch WEnd EndFunc How to do that when I click two times for a given position in the list, it will start the feature?

#include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <GUIListBox.au3> #include <WindowsConstants.au3> Global $GUI = GUICreate("Kulinarne przepisy", 293, 294, 302, 218) Global $Przepisy = GUICtrlCreateList("xd", 0, 0, 153, 292) $Skasuj = GUICtrlCreateButton("Skasuj", 160, 146, 129, 49) $Dodaj = GUICtrlCreateButton("Dodaj", 160, 90, 129, 49) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Dodaj Dodaj() Case $Skasuj If Not GUICtrlRead($Przepisy) = "" Then $DoSkasownia = _GUICtrlListBox_FindInText($Przepisy, GUICtrlRead($Przepisy)) _GUICtrlListBox_DeleteString($Przepisy, $DoSkasownia) EndIf EndSwitch WEnd Func Dodaj() Local $GuiDodaj = GUICreate("Dodawanie przepisu", 267, 357, 192, 124) GUICtrlCreateLabel("Podaj nazwę przepisu:", 64, 8, 139, 22) GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS") $Nazwa = GUICtrlCreateInput("", 0, 32, 265, 21) GUICtrlCreateLabel("Tutaj daj przepis:", 72, 64, 113, 22) GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS") $Przepis = GUICtrlCreateEdit("", 0, 88, 265, 225) GUICtrlSetData(-1, "Przepis") $Dodaj = GUICtrlCreateButton("Dodaj!", 49, 320, 169, 33) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE GUIDelete($GuiDodaj) Return Case $Dodaj GUICtrlSetData($Przepisy, GUICtrlRead($Nazwa) & "|") GUIDelete($GuiDodaj) Return EndSwitch WEnd EndFunc I have problem, function dodaj() - Works. But only once, when I want to re-use function "dodaj" it does not work anymore, what's the problem? @edit Fixed, must rename button ;x

For M23: This is no bot program! ;x (This is project hmm.. "Chat" amateur ) // How to make AutoScroll? $Edit 4 = GUICtrlCreateEdit("Connected to server " & $srv , 8, 8, 417, 305, $CBS_AUTOHSCROLL) @ed Problem fix. Please lock this topic.

GUICtrlSetData ( $ showlog , "Zatwierdzono" & $ i & "z" & $ inputilosc i "wątków" ) Please help me. GuiCtrlSetData($showlog, GuiCtrlRead($showlog) & @lf & "text") Don't work.. Program don't added new line - don't working " @LF " why?

I'm write this bot for own use (but rather to learn)

Thx PlayHD, C:UsersBumekDesktopemail spambot new.au3(107,43) : ERROR: _GUICtrlEdit_InsertText(): undefined function. and: GuiCtrlSetData($showlog,GuiCtrlRead($showlog)&@LF&"New Line") don't read @LF - wtf? added text in 1 line, no't 2 line etc.

Hello! Please help me in this script: ; =========================== GUI LOGÓW ================================= $GuiLOG = GUICreate("Logi E-Mail", 440, 324, 192, 124) $showlog = GUICtrlCreateEdit("", 8, 8, 417, 305) GUISetState(@SW_SHOW) ; =========================== Gdy CheckBox zaznaczony================================= if $InfoChecked = "1" then for $i = 1 to $inputilosc $GmailUser = GUICtrlRead($adresat) ;Adres e-mail nadawcy(jednoczesnie uzytkownik) $GmailPass = GUICtrlRead($inputhaslo) ;Hasło do adresu e-mail nadawcy $ToEmail = GUICtrlRead($odbiorca) ;Adres e-mail odbiorcy $StmpServer = GUICtrlRead($wp) ;Adres serwera stmp nadawcy $Temat = GUICtrlRead($inputtemat) ;Temat Maila $Tresc = GUICtrlRead($edit) ;Tresc Maila $Nadawca = GUICtrlRead($inputnadawca) ;to zostanie wyswietlone w polu nadawca (Dowolny tekst) $Zalocznik = $otwieranie ;Wysłanie maila _INetSmtpMailCom($StmpServer, $Nadawca, $GmailUser, $ToEmail, $GmailUser, $GmailPass, "" & $temat & " " & $i & "/" & $inputilosc, $Tresc, $Zalocznik);mozna dorzucic jeszcze jeden argument z załącznikiem ; ============== This line please help \/ ============= GUICtrlSetData($showlog,"Wyslano " & $i & " z " & $inputilosc & " E-Maili!") ; ============== This line please help /\ ============= Next msgbox(0,"Brawo!","Wyslales " & $inputilosc & " emaili do " & $ToEmail) GuiCtrlSetData - how to make an added line and it does not change. this is piece of code

Patryk, pan wyżej napisał żebyś skorzystał z biblioteki (Include), przestudiowal. I'm speak polish.

Od dzisiaj ja pisze po polsku Można zamknąć temat.

I don't work ;/ 3 = 1 .. Ok, close this topic please. ;p

@M23 Bad shows the names of quite a different order. 1-2 does not show at all. I gave the above code, I did everything right there?

Does not work ;/ Fail? : #NoTrayIcon #RequireAdmin #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> Global $licensekey = "LicenceKey", $filepassword = "FilePassWord" Global $passkey[6] = ["Key_0", "Key_1", "Key_2", "Key_3", "Key_4", "Key_5"] Global $pass[6] = ["Pass_0", "Pass_1", "Pass_2", "Pass_3", "Pass_4", "Pass_5"] $filepassword = IniRead("config.passwordmanagerpro","filepassword","passwordfile","123") $x = InputBox("Hasło do programu", "Podaj hasło do tego programu. " & @LF & 'Domyślne to "123"', "","*",240,190) If $x = $filepassword Then FileSetAttrib("config.passwordmanagerpro","H") Global $pass[12], $passkey[12] For $i = 0 to 11 step +1 $pass[$i] = IniRead("config.passwordmanagerpro","password","pass"&($i+1),"") Next For $i = 0 to 11 step +1 $passkey[$i] = IniRead("config.passwordmanagerpro","guipass","pass"&($i+1),"") Next $licensekey = IniRead("config.passwordmanagerpro","LicenseSettings","LicenseTo","xxx") $PassGui = GUICreate("Password Manager Premium 1.4 - " & $licensekey, 654, 359, 200, 125) GUISetBkColor(0xFFFFFF) $a = GUICtrlCreateButton($passkey[0], 8, 8, 161, 57) $b = GUICtrlCreateButton($passkey[1], 8, 72, 161, 57) $c = GUICtrlCreateButton($passkey[2], 8, 136, 161, 57) $d = GUICtrlCreateButton($passkey[3], 8, 200, 161, 57) $e = GUICtrlCreateButton($passkey[4], 176, 8, 161, 57) $f = GUICtrlCreateButton($passkey[5], 176, 72, 161, 57) $g = GUICtrlCreateButton($passkey[6], 176, 136, 161, 57) $h = GUICtrlCreateButton($passkey[7], 176, 200, 161, 57) $i = GUICtrlCreateButton($passkey[8], 344, 8, 161, 57) $j = GUICtrlCreateButton($passkey[9], 344, 72, 161, 57) $k = GUICtrlCreateButton($passkey[10], 344, 136, 161, 57) $l = GUICtrlCreateButton($passkey[11], 344, 200, 161, 57) $Panel = GUICtrlCreateButton("Panel Zarządzania", 520, 8, 129, 209) $License = GUICtrlCreateLabel("Licencja dla: " & $licensekey, 13, 311, 499, 50) $Lock = GUICtrlCreateButton("Zablokuj", 8, 272, 497, 33) $Unlock = GUICtrlCreateButton("Odblokuj", 8, 272, 497, 33) $Autor = GUICtrlCreateLabel("Password Manger Premium by Bumek662 i PatrykN101", 13, 336, 443, 17) GUICtrlSetState($Unlock,$GUI_HIDE) GUICtrlSetState($Unlock,$GUI_DISABLE) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit case $Panel acp() exit Case $a _Function(0) Case $b _Function(1) Case $c _Function(2) Case $d _Function(3) Case $e _Function(4) Case $f _Function(5) case $Lock lock() case $Unlock unlock() EndSwitch WEnd ElseIf @error = 1 Then Exit run(@ScriptFullPath) Else MsgBox(0, "Błąd!", 'Ups. Złe hasło.' & @LF & 'Domyślne hasło to "123"', 2) EndIf Func acp() Local $sIniFile = "config.passwordmanagerpro" Local $FormGui = GUICreate("PMP - Konfiguracja - License to " & $licensekey, 538, 438, 232, 132) GUISetBkColor(0xFFFFFF) GUICtrlCreateGroup("Nazwy przycisków", 0, 0, 249, 217) Local $aNazwa[6] For $i = 0 To 5 GUICtrlCreateLabel("Nazwa " & ($i + 1), 8, ($i * 32) + 24, 68, 24) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $aNazwa[$i] = GUICtrlCreateInput($passkey[$i], 80, ($i * 32) + 24, 161, 24) Next GUICtrlCreateGroup("Hasla", 288, 0, 249, 217) Local $aHaslo[6] For $i = 0 To 5 GUICtrlCreateLabel("Haslo " & ($i + 1), 296, ($i * 32) + 24, 61, 24) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $aHaslo[$i] = GUICtrlCreateInput($pass[$i], 360, ($i * 32) + 24, 161, 24) Next GUICtrlCreateGroup("Ustawienia licencji", 24, 224, 489, 65) GUICtrlSetFont(-1, 11, 800, 0, "Poplar Std") GUICtrlCreateLabel("Licencja dla:", 32, 256, 77, 25) $LicenseInput = GUICtrlCreateInput($licensekey, 112, 248, 385, 29) GUICtrlCreateGroup("Haslo do programu", 24, 312, 489, 65) GUICtrlCreateLabel("Nowe haslo:", 32, 344, 77, 25) $PasswordInput = GUICtrlCreateInput($filepassword, 112, 336, 385, 29) GUICtrlCreateGroup("", -99, -99, 1, 1) $Clear = GUICtrlCreateButton("Przywróc Domyslne", 8, 400, 129, 33) $Save = GUICtrlCreateButton("Zapisz zmiany", 152, 400, 219, 33) $info = GUICtrlCreateButton("Informacje", 392, 400, 129, 33) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Run(@ScriptFullPath) Exit Case $Save For $i = 0 To 5 IniWrite($sIniFile, "guipass", "pass" & ($i - 1), GUICtrlRead($aNazwa[$i])) IniWrite($sIniFile, "password", "pass" & ($i - 1), GUICtrlRead($aHaslo[$i])) Next IniWrite($sIniFile, "filepassword", "passwordfile", GUICtrlRead($PasswordInput)) IniWrite($sIniFile, "LicenseSettings", "LicenseTo", GUICtrlRead($LicenseInput)) FileSetAttrib($sIniFile, "H") Run(@ScriptFullPath) Exit Case $info MsgBox(0, "Info", "Autorzy: Bumek662, PatrykN101" & @LF & "Wersja: 1.4 " & @LF & "Kontakt GG: 3934134 ") Case $Clear For $i = 0 To 5 GUICtrlSetData($aNazwa[$i], "") GUICtrlSetData($aHaslo[$i], "") Next GUICtrlSetData($PasswordInput, "123") GUICtrlSetData($LicenseInput, "") EndSwitch WEnd EndFunc ;==>acp Func _Function($iIndex) Local $Form1 = GUICreate("Haslo do: " & $passkey[$iIndex], 338, 152, 192, 132) $Input1 = GUICtrlCreateInput($pass[0], 0, 48, 337, 36) $IsPw = GUICtrlCreateLabel("Twoje haslo to:", 64, 8, 183, 33) GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif") $Change = GUICtrlCreateButton("Zmien haslo", 56, 96, 201, 41) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE GUIDelete($Form1) Return Case $Change $newpw = InputBox("Haslo", "Podaj tutaj swoje nowe haslo." & @LF & "Wszystkie zmiany zostana zapisane po restarcie programu.", "", "*", 250, 200) IniWrite("config.passwordmanagerpro", "password", "pass" & ($iIndex + 1), $newpw) GUICtrlSetData($Input1, $newpw) EndSwitch WEnd EndFunc ;== Funkcja pokazujaca haslo oraz mozliwosc zmiany go. func lock() GuiCtrlSetState($a,$GUI_DISABLE) GuiCtrlSetState($b,$GUI_DISABLE) GuiCtrlSetState($c,$GUI_DISABLE) GuiCtrlSetState($d,$GUI_DISABLE) GuiCtrlSetState($e,$GUI_DISABLE) GuiCtrlSetState($f,$GUI_DISABLE) GuiCtrlSetState($Panel,$GUI_DISABLE) GuiCtrlSetState($LOCK,$GUI_HIDE) GUICtrlSetState($Unlock,$GUI_SHOW) GuiCtrlSetState($Unlock,$GUI_ENABLE) EndFunc Func unlock() $x = InputBox("Zablokowano", "Podaj hasło do odblokowania " & @LF & 'Domyślne hasło to "123"', "","*",240,190) If $x = $filepassword Then GuiCtrlSetState($a,$GUI_ENABLE) GuiCtrlSetState($b,$GUI_ENABLE) GuiCtrlSetState($c,$GUI_ENABLE) GuiCtrlSetState($d,$GUI_ENABLE) GuiCtrlSetState($e,$GUI_ENABLE) GuiCtrlSetState($f,$GUI_ENABLE) GuiCtrlSetState($Panel,$GUI_ENABLE) GuiCtrlSetState($LOCK,$GUI_SHOW) GUICtrlSetState($Unlock,$GUI_HIDE) GuiCtrlSetState($Unlock,$GUI_DISABLE) ElseIf @error = 1 Then MsgBox(0, "Błąd!", 'Ups. Złe hasło.' & @LF & 'Domyślne hasło to "123"', 3) unlock() Else MsgBox(0, "Błąd!", 'Ups. Złe hasło.' & @LF & 'Domyślne hasło to "123"', 3) unlock() EndIf EndFunc

shit double, sorry.