源码交流，恳请给予建议！

glsanshi

认真学习2个月了，一直是边写别学，由于现在上网账号比较多，边琢磨边写了一个账号记录器，
我感觉写代码也是要有想法的，同样的功能有的人写的就很漂亮
大家看看，很希望能指点一下？，谢谢
1. 初始密码123456
2. 11个记录条里密码不能为空，不然下次运行报错（暂时没去解决）
3. 已经打包，附件下载后重命名把.au3后缀删除

#NoTrayIcon
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#PRE_icon=C:\WINDOWS\system32\SHELL32.dll|-45
#PRE_Outfile=账号记录器 V2.0.exe
#PRE_Res_Comment=glsanshi制作
#PRE_Res_Description=账号记录器 V2.0
#PRE_Res_ProductVersion=V2.0
#PRE_Res_LegalCopyright=属于glsanshi
#PRE_Res_requestedExecutionLevel=None
#PRE_Res_Field=产品名称|账号记录器
#PRE_Res_Field=程序作者|glsanshi
#PRE_Res_Field=即时通信|QQ:
#PRE_Res_Field=电子邮件|E-Mail:
#Obfuscator_Parameters=/cn
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ACN_HASH.au3>
FileInstall("D:\个人重要资料(勿删)\Administrator\My Documents\账号记录器2\password.ini", @ScriptDir & "\password.ini")
FileInstall("D:\个人重要资料(勿删)\Administrator\My Documents\账号记录器2\1.jpg", @ScriptDir & "\1.jpg")
FileInstall("D:\个人重要资料(勿删)\Administrator\My Documents\账号记录器2\2.jpg", @ScriptDir & "\2.jpg")
FileInstall("D:\个人重要资料(勿删)\Administrator\My Documents\账号记录器2\3.jpg", @ScriptDir & "\3.jpg")
FileInstall("D:\个人重要资料(勿删)\Administrator\My Documents\账号记录器2\4.jpg", @ScriptDir & "\4.jpg")
FileInstall("D:\个人重要资料(勿删)\Administrator\My Documents\账号记录器2\5.jpg", @ScriptDir & "\5.jpg")
Opt("GUIOnEventMode", 1)
Dim $Button[3]
;登录窗口
$Form1 = GUICreate("请输入密码", 280, 430, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\1.jpg", 0, 0, 297, 446)
GUICtrlSetState(-1, $GUI_DISABLE)
$Input51 = GUICtrlCreateInput("", 16, 16, 89, 21, -1, $WS_EX_STATICEDGE)
GUICtrlSetFont(-1, 10, 400, 0, "宋体")
GUICtrlSetBkColor(-1, 0x008080)
$Button[0] = GUICtrlCreateButton("登录", 120, 14, 59, 24)
GUICtrlSetFont(-1, 9, 400, 0, "宋体")
GUICtrlSetBkColor(-1, 0xA6CAF0)
$Button[1] = GUICtrlCreateButton("修改密码", 16, 48, 75, 25)
GUICtrlSetFont(-1, 9, 400, 0, "宋体")
GUICtrlSetBkColor(-1, 0xA6CAF0)
Dim $Form1_1_AccelTable[1][2] = [["{enter}", $Button[0]]]
GUISetAccelerators($Form1_1_AccelTable)
;修改密码窗口
$Form2 = GUICreate("修改密码", 294, 450, 324, 115)
GUISetOnEvent($GUI_EVENT_CLOSE, "GUICtrlMsg")
$Pic11 = GUICtrlCreatePic(@ScriptDir & "\2.jpg", 0, 0, 312, 466)
GUICtrlSetState(-1, $GUI_DISABLE)
$Label1 = GUICtrlCreateLabel("原始密码", 192, 8, 52, 17, -1, $WS_EX_STATICEDGE)
GUICtrlSetBkColor(-1, 0x3D95FF)
$Input52 = GUICtrlCreateInput("", 192, 32, 81, 22, -1, $WS_EX_STATICEDGE)
GUICtrlSetFont(-1, 11, 400, 0, "宋体")
GUICtrlSetBkColor(-1, 0x008080)
$Label2 = GUICtrlCreateLabel("新密码", 193, 73, 40, 17, -1, $WS_EX_STATICEDGE)
GUICtrlSetBkColor(-1, 0x3D95FF)
$Input53 = GUICtrlCreateInput("", 193, 96, 81, 22, -1, $WS_EX_STATICEDGE)
GUICtrlSetFont(-1, 11, 400, 0, "宋体")
GUICtrlSetBkColor(-1, 0x008080)
$Button[2] = GUICtrlCreateButton("确定", 194, 138, 59, 25)
GUICtrlSetBkColor(-1, 0x008080)
;主界面
$Form3 = GUICreate("账号记录器_By glsanshi", 870, 553, 193, 123)
GUISetBkColor(0xA6CAF0)
$Input1 = GUICtrlCreateInput(IniRead(@ScriptDir & "\password.ini", "项目名称1", "项目1", ""), 94, 85, 281, 21)
$Label2 = GUICtrlCreateLabel("项目名称", 24, 88, 68, 20)
GUICtrlSetFont(-1, 12, 400, 0, "宋体")
GUICtrlSetColor(-1, 0x0000FF)
$Input2 = GUICtrlCreateInput(IniRead(@ScriptDir & "\password.ini", "账号名称1", "账号1", ""), 447, 84, 121, 21)
$Label3 = GUICtrlCreateLabel("账号", 408, 88, 36, 20)
GUICtrlSetFont(-1, 12, 400, 0, "宋体")
GUICtrlSetColor(-1, 0x800080)
$Input3 = GUICtrlCreateInput(BinaryToString(_Base64Decode(IniRead(@ScriptDir & "\password.ini", "密码名称1", "密码1", ""))), 637, 84, 121, 21)
$Label4 = GUICtrlCreateLabel("密码", 600, 88, 36, 20)
GUICtrlSetFont(-1, 12, 400, 0, "宋体")
GUICtrlSetColor(-1, 0xFF00FF)
$Input4 = GUICtrlCreateInput(IniRead(@ScriptDir & "\password.ini", "项目名称2", "项目2", ""), 95, 128, 281, 21)
$Label5 = GUICtrlCreateLabel("项目名称", 25, 131, 68, 20)
GUICtrlSetFont(-1, 12, 400, 0, "宋体")
GUICtrlSetColor(-1, 0x0000FF)
$Input5 = GUICtrlCreateInput(IniRead(@ScriptDir & "\password.ini", "账号名称2", "账号2", ""), 448, 127, 121, 21)
$Label6 = GUICtrlCreateLabel("账号", 409, 131, 36, 20)
GUICtrlSetFont(-1, 12, 400, 0, "宋体")
GUICtrlSetColor(-1, 0x800080)
$Input6 = GUICtrlCreateInput(BinaryToString(_Base64Decode(IniRead(@ScriptDir & "\password.ini", "密码名称2", "密码2", ""))), 638, 127, 121, 21)
$Label7 = GUICtrlCreateLabel("密码", 601, 131, 36, 20)
GUICtrlSetFont(-1, 12, 400, 0, "宋体")
GUICtrlSetColor(-1, 0xFF00FF)
$Input7 = GUICtrlCreateInput(IniRead(@ScriptDir & "\password.ini", "项目名称3", "项目3", ""), 94, 168, 281, 21)
$Label8 = GUICtrlCreateLabel("项目名称", 24, 171, 68, 20)
GUICtrlSetFont(-1, 12, 400, 0, "宋体")
GUICtrlSetColor(-1, 0x0000FF)
$Input8 = GUICtrlCreateInput(IniRead(@ScriptDir & "\password.ini", "账号名称3", "账号3", ""), 447, 167, 121, 21)
$Label9 = GUICtrlCreateLabel("账号", 408, 171, 36, 20)
GUICtrlSetFont(-1, 12, 400, 0, "宋体")
GUICtrlSetColor(-1, 0x800080)
$Input9 = GUICtrlCreateInput(BinaryToString(_Base64Decode(IniRead(@ScriptDir & "\password.ini", "密码名称3", "密码3", ""))), 637, 167, 121, 21)
$Label10 = GUICtrlCreateLabel("密码", 600, 171, 36, 20)
GUICtrlSetFont(-1, 12, 400, 0, "宋体")
GUICtrlSetColor(-1, 0xFF00FF)
$Input10 = GUICtrlCreateInput(IniRead(@ScriptDir & "\password.ini", "项目名称4", "项目4", ""), 95, 211, 281, 21)
$Label11 = GUICtrlCreateLabel("项目名称", 25, 214, 68, 20)
GUICtrlSetFont(-1, 12, 400, 0, "宋体")
GUICtrlSetColor(-1, 0x0000FF)
$Input11 = GUICtrlCreateInput(IniRead(@ScriptDir & "\password.ini", "账号名称4", "账号4", ""), 448, 210, 121, 21)
$Label12 = GUICtrlCreateLabel("账号", 409, 214, 36, 20)
GUICtrlSetFont(-1, 12, 400, 0, "宋体")
GUICtrlSetColor(-1, 0x800080)
$Input12 = GUICtrlCreateInput(BinaryToString(_Base64Decode(IniRead(@ScriptDir & "\password.ini", "密码名称4", "密码4", ""))), 638, 210, 121, 21)
$Label13 = GUICtrlCreateLabel("密码", 601, 214, 36, 20)
GUICtrlSetFont(-1, 12, 400, 0, "宋体")
GUICtrlSetColor(-1, 0xFF00FF)
$Input13 = GUICtrlCreateInput(IniRead(@ScriptDir & "\password.ini", "项目名称5", "项目5", ""), 94, 250, 281, 21)
$Label14 = GUICtrlCreateLabel("项目名称", 24, 253, 68, 20)
GUICtrlSetFont(-1, 12, 400, 0, "宋体")
GUICtrlSetColor(-1, 0x0000FF)
$Input14 = GUICtrlCreateInput(IniRead(@ScriptDir & "\password.ini", "账号名称5", "账号5", ""), 447, 249, 121, 21)
$Label15 = GUICtrlCreateLabel("账号", 408, 253, 36, 20)
GUICtrlSetFont(-1, 12, 400, 0, "宋体")
GUICtrlSetColor(-1, 0x800080)
$Input15 = GUICtrlCreateInput(BinaryToString(_Base64Decode(IniRead(@ScriptDir & "\password.ini", "密码名称5", "密码5", ""))), 637, 249, 121, 21)
$Label16 = GUICtrlCreateLabel("密码", 600, 253, 36, 20)
GUICtrlSetFont(-1, 12, 400, 0, "宋体")
GUICtrlSetColor(-1, 0xFF00FF)
$Input16 = GUICtrlCreateInput(IniRead(@ScriptDir & "\password.ini", "项目名称6", "项目6", ""), 95, 293, 281, 21)
$Label17 = GUICtrlCreateLabel("项目名称", 25, 296, 68, 20)
GUICtrlSetFont(-1, 12, 400, 0, "宋体")
GUICtrlSetColor(-1, 0x0000FF)
$Input17 = GUICtrlCreateInput(IniRead(@ScriptDir & "\password.ini", "账号名称6", "账号6", ""), 448, 292, 121, 21)
$Label18 = GUICtrlCreateLabel("账号", 409, 296, 36, 20)
GUICtrlSetFont(-1, 12, 400, 0, "宋体")
GUICtrlSetColor(-1, 0x800080)
$Input18 = GUICtrlCreateInput(BinaryToString(_Base64Decode(IniRead(@ScriptDir & "\password.ini", "密码名称6", "密码6", ""))), 638, 292, 121, 21)
$Label19 = GUICtrlCreateLabel("密码", 601, 296, 36, 20)
GUICtrlSetFont(-1, 12, 400, 0, "宋体")
GUICtrlSetColor(-1, 0xFF00FF)
$Input19 = GUICtrlCreateInput(IniRead(@ScriptDir & "\password.ini", "项目名称7", "项目7", ""), 94, 333, 281, 21)
$Label20 = GUICtrlCreateLabel("项目名称", 24, 336, 68, 20)
GUICtrlSetFont(-1, 12, 400, 0, "宋体")
GUICtrlSetColor(-1, 0x0000FF)
$Input20 = GUICtrlCreateInput(IniRead(@ScriptDir & "\password.ini", "账号名称7", "账号7", ""), 447, 332, 121, 21)
$Label21 = GUICtrlCreateLabel("账号", 408, 336, 36, 20)
GUICtrlSetFont(-1, 12, 400, 0, "宋体")
GUICtrlSetColor(-1, 0x800080)
$Input21 = GUICtrlCreateInput(BinaryToString(_Base64Decode(IniRead(@ScriptDir & "\password.ini", "密码名称7", "密码7", ""))), 637, 332, 121, 21)
$Label22 = GUICtrlCreateLabel("密码", 600, 336, 36, 20)
GUICtrlSetFont(-1, 12, 400, 0, "宋体")
GUICtrlSetColor(-1, 0xFF00FF)
$Input22 = GUICtrlCreateInput(IniRead(@ScriptDir & "\password.ini", "项目名称8", "项目8", ""), 95, 376, 281, 21)
$Label23 = GUICtrlCreateLabel("项目名称", 25, 379, 68, 20)
GUICtrlSetFont(-1, 12, 400, 0, "宋体")
GUICtrlSetColor(-1, 0x0000FF)
$Input23 = GUICtrlCreateInput(IniRead(@ScriptDir & "\password.ini", "账号名称8", "账号8", ""), 448, 375, 121, 21)
$Label24 = GUICtrlCreateLabel("账号", 409, 379, 36, 20)
GUICtrlSetFont(-1, 12, 400, 0, "宋体")
GUICtrlSetColor(-1, 0x800080)
$Input24 = GUICtrlCreateInput(BinaryToString(_Base64Decode(IniRead(@ScriptDir & "\password.ini", "密码名称8", "密码8", ""))), 638, 375, 121, 21)
$Label25 = GUICtrlCreateLabel("密码", 601, 379, 36, 20)
GUICtrlSetFont(-1, 12, 400, 0, "宋体")
GUICtrlSetColor(-1, 0xFF00FF)
$Input25 = GUICtrlCreateInput(IniRead(@ScriptDir & "\password.ini", "项目名称9", "项目9", ""), 96, 414, 281, 21)
$Label26 = GUICtrlCreateLabel("项目名称", 26, 417, 68, 20)
GUICtrlSetFont(-1, 12, 400, 0, "宋体")
GUICtrlSetColor(-1, 0x0000FF)
$Input26 = GUICtrlCreateInput(IniRead(@ScriptDir & "\password.ini", "账号名称9", "账号9", ""), 449, 413, 121, 21)
$Label27 = GUICtrlCreateLabel("账号", 410, 417, 36, 20)
GUICtrlSetFont(-1, 12, 400, 0, "宋体")
GUICtrlSetColor(-1, 0x800080)
$Input27 = GUICtrlCreateInput(BinaryToString(_Base64Decode(IniRead(@ScriptDir & "\password.ini", "密码名称9", "密码9", ""))), 639, 413, 121, 21)
$Label28 = GUICtrlCreateLabel("密码", 602, 417, 36, 20)
GUICtrlSetFont(-1, 12, 400, 0, "宋体")
GUICtrlSetColor(-1, 0xFF00FF)
$Input28 = GUICtrlCreateInput(IniRead(@ScriptDir & "\password.ini", "项目名称10", "项目10", ""), 97, 457, 281, 21)
$Label29 = GUICtrlCreateLabel("项目名称", 27, 460, 68, 20)
GUICtrlSetFont(-1, 12, 400, 0, "宋体")
GUICtrlSetColor(-1, 0x0000FF)
$Input29 = GUICtrlCreateInput(IniRead(@ScriptDir & "\password.ini", "账号名称10", "账号10", ""), 450, 456, 121, 21)
$Label30 = GUICtrlCreateLabel("账号", 411, 460, 36, 20)
GUICtrlSetFont(-1, 12, 400, 0, "宋体")
GUICtrlSetColor(-1, 0x800080)
$Input30 = GUICtrlCreateInput(BinaryToString(_Base64Decode(IniRead(@ScriptDir & "\password.ini", "密码名称10", "密码10", ""))), 640, 456, 121, 21)
$Label31 = GUICtrlCreateLabel("密码", 603, 460, 36, 20)
GUICtrlSetFont(-1, 12, 400, 0, "宋体")
GUICtrlSetColor(-1, 0xFF00FF)
$Input31 = GUICtrlCreateInput(IniRead(@ScriptDir & "\password.ini", "项目名称11", "项目11", ""), 96, 497, 281, 21)
$Label32 = GUICtrlCreateLabel("项目名称", 26, 500, 68, 20)
GUICtrlSetFont(-1, 12, 400, 0, "宋体")
GUICtrlSetColor(-1, 0x0000FF)
$Input32 = GUICtrlCreateInput(IniRead(@ScriptDir & "\password.ini", "账号名称11", "账号11", ""), 449, 496, 121, 21)
$Label33 = GUICtrlCreateLabel("账号", 410, 500, 36, 20)
GUICtrlSetFont(-1, 12, 400, 0, "宋体")
GUICtrlSetColor(-1, 0x800080)
$Input33 = GUICtrlCreateInput(BinaryToString(_Base64Decode(IniRead(@ScriptDir & "\password.ini", "密码名称11", "密码11", ""))), 639, 496, 121, 21)
$Label34 = GUICtrlCreateLabel("密码", 602, 500, 36, 20)
GUICtrlSetFont(-1, 12, 400, 0, "宋体")
GUICtrlSetColor(-1, 0xFF00FF)
$Button1 = GUICtrlCreateButton("修改", 776, 81, 49, 25)
$Button2 = GUICtrlCreateButton("修改", 776, 124, 49, 25)
$Button3 = GUICtrlCreateButton("修改", 777, 165, 49, 25)
$Button4 = GUICtrlCreateButton("修改", 777, 208, 49, 25)
$Button5 = GUICtrlCreateButton("修改", 778, 246, 49, 25)
$Button6 = GUICtrlCreateButton("修改", 778, 289, 49, 25)
$Button7 = GUICtrlCreateButton("修改", 779, 330, 49, 25)
$Button8 = GUICtrlCreateButton("修改", 779, 373, 49, 25)
$Button9 = GUICtrlCreateButton("修改", 781, 411, 49, 25)
$Button10 = GUICtrlCreateButton("修改", 781, 454, 49, 25)
$Button11 = GUICtrlCreateButton("修改", 782, 495, 49, 25)
GUICtrlSetFont(-1, 10, 400, 0, "宋体")
GUICtrlSetColor(-1, 0x008080)
$Group1 = GUICtrlCreateGroup("", 1, -6, 867, 71)
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\3.jpg", 187, 0, 497, 65)
$Pic2 = GUICtrlCreatePic(@ScriptDir & "\4.jpg", 0, 0, 193, 65)
$Pic3 = GUICtrlCreatePic(@ScriptDir & "\5.jpg", 682, 0, 189, 65)
GUICtrlCreateGroup("", -99, -99, 1, 1)
For $i = 0 To 2
        GUICtrlSetOnEvent($Button[$i], "GUICtrlMsg")
Next
GUISwitch($Form1)
GUISetState(@SW_SHOW)
While 1
        Sleep(100)
WEnd

Func GUICtrlMsg()
        Switch @GUI_CtrlId
                Case $GUI_EVENT_CLOSE
                        GUISetState(@SW_HIDE, @GUI_WinHandle)
                        GUISetState(@SW_SHOW, $Form1)
                Case $Button[0]
                        $password1 = GUICtrlRead($Input51)
                        $password = BinaryToString(_Base64Decode(IniRead(@ScriptDir & "\password.ini", "登录密码", "password", "")))
                        If StringCompare($password1, $password, 1) = 0 Then
                                GUISetState(@SW_HIDE, $Form1)
                                GUISetState(@SW_SHOW, $Form3)
                                _Login()
                        Else
                                MsgBox(5, "警告", "密码错误")
                        EndIf
                Case $Button[1]
                        GUISetState(@SW_HIDE, $Form1)
                        GUISetState(@SW_SHOW, $Form2)
                Case $Button[2]
                        $password1 = GUICtrlRead($Input52)
                        $password2 = GUICtrlRead($Input53)
                        $password = BinaryToString(_Base64Decode(IniRead(@ScriptDir & "\password.ini", "登录密码", "password", "")))
                        $Encrypt = _Base64Encode($password2)
                        If StringCompare($password1, $password, 1) = 0 Then
                                IniWrite(@ScriptDir & "\password.ini", "登录密码", "password", $Encrypt)
                        Else
                                $fanhuei = MsgBox(48, "警告", "密码错误")
                        EndIf
                        GUISetState(@SW_HIDE, $Form2)
                        GUISetState(@SW_SHOW, $Form1)
        EndSwitch
EndFunc   ;==>GUICtrlMsg
Func _Exit()
        Exit
EndFunc   ;==>_Exit
Func _login()
        Opt("GUIOnEventMode", 0)
        While 1
                $nMsg = GUIGetMsg()
                Select
                        Case $nMsg = $Button1
                                IniWrite(@ScriptDir & "\password.ini", "项目名称1", "项目1", GUICtrlRead($Input1))
                                IniWrite(@ScriptDir & "\password.ini", "账号名称1", "账号1", GUICtrlRead($Input2))
                                IniWrite(@ScriptDir & "\password.ini", "密码名称1", "密码1", _Base64Encode(GUICtrlRead($Input3)))
                        Case $nMsg = $Button2
                                IniWrite(@ScriptDir & "\password.ini", "项目名称2", "项目2", GUICtrlRead($Input4))
                                IniWrite(@ScriptDir & "\password.ini", "账号名称2", "账号2", GUICtrlRead($Input5))
                                IniWrite(@ScriptDir & "\password.ini", "密码名称2", "密码2", _Base64Encode(GUICtrlRead($Input6)))
                        Case $nMsg = $Button3
                                IniWrite(@ScriptDir & "\password.ini", "项目名称3", "项目3", GUICtrlRead($Input7))
                                IniWrite(@ScriptDir & "\password.ini", "账号名称3", "账号3", GUICtrlRead($Input8))
                                IniWrite(@ScriptDir & "\password.ini", "密码名称3", "密码3", _Base64Encode(GUICtrlRead($Input9)))
                        Case $nMsg = $Button4
                                IniWrite(@ScriptDir & "\password.ini", "项目名称4", "项目4", GUICtrlRead($Input10))
                                IniWrite(@ScriptDir & "\password.ini", "账号名称4", "账号4", GUICtrlRead($Input11))
                                IniWrite(@ScriptDir & "\password.ini", "密码名称4", "密码4", _Base64Encode(GUICtrlRead($Input12)))
                        Case $nMsg = $Button5
                                IniWrite(@ScriptDir & "\password.ini", "项目名称5", "项目5", GUICtrlRead($Input13))
                                IniWrite(@ScriptDir & "\password.ini", "账号名称5", "账号5", GUICtrlRead($Input14))
                                IniWrite(@ScriptDir & "\password.ini", "密码名称5", "密码5", _Base64Encode(GUICtrlRead($Input15)))
                        Case $nMsg = $Button6
                                IniWrite(@ScriptDir & "\password.ini", "项目名称6", "项目6", GUICtrlRead($Input16))
                                IniWrite(@ScriptDir & "\password.ini", "账号名称6", "账号6", GUICtrlRead($Input17))
                                IniWrite(@ScriptDir & "\password.ini", "密码名称6", "密码6", _Base64Encode(GUICtrlRead($Input18)))
                        Case $nMsg = $Button7
                                IniWrite(@ScriptDir & "\password.ini", "项目名称7", "项目7", GUICtrlRead($Input19))
                                IniWrite(@ScriptDir & "\password.ini", "账号名称7", "账号7", GUICtrlRead($Input20))
                                IniWrite(@ScriptDir & "\password.ini", "密码名称7", "密码7", _Base64Encode(GUICtrlRead($Input21)))
                        Case $nMsg = $Button8
                                IniWrite(@ScriptDir & "\password.ini", "项目名称8", "项目8", GUICtrlRead($Input22))
                                IniWrite(@ScriptDir & "\password.ini", "账号名称8", "账号8", GUICtrlRead($Input23))
                                IniWrite(@ScriptDir & "\password.ini", "密码名称8", "密码8", _Base64Encode(GUICtrlRead($Input24)))
                        Case $nMsg = $Button9
                                IniWrite(@ScriptDir & "\password.ini", "项目名称9", "项目9", GUICtrlRead($Input25))
                                IniWrite(@ScriptDir & "\password.ini", "账号名称9", "账号9", GUICtrlRead($Input26))
                                IniWrite(@ScriptDir & "\password.ini", "密码名称9", "密码9", _Base64Encode(GUICtrlRead($Input27)))
                        Case $nMsg = $Button10
                                IniWrite(@ScriptDir & "\password.ini", "项目名称10", "项目10", GUICtrlRead($Input28))
                                IniWrite(@ScriptDir & "\password.ini", "账号名称10", "账号10", GUICtrlRead($Input29))
                                IniWrite(@ScriptDir & "\password.ini", "密码名称10", "密码10", _Base64Encode(GUICtrlRead($Input30)))
                        Case $nMsg = $Button11
                                IniWrite(@ScriptDir & "\password.ini", "项目名称11", "项目11", GUICtrlRead($Input31))
                                IniWrite(@ScriptDir & "\password.ini", "账号名称11", "账号11", GUICtrlRead($Input32))
                                IniWrite(@ScriptDir & "\password.ini", "密码名称11", "密码11", _Base64Encode(GUICtrlRead($Input33)))
                        Case $nMsg = $GUI_EVENT_CLOSE
                                Exit
                EndSelect
        WEnd
EndFunc   ;==>_login

xms77

回复 1# glsanshi
为什么不放到源码区呢？

shqf

感觉可用列表框之类的控件解决比较好。

glsanshi

回复 3# shqf
我尝试一下

烟雨

感谢分享，学习一下