GuiContextMenu: ; Запускается в ответ на щелчок правой клавишей мыши или на нажатие клавиши Apps.
; Эта проверка производится по желанию и отображает меню
; только в результате щелчка в пределах элемента управления  ListView.
if A_GuiControl <> MyListView 

Gui Add, Button, x390 y705 w80 h23 gButtonClose, Закрыть

return

; Отображает меню согласно заданным координатам, A_GuiX и A_GuiY.
; Необходимость использования этих переменных объясняется тем,
; что меню появится в заданном месте даже при нажатии клавиши Apps:
Menu, MyContextMenu, Show, %A_GuiX%, %A_GuiY%
return
ButtonClose:
return

#SingleInstance Force
#NoEnv
SetWorkingDir %A_ScriptDir%
SetBatchLines -1

Name = Логин-Пароль
Settings = Passw.txt

Load:
Gui, Destroy
Gui Add, Text, x8 y8 w120 h23 +0x200, Логин:
Gui Add, Text, x136 y8 w120 h23 +0x200, Пароль:
I = 5	; Начальная позиция Y.
All =
Loop, Read, % Settings
{
 All++	; Кол-во полей.
 I += 24	; Смещение для позиции по вертикали.
 D := StrSplit(A_LoopReadLine, ":")
 Gui Add, Edit, HwndhL%All% x8 y%I% w120 h21, % D[1]
 Gui Add, Edit, HwndhE%All% x136 y%I% w120 h21, % D[2]
}
Gui Add, Button, gSave x264 y8 w80 h23, Сохранить
Gui Add, Button, gAdd x264 y32 w80 h23, Добавить

Gui Show,, % Name
Return

GuiEscape:
GuiClose:
ExitApp


Save:
Text=
I=
Loop, % All
{
 I++
 ControlGetText, L, % "Edit" I, % Name
 ControlGetText, E, % "Edit" I+1, % Name
 I++
 Text .= L ":" E "`n"
}

File := FileOpen(Settings, "w")		; Сохраняем в файл настроек.
File.Write(Text)
File.Close()
Return


Add:
GoSub, Save	; Сохранить текущий список.
FileAppend, % "Логин:Пароль`n" , % Settings
GoSub, Load	; Пересоздать окно.
Return

AddLogin: ;gAddLogin
IfWinExist, Passw.txt
{
    WinActivate
}
else ;окно не существует
{
Run %A_ScriptDir%\Passw.txt,, UseErrorLevel

if ErrorLevel
	 Msgbox Невозможно открыть файл
     else
#IfWinActive Passw.txt
	 WinTitle = ahk_class  Notepad ahk_exe NOTEPAD.EXE
     WinWait Passw.txt
	 WinActivate Passw.txt
}
	;Passw.txt - развернуть, на передний план
Return

#SingleInstance force
Gui, Add, ListView, r10 w500 +Report +Grid vReplaceLV gLogin LV0x10 LV_DeleteCol(3) -Multi +Sort Count10, Login  | Password
Loop, Read, %A_ScriptDir%\Passw.txt
 LV_Add("", StrSplit(A_LoopReadLine, ":")*)
LV_ModifyCol(1, 150)
LV_ModifyCol(2, 150)
Gui, Add, Button, x100 y205 w80 h23 gAdd, Add
Gui, Add, Button, x200 y205 w80 h23 gОк, Ок
Gui, Add, Button, x300 y205 w80 h23 gSave, Save
;LV_ModifyCol()
;LV_ModifyCol(2, "Integer")
Gui, Show,
return

Add:
Return

Ок: ;gОк
{
IfWinExist, Блокнот
{
    WinActivate
}
else
{
MsgBox Запустите Блокнот
return
}
#IfWinActive Блокнот
WinTitle = ahk_class Notepad ahk_exe NOTEPAD.EXE
WinWait Passw.txt
    LV_GetText(Log, A_EventInfo, 1) ; Получаем текст строки из первого столбца.
	LV_GetText(Pass, A_EventInfo, 2)
	SendInput, %Log%
	SendInput, {Tab}
	SendInput, %Pass%
	SendInput, {Tab}
	SendInput, {Enter} ;Только вот на переменную enter почему-то не реагирует
	;goto, Lis
	;MsgBox %AutoIn%	
}
Return


Save:
ControlGet, Hwnd, Hwnd,, SysListView321, A	; Получаем индикатор ListView текущего окна.
ControlGet, ListText, List,,, ahk_id %hwnd%	; Весь видимый текст.
Text =

Loop, Parse, ListText, `n	; Парсим строки.
{
 StringReplace, T, A_LoopField, % A_Tab, : , All	; Заменяем делитель 'Tab' на ':'.
 Text .= T "`n"
}

File := FileOpen(A_ScriptDir "\Passw.txt", "w")		; Сохраняем в файл настроек.
File.Write(Text)
File.Close()
Return


GuiEscape:
GuiClose:
ExitApp
Return

if A_GuiEvent = f

if A_GuiEvent = e ;Закончено редактирование первого поля строки
;то открывается для редактирования вторая