表格填写账号密码信息

屠夫UD

我去恶趣味

lhj0522

哈哈哈哈或或或或或或

comedy192

2244444444444

wdly0513

学习学习

Demono

      看看。

wsxw5100

11111111111111111111111111111111

ascripter

感谢分享。

caohezy

不错哦

ifiloved

学习下

owngame

变量 配置临时内容 = "", 获取键码, 获取功能键, 获取表格行, 获取表格列, 控件分割串1, 控件分割串2, 控件分割串3
//读写 0=保存 1=读取
//自定义控件名说明,默认为空
//类型:1=编辑框 2=单选 3=复选 4=列表 5=下拉 6=进度 7=滑块 8=浏览框 9=选项卡 10=热键 11=日期 12=表格
//自定义格式:配置(0,2.单选框控件名1&单选框控件名2|1.我是编辑框1&我是编辑框2)
功能 配置(读写 = 0, 自定义控件名 = "", 父窗口 = "", 路径 = ".\\读写配置.ini")
    选择(读写)
        条件 0
        遍历(变量 i = 0; i < 999; i++)
            如果(控件获取句柄("编辑框" & i, 父窗口) == 0)
                跳出
            结束
            文件写配置("配置", "编辑框" & i & 父窗口, 编辑框获取文本("编辑框" & i, 父窗口), 路径)
        结束
        遍历(变量 i = 0; i < 999; i++)
            如果(控件获取句柄("复选框" & i, 父窗口) == 0)
                跳出
            结束
            文件写配置("配置", "复选框" & i & 父窗口, 复选框获取状态("复选框" & i, 父窗口), 路径)
        结束
        遍历(变量 i = 0; i < 999; i++)
            如果(控件获取句柄("单选框" & i, 父窗口) == 0)
                跳出
            结束
            文件写配置("配置", "单选框" & i & 父窗口, 单选框获取状态("单选框" & i, 父窗口), 路径)
        结束
        遍历(变量 i = 0; i < 999; i++)
            如果(控件获取句柄("列表框" & i, 父窗口) == 0)
                跳出
            结束
            遍历(变量 ii = 0; ii < 列表框获取选项个数("列表框" & i, 父窗口); ii++)
                选择(ii)
                    条件 0
                    配置临时内容 = 列表框获取文本("列表框" & i, ii, 父窗口)
                    默认
                    配置临时内容 = 配置临时内容 & "<换行>" & 列表框获取文本("列表框" & i, ii, 父窗口)
                结束
            结束
            文件写配置("配置", "列表框文本" & i & 父窗口, 配置临时内容, 路径)
            文件写配置("配置", "列表框选项" & i & 父窗口, 列表框获取选项("列表框" & i, 父窗口), 路径)
        结束
        遍历(变量 i = 0; i < 999; i++)
            如果(控件获取句柄("下拉框" & i, 父窗口) == 0)
                跳出
            结束
            遍历(变量 ii = 0; ii < 下拉框获取选项个数("下拉框" & i, 父窗口); ii++)
                选择(ii)
                    条件 0
                    配置临时内容 = 下拉框获取选项文本("下拉框" & i, ii, 父窗口)
                    默认
                    配置临时内容 = 配置临时内容 & "<换行>" & 下拉框获取选项文本("下拉框" & i, ii, 父窗口)
                结束
            结束
            文件写配置("配置", "下拉框文本" & i & 父窗口, 配置临时内容, 路径)
            文件写配置("配置", "下拉框选项" & i & 父窗口, 下拉框获取选项("下拉框" & i, 父窗口), 路径)
        结束
        遍历(变量 i = 0; i < 999; i++)
            如果(控件获取句柄("进度条" & i, 父窗口) == 0)
                跳出
            结束
            文件写配置("配置", "进度条" & i & 父窗口, 进度条获取进度("进度条" & i, 父窗口), 路径)
        结束
        遍历(变量 i = 0; i < 999; i++)
            如果(控件获取句柄("滑块" & i, 父窗口) == 0)
                跳出
            结束
            文件写配置("配置", "滑块" & i & 父窗口, 滑块获取位置("滑块" & i, 父窗口), 路径)
        结束
        遍历(变量 i = 0; i < 999; i++)
            如果(控件获取句柄("浏览框" & i, 父窗口) == 0)
                跳出
            结束
            文件写配置("配置", "浏览框" & i & 父窗口, 浏览框获取文本("浏览框" & i, 父窗口), 路径)
        结束
        遍历(变量 i = 0; i < 999; i++)
            如果(控件获取句柄("选项卡" & i, 父窗口) == 0)
                跳出
            结束
            文件写配置("配置", "选项卡" & i & 父窗口, 选项卡获取选项("选项卡" & i, 父窗口), 路径)
        结束
        遍历(变量 i = 0; i < 999; i++)
            如果(控件获取句柄("热键" & i, 父窗口) == 0)
                跳出
            结束
            热键获取键码("热键" & i, 获取键码, 获取功能键, 父窗口)
            配置临时内容 = 获取键码 & "<热键>" & 获取功能键            
            文件写配置("配置", "热键" & i & 父窗口, 配置临时内容, 路径)
        结束
        遍历(变量 i = 0; i < 999; i++)
            如果(控件获取句柄("日期框" & i, 父窗口) == 0)
                跳出
            结束
            文件写配置("配置", "日期框" & i & 父窗口, 日期框获取文本("日期框" & i, 父窗口), 路径)
        结束
        遍历(变量 i = 0; i < 999; i++)
            如果(控件获取句柄("表格" & i, 父窗口) == 0)
                跳出
            结束
            文件写配置("配置", "表格" & i & 父窗口, 表格获取所有数据("表格" & i, 父窗口), 路径)
            表格获取大小("表格" & i, 获取表格行, 获取表格列, 父窗口)
            遍历(变量 ii = 0; ii < 获取表格行; ii++)
                遍历(变量 iii = 0; iii < 获取表格列; iii++)
                    选择(表格获取类型("表格" & i, ii, iii, 父窗口))
                        条件 1
                        表格获取下拉框选项("表格" & i, ii, iii, 父窗口)
                        文件写配置("配置", "表格下拉框选项" & i & ii & "-" & iii & 父窗口, 表格获取下拉框选项("表格" & i, ii, iii, 父窗口), 路径)
                        文件写配置("配置", "表格下拉框内容" & i & ii & "-" & iii & 父窗口, 表格获取下拉框内容("表格" & i, ii, iii, 配置临时内容, 父窗口), 路径)
                        条件 2
                        文件写配置("配置", "表格复选框状态" & i & ii & "-" & iii & 父窗口, 表格获取复选框状态("表格" & i, ii, iii, 父窗口), 路径)
                    结束
                结束
            结束
        结束
        如果(自定义控件名 == "")
            返回 0
        结束
        字符串分割(自定义控件名, "|", 控件分割串1)
        遍历(变量 i = 0; i < 数组大小(控件分割串1); i++)
            字符串分割(控件分割串1[i], ".", 控件分割串2)
            如果(数组大小(控件分割串2) > 2)
                消息框("自定义控件格式输入错误:\r\n" & 数组大小(控件分割串2))
                跳出
            结束
            选择(控件分割串2[0])
                条件 1
                字符串分割(控件分割串2[1], "&", 控件分割串3)
                遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
                    文件写配置("配置", 控件分割串3[ii] & 父窗口, 编辑框获取文本(控件分割串3[ii], 父窗口), 路径)
                结束
                条件 2
                字符串分割(控件分割串2[1], "&", 控件分割串3)
                遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
                    文件写配置("配置", 控件分割串3[ii] & 父窗口, 单选框获取状态(控件分割串3[ii], 父窗口), 路径)
                结束
                条件 3
                字符串分割(控件分割串2[1], "&", 控件分割串3)
                遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
                    文件写配置("配置", 控件分割串3[ii] & 父窗口, 复选框获取状态(控件分割串3[ii], 父窗口), 路径)
                结束
                条件 4
                字符串分割(控件分割串2[1], "&", 控件分割串3)
                遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
                    遍历(变量 iii = 0; iii < 列表框获取选项个数(控件分割串3[ii]); iii++)
                        选择(iii)
                            条件 0
                            配置临时内容 = 列表框获取文本(控件分割串3[ii], iii, 父窗口)
                            默认
                            配置临时内容 = 配置临时内容 & "<换行>" & 列表框获取文本(控件分割串3[ii], iii, 父窗口)
                        结束
                    结束
                    文件写配置("配置", 控件分割串3[ii] & 父窗口 & "选项", 列表框获取选项(控件分割串3[ii], 父窗口), 路径)
                    文件写配置("配置", 控件分割串3[ii] & 父窗口, 配置临时内容, 路径)
                结束
                条件 5
                字符串分割(控件分割串2[1], "&", 控件分割串3)
                遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
                    遍历(变量 iii = 0; iii < 下拉框获取选项个数(控件分割串3[ii]); iii++)
                        选择(iii)
                            条件 0
                            配置临时内容 = 下拉框获取选项文本(控件分割串3[ii], iii, 父窗口)
                            默认
                            配置临时内容 = 配置临时内容 & "<换行>" & 下拉框获取选项文本(控件分割串3[ii], iii, 父窗口)
                        结束
                    结束
                    文件写配置("配置", 控件分割串3[ii] & 父窗口 & "选项", 下拉框获取选项(控件分割串3[ii], 父窗口), 路径)
                    文件写配置("配置", 控件分割串3[ii] & 父窗口, 配置临时内容, 路径)
                结束
                条件 6
                字符串分割(控件分割串2[1], "&", 控件分割串3)
                遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
                    文件写配置("配置", 控件分割串3[ii] & 父窗口, 进度条获取进度(控件分割串3[ii], 父窗口), 路径)
                结束
                条件 7
                字符串分割(控件分割串2[1], "&", 控件分割串3)
                遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
                    文件写配置("配置", 控件分割串3[ii] & 父窗口, 滑块获取位置(控件分割串3[ii], 父窗口), 路径)
                结束
                条件 8
                字符串分割(控件分割串2[1], "&", 控件分割串3)
                遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
                    文件写配置("配置", 控件分割串3[ii] & 父窗口, 浏览框获取文本(控件分割串3[ii], 父窗口), 路径)
                结束
                条件 9
                字符串分割(控件分割串2[1], "&", 控件分割串3)
                遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
                    文件写配置("配置", 控件分割串3[ii] & 父窗口, 选项卡获取选项(控件分割串3[ii], 父窗口), 路径)
                结束
                条件 10
                字符串分割(控件分割串2[1], "&", 控件分割串3)
                遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
                    热键获取键码(控件分割串3[ii], 获取键码, 获取功能键, 父窗口)
                    配置临时内容 = 获取键码 & "<热键>" & 获取功能键            
                    文件写配置("配置", 控件分割串3[ii] & 父窗口, 配置临时内容, 路径)
                结束
                条件 11
                字符串分割(控件分割串2[1], "&", 控件分割串3)
                遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
                    文件写配置("配置", 控件分割串3[ii] & 父窗口, 日期框获取文本(控件分割串3[ii], 父窗口), 路径)
                结束
                条件 12
                字符串分割(控件分割串2[1], "&", 控件分割串3)
                遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
                    文件写配置("配置", 控件分割串3[ii] & 父窗口, 表格获取所有数据(控件分割串3[ii], 父窗口), 路径)
                    表格获取大小(控件分割串3[ii], 获取表格行, 获取表格列, 父窗口)
                    遍历(变量 iii = 0; iii < 获取表格行; iii++)
                        遍历(变量 iiii = 0; iiii < 获取表格列; iiii++)
                            选择(表格获取类型(控件分割串3[ii], iii, iiii, 父窗口))
                                条件 1
                                表格获取下拉框选项(控件分割串3[ii], iii, iiii, 父窗口)
                                文件写配置("配置", 控件分割串3[ii] & "下拉选项" & iii & "-" & iiii & 父窗口, 表格获取下拉框选项(控件分割串3[ii], iii, iiii, 父窗口), 路径)
                                文件写配置("配置", 控件分割串3[ii] & "下拉内容" & iii & "-" & iiii & 父窗口, 表格获取下拉框内容(控件分割串3[ii], iii, iiii, 配置临时内容, 父窗口), 路径)
                                条件 2
                                文件写配置("配置", 控件分割串3[ii] & "复选状态" & iii & "-" & iiii & 父窗口, 表格获取复选框状态(控件分割串3[ii], iii, iiii, 父窗口), 路径)
                            结束
                        结束
                    结束
                结束
                默认
                消息框("自定义控件类型错误:\r\n" & 控件分割串1[i])
                跳出
            结束
        结束
        条件 1
        遍历(变量 i = 0; i < 999; i++)
            如果(控件获取句柄("编辑框" & i, 父窗口) == 0)
                跳出
            结束
            编辑框设置文本("编辑框" & i, 文件读配置("配置", "编辑框" & i & 父窗口, 路径), 父窗口)
        结束
        遍历(变量 i = 0; i < 999; i++)
            如果(控件获取句柄("复选框" & i, 父窗口) == 0)
                跳出
            结束
            复选框设置状态("复选框" & i, 文件读配置("配置", "复选框" & i & 父窗口, 路径), 父窗口)
        结束
        遍历(变量 i = 0; i < 999; i++)
            如果(控件获取句柄("单选框" & i, 父窗口) == 0)
                跳出
            结束
            单选框设置状态("单选框" & i, 文件读配置("配置", "单选框" & i & 父窗口, 路径), 父窗口)
        结束
        遍历(变量 i = 0; i < 999; i++)
            如果(控件获取句柄("列表框" & i, 父窗口) == 0)
                跳出
            结束
            字符串分割(文件读配置("配置", "列表框文本" & i & 父窗口, 路径), "<换行>", 控件分割串1)
            遍历(变量 ii = 0; ii < 数组大小(控件分割串1); ii++)
                列表框增加文本("列表框" & i, 控件分割串1[ii], 父窗口)
            结束
            列表框设置选项("列表框" & i, 文件读配置("配置", "列表框选项" & i & 父窗口, 路径), 父窗口)
        结束
        遍历(变量 i = 0; i < 999; i++)
            如果(控件获取句柄("下拉框" & i, 父窗口) == 0)
                跳出
            结束
            字符串分割(文件读配置("配置", "下拉框文本" & i & 父窗口, 路径), "<换行>", 控件分割串1)
            遍历(变量 ii = 0; ii < 数组大小(控件分割串1); ii++)
                下拉框增加文本("下拉框" & i, 控件分割串1[ii], 父窗口)
            结束
            下拉框设置选项("下拉框" & i, 文件读配置("配置", "下拉框选项" & i & 父窗口, 路径), 父窗口)
        结束
        遍历(变量 i = 0; i < 999; i++)
            如果(控件获取句柄("进度条" & i, 父窗口) == 0)
                跳出
            结束
            进度条设置进度("进度条" & i, 文件读配置("配置", "进度条" & i & 父窗口, 路径), 父窗口)
        结束
        遍历(变量 i = 0; i < 999; i++)
            如果(控件获取句柄("滑块" & i, 父窗口) == 0)
                跳出
            结束
            滑块设置位置("滑块" & i, 文件读配置("配置", "滑块" & i & 父窗口, 路径), 父窗口)
        结束
        遍历(变量 i = 0; i < 999; i++)
            如果(控件获取句柄("浏览框" & i, 父窗口) == 0)
                跳出
            结束
            浏览框设置文本("浏览框" & i, 文件读配置("配置", "浏览框" & i & 父窗口, 路径), 父窗口)
        结束
        遍历(变量 i = 0; i < 999; i++)
            如果(控件获取句柄("选项卡" & i, 父窗口) == 0)
                跳出
            结束
            选项卡激活("选项卡" & i, 文件读配置("配置", "选项卡" & i & 父窗口, 路径), 父窗口)
        结束
        遍历(变量 i = 0; i < 999; i++)
            如果(控件获取句柄("热键" & i, 父窗口) == 0)
                跳出
            结束
            字符串分割(文件读配置("配置", "热键" & i & 父窗口, 路径), "<热键>", 配置临时内容)
            热键设置键码("热键" & i, 配置临时内容[0], 配置临时内容[1], 父窗口)
        结束
        遍历(变量 i = 0; i < 999; i++)
            如果(控件获取句柄("日期框" & i, 父窗口) == 0)
                跳出
            结束
            日期框设置文本("日期框" & i, 文件读配置("配置", "日期框" & i & 父窗口, 路径), 父窗口)
        结束
        遍历(变量 i = 0; i < 999; i++)
            如果(控件获取句柄("表格" & i, 父窗口) == 0)
                跳出
            结束
            表格填充数据集("表格" & i, 字符串转数组(文件读配置("配置", "表格" & i & 父窗口, 路径)), 父窗口)
            表格获取大小("表格" & i, 获取表格行, 获取表格列, 父窗口)
            遍历(变量 ii = 0; ii < 获取表格行; ii++)
                遍历(变量 iii = 0; iii < 获取表格列; iii++)
                    选择(表格获取类型("表格" & i, ii, iii, 父窗口))
                        条件 1
                        表格设置下拉框选项("表格" & i, ii, iii, 文件读配置("配置", "表格下拉框选项" & i & ii & "-" & iii & 父窗口, 路径), 父窗口)
                        表格设置下拉框内容("表格" & i, ii, iii, 文件读配置("配置", "表格下拉框内容" & i & ii & "-" & iii & 父窗口, 路径), 父窗口)
                        条件 2
                        表格设置复选框状态("表格" & i, ii, iii, 文件读配置("配置", "表格复选框状态" & i & ii & "-" & iii & 父窗口, 路径), 父窗口)
                    结束
                结束
            结束
        结束
        如果(自定义控件名 == "")
            返回 0
        结束
        字符串分割(自定义控件名, "|", 控件分割串1)
        遍历(变量 i = 0; i < 数组大小(控件分割串1); i++)
            字符串分割(控件分割串1[i], ".", 控件分割串2)
            如果(数组大小(控件分割串2) > 2)
                消息框("自定义控件格式输入错误:\r\n" & 控件分割串1[i])
                跳出
            结束
            选择(控件分割串2[0])
                条件 1
                字符串分割(控件分割串2[1], "&", 控件分割串3)
                遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
                    编辑框设置文本(控件分割串3[ii], 文件读配置("配置", 控件分割串3[ii] & 父窗口, 路径), 父窗口)
                结束
                条件 2
                字符串分割(控件分割串2[1], "&", 控件分割串3)
                遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
                    单选框设置状态(控件分割串3[ii], 文件读配置("配置", 控件分割串3[ii] & 父窗口, 路径), 父窗口)
                结束
                条件 3
                字符串分割(控件分割串2[1], "&", 控件分割串3)
                遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
                    复选框设置状态(控件分割串3[ii], 文件读配置("配置", 控件分割串3[ii] & 父窗口, 路径), 父窗口)
                结束
                条件 4
                字符串分割(控件分割串2[1], "&", 控件分割串3)
                遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
                    列表框选项清空(控件分割串3[ii], 父窗口)
                    字符串分割(文件读配置("配置", 控件分割串3[ii] & 父窗口, 路径), "<换行>", 配置临时内容)
                    遍历(变量 iii = 0; iii < 数组大小(配置临时内容); iii++)
                        列表框增加文本(控件分割串3[ii], 配置临时内容[iii], 父窗口)
                    结束
                    列表框设置选项(控件分割串3[ii], 文件读配置("配置", 控件分割串3[ii] & 父窗口, 路径), 父窗口)
                结束
                条件 5
                字符串分割(控件分割串2[1], "&", 控件分割串3)
                遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
                    下拉框选项清空(控件分割串3[ii], 父窗口)
                    字符串分割(文件读配置("配置", 控件分割串3[ii] & 父窗口, 路径), "<换行>", 配置临时内容)
                    遍历(变量 iii = 0; iii < 数组大小(配置临时内容); iii++)
                        下拉框增加文本(控件分割串3[ii], 配置临时内容[iii], 父窗口)
                    结束
                    下拉框设置选项(控件分割串3[ii], 文件读配置("配置", 控件分割串3[ii] & 父窗口, 路径), 父窗口)
                结束
                条件 6
                字符串分割(控件分割串2[1], "&", 控件分割串3)
                遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
                    进度条设置进度(控件分割串3[ii], 文件读配置("配置", 控件分割串3[ii] & 父窗口, 路径), 父窗口)
                结束
                条件 7
                字符串分割(控件分割串2[1], "&", 控件分割串3)
                遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
                    滑块设置位置(控件分割串3[ii], 文件读配置("配置", 控件分割串3[ii] & 父窗口, 路径), 父窗口)
                结束
                条件 8
                字符串分割(控件分割串2[1], "&", 控件分割串3)
                遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
                    浏览框设置文本(控件分割串3[ii], 文件读配置("配置", 控件分割串3[ii] & 父窗口, 路径), 父窗口)
                结束
                条件 9
                字符串分割(控件分割串2[1], "&", 控件分割串3)
                遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
                    选项卡激活(控件分割串3[ii], 文件读配置("配置", 控件分割串3[ii] & 父窗口, 路径), 父窗口)
                结束
                条件 10
                字符串分割(控件分割串2[1], "&", 控件分割串3)
                遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
                    字符串分割(文件读配置("配置", 控件分割串3[ii] & 父窗口, 路径), "<热键>", 配置临时内容)
                    热键设置键码(控件分割串3[ii], 配置临时内容[0], 配置临时内容[1], 父窗口)
                结束
                条件 11
                字符串分割(控件分割串2[1], "&", 控件分割串3)
                遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
                    日期框设置文本(控件分割串3[ii], 文件读配置("配置", 控件分割串3[ii] & 父窗口, 路径), 父窗口)
                结束
                条件 12
                字符串分割(控件分割串2[1], "&", 控件分割串3)
                遍历(变量 ii = 0; ii < 数组大小(控件分割串3); ii++)
                    表格填充数据集(控件分割串3[ii], 字符串转数组(文件读配置("配置", 控件分割串3[ii] & 父窗口, 路径)), 父窗口)
                    表格获取大小(控件分割串3[ii], 获取表格行, 获取表格列, 父窗口)
                    遍历(变量 iii = 0; iii < 获取表格行; iii++)
                        遍历(变量 iiii = 0; iiii < 获取表格列; iiii++)
                            选择(表格获取类型(控件分割串3[ii], ii, iii, 父窗口))
                                条件 1
                                表格设置下拉框选项(控件分割串3[ii], iii, iiii, 文件读配置("配置", 控件分割串3[ii] & iii & "-" & iiii & 父窗口, 路径), 父窗口)
                                表格设置下拉框内容(控件分割串3[ii], iii, iiii, 文件读配置("配置", 控件分割串3[ii] & iii & "-" & iiii & 父窗口, 路径), 父窗口)
                                条件 2
                                表格设置复选框状态(控件分割串3[ii], iii, iiii, 文件读配置("配置", 控件分割串3[ii] & iii & "-" & iiii & 父窗口, 路径), 父窗口)
                            结束
                        结束
                    结束
                结束
                默认
                消息框("自定义控件类型错误:\r\n" & 控件分割串2[0])
                跳出
            结束
        结束
    结束
结束