AutoHotkey Community

#SingleInstance,Force
#NoEnv

applicationname=PasswordStorer

loop, Passwords\*.*
{
If (StrLen(allfiles) = 0)
allfiles=%A_LoopFileName%
else
allfiles=%allfiles%|%A_LoopFileName%
}

Gui, Add, Tab, x-4 y0 w360 h370 , Storer|Finder
Gui, Tab, Storer
Gui, Add, Button, x366 y10 w100 h30 , Exit
Gui, Add, Text, x6 y40 w70 h20 , Website:
Gui, Add, Text, x6 y80 w70 h20 , User:
Gui, Add, Text, x6 y120 w70 h20 , Password:
Gui, Add, Edit,vEdit1 x86 y30 w100 h30
Gui, Add, Edit,vEdit2 x86 y70 w100 h30
Gui, Add, Edit,vEdit3 x86 y110 w100 h30
Gui, Add, Button, x6 y160 w100 h30 , Store
Gui, Tab, Finder
Gui, Add, Listbox, vMyListBox x6 y30 w220 h340
GuiControl,, myListBox, %allfiles%
Gui, Add, Button, x236 y330 w100 h30 , Open
Gui, Add, Button, x366 y10 w100 h30 , Exit
; Generated using SmartGUI Creator 4.0
Gui, Show, x131 y91 h377 w477, New GUI Window
gui,color,00FFFF
Return

applicationname=PasswordStorerFinder

ButtonStore:
FileCreateDir,Passwords
ControlGetText, WWW, Edit1
ControlGetText, Usernamee, Edit2
Controlgettext, Pss, Edit3
FileAppend,Username: %Usernamee%`nPassword: %Pss%, Passwords\%www%.txt
Msgbox,Success! saved details as follows:`nWebsite: %WWW%`nUsername: %Usernamee%`nPassword: %pss%
;Msgbox,%WWW%, %Usernamee%, %Pss%
Return

ButtonOpen:
gui,submit,nohide
Run,Passwords\%MyListBox%
return

ButtonExit:
ExitApp

GuiClose:
ExitApp