帐号密码管理器 v1.0 测试版 [公开源码，欢迎下载哈]

社区服务
高级搜索
猴岛论坛电脑百科帐号密码管理器 v1.0 测试版 [公开源码，欢迎下载哈]
发帖 回复
倒序阅读 最近浏览的帖子最近浏览的版块
« 返回列表
11个回复

帐号密码管理器 v1.0 测试版 [公开源码，欢迎下载哈]

 楼层直达
低咛浅唱，。

ZxID：29761595

等级: 列兵
举报 只看楼主 使用道具 楼主   发表于: 2013-10-08 0
1.软件可以添加任何形式的账号密码，。自己备注就可以了，网站可以随便填写，方便查询，按上方的英文字母可以快速查找需要的信息2.软件只会在本地操作，不会联网，所以放心使用，3.软件完全开源，欢迎大家下载研究，不会的可以到论坛易语言提问区回答。软件截图：
软件下载地址（源码在最下方）：

[    post]官方下载：http://www.chzuhu.com/rj/帐号密码管理器.exe
百度云盘下载：http://pan.baidu.com/share/link?uk=254547373&shareid=1732163161[/post]

源码截图：

部分源码文字：
  1. .版本 2
  2. .支持库 shell
  3. .支持库 iext
  5. .程序集 窗口程序集1
  6. .程序集变量 数据库d密码, 文本型
  8. .子程序 __启动窗口_创建完毕
  9. .局部变量 配置字段, 字段信息, , "5"
  10. .局部变量 a, 整数型
  12. .如果真 (文件是否存在 (取特定目录 (#我的文档) ＋ “\收藏数据库.edb”) ＝ 假)
  13.     配置字段 [1].名称 ＝ “标题”
  14.     配置字段 [2].名称 ＝ “帐号”
  15.     配置字段 [3].名称 ＝ “密码”
  16.     配置字段 [4].名称 ＝ “网址”
  17.     配置字段 [5].名称 ＝ “备注”
  18.     连续赋值 (60, 配置字段 [1].最大文本长度, 配置字段 [2].最大文本长度, 配置字段 [3].最大文本长度, 配置字段 [4].最大文本长度, 配置字段 [5].最大文本长度)
  19.     连续赋值 (30, 配置字段 [2].最大文本长度, 配置字段 [3].最大文本长度)
  20.     连续赋值 (#文本型, 配置字段 [1].类型, 配置字段 [2].类型, 配置字段 [3].类型, 配置字段 [4].类型, 配置字段 [5].类型)
  21.     输入框 (, “首次启动，请输入打开数据的密码！”, , 数据库d密码, 4)
  22.     创建 (取特定目录 (#我的文档) ＋ “\收藏数据库.edb”, 配置字段)
  23.     打开 (取特定目录 (#我的文档) ＋ “\收藏数据库.edb”, , , , , , )
  24.     置数据库密码 (数据库d密码)
  25.     关闭 ()
  26.     信息框 (“默认数据库保存在我的文档目录下，文件名为：收藏数据库.edb”, 0, )
  27. .如果真结束
  28. 数据库d密码 ＝ “”
  29. 密码输入框 (数据库d密码, 0)
  30. .如果真 (打开 (取特定目录 (#我的文档) ＋ “\收藏数据库.edb”, , , , , 数据库d密码, ) ＝ 假)
  31.     信息框 (“密码输入错误！”, #错误图标, )
  32.     结束 ()
  33. .如果真结束
  34. 载入列表 ()
  36. .子程序 载入列表
  37. .局部变量 计次, 整数型
  39. 超级列表框1.全部删除 ()
  40. 输出调试文本 (取记录数 ())
  41. 到首记录 ()
  42. .判断循环首 (尾记录后 () ＝ 假)
  43.     超级列表框1.插入表项 (计次, , , , , )
  44.     超级列表框1.置标题 (计次, 0, 到文本 (读 (“标题”)))
  45.     超级列表框1.置标题 (计次, 1, 到文本 (读 (“帐号”)))
  46.     超级列表框1.置标题 (计次, 2, 到文本 (读 (“密码”)))
  47.     超级列表框1.置标题 (计次, 3, 到文本 (读 (“网址”)))
  48.     超级列表框1.置标题 (计次, 4, 到文本 (读 (“备注”)))
  49.     跳过 ()
  50. .判断循环尾 ()
  52. .子程序 _添加收藏_被选择
  54. 载入 (窗口1, , 真)
  56. .如果真 (按钮索引 ＝ 1)
  57.     载入列表 ()
  58.     ' 输出调试文本 (超级列表框1.取表项数 ())
  59.     .计次循环首 (超级列表框1.取表项数 (), 计次变量)
  60.         对比 ＝ 取文本左边 (超级列表框1.取标题 (计次变量 － 1, 0), 1)
  61.         .如果真 (到数值 (对比) ≤ 0)
  62.             超级列表框1.删除表项 (计次变量 － 1)
  63.             .计次循环首 (超级列表框1.取表项数 (), 计次变量)
  64.                 对比 ＝ 取文本左边 (超级列表框1.取标题 (计次变量 － 1, 0), 1)
  65.                 .如果真 (到数值 (对比) ≤ 0)
  66.                     超级列表框1.删除表项 (计次变量 － 1)
  67.                 .如果真结束
  69.             .计次循环尾 ()
  70.         .如果真结束
  72.     .计次循环尾 ()
  73. .如果真结束
  74. .如果真 (按钮索引 ＝ 2)
  75.     _工具条1_被单击 (0)
  76.     输入框 (, “请输入要查找的部分或者全部网站名称！例如：狂人社区”, , 网址输入变量, #输入文本)
  77.     .如果 (网址输入变量 ＝ “”)
  78.         返回 ()
  79.     .否则
  80.         .计次循环首 (超级列表框1.取表项数 (), 计次变量)
  81.             .如果真 (寻找文本 (超级列表框1.取标题 (计次变量 － 1, 0), 网址输入变量, 1, 假) ＝ -1)
  82.                 超级列表框1.删除表项 (计次变量 － 1)
  83.                 .计次循环首 (超级列表框1.取表项数 (), 计次变量)
  84.                     .如果真 (寻找文本 (超级列表框1.取标题 (计次变量 － 1, 0), 网址输入变量, 1, 假) ＝ -1)
  85.                         超级列表框1.删除表项 (计次变量 － 1)
  86.                         跳出循环 ()
  87.                     .如果真结束
  89.                 .计次循环尾 ()
  90.             .如果真结束
  92.         .计次循环尾 ()
  93.     .如果结束
  95. .如果真结束
  96. .如果真 (按钮索引 ＝ 3)
  97.     _工具条1_被单击 (0)
  98.     输入框 (, “请输入要查找的部分备注信息！例如：低咛〆浅唱的主页，。”, , 网址输入变量, #输入文本)
  99.     .如果 (网址输入变量 ＝ “”)
  100.         返回 ()
  101.     .否则
  102.         .计次循环首 (超级列表框1.取表项数 (), 计次变量)
  103.             .如果真 (寻找文本 (超级列表框1.取标题 (计次变量 － 1, 4), 网址输入变量, 1, 假) ＝ -1)
  104.                 超级列表框1.删除表项 (计次变量 － 1)
  105.                 .计次循环首 (超级列表框1.取表项数 (), 计次变量)
  106.                     .如果真 (寻找文本 (超级列表框1.取标题 (计次变量 － 1, 4), 网址输入变量, 1, 假) ＝ -1)
  107.                         超级列表框1.删除表项 (计次变量 － 1)
  108.                         跳出循环 ()
  109.                     .如果真结束
  111.                 .计次循环尾 ()
  112.             .如果真结束
  114.         .计次循环尾 ()
  115.     .如果结束
  117. .如果真结束
  118. .如果真 (按钮索引 ＝ 27)
  119.     信息框 (“By:低咛〆浅唱，。” ＋ #换行符 ＋ #换行符 ＋ “QQ①:930855123［低咛〆浅唱，。］” ＋ #换行符 ＋ “QQ②:1105284696［安静...de、执念］” ＋ #换行符 ＋ #换行符 ＋ “网址：chzuhu.comchzuhu.com［狂人社区］”, #信息图标, “加Q请：注明来意”)
  120. .如果真结束
  123. .子程序 列表26个字母过滤
  124. .参数 字母是, 文本型
  125. .局部变量 计次变量, 整数型
  126. .局部变量 对比, 文本型
  128. ' 输出调试文本 (超级列表框1.取表项数 ())
  129. 载入列表 ()
  130. .计次循环首 (超级列表框1.取表项数 (), 计次变量)
  131.     对比 ＝ 取声母 (超级列表框1.取标题 (计次变量 － 1, 0), 1)
  132.     .如果真 (对比 ≠ 字母是)
  133.         超级列表框1.删除表项 (计次变量 － 1)
  134.         .计次循环首 (超级列表框1.取表项数 (), 计次变量)
  135.             对比 ＝ 取声母 (超级列表框1.取标题 (计次变量 － 1, 0), 1)
  136.             .如果真 (对比 ≠ 字母是)
  137.                 超级列表框1.删除表项 (计次变量 － 1)
  138.             .如果真结束
  140.         .计次循环尾 ()
  141.     .如果真结束
  143. .计次循环尾 ()
  145. .子程序 _删除收藏_被选择
  147. 跳到 (取记录数 () － 超级列表框1.现行选中项)
  148. 删除 ()
  149. 彻底删除 ()
  150. 超级列表框1.删除表项 (超级列表框1.现行选中项)
复制代码
源码下载地址：
账号密码管理器.zip[点击下载](442 K) 下载次数:12 累计下载获得 ＤＢ 20 刀


[ 此帖被低咛浅唱，。在2013-10-08 09:34重新编辑 ]
本帖de评分： 共 1 条评分 ＤＢ +1
ＤＢ+1 2013-10-08

辛苦了
隐藏
打赏 收藏 新鲜事

相关主题

回复 引用
　 鲜花[0]　 鸡蛋[0]
2014

ZxID：21900290

等级: 元老
　    ๑热心会员๑　　　　　 ๑值得拥有๑

举报 只看该作者 沙发   发表于: 2013-10-08 0
谢谢分享~
引用
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
『‖9o逅

ZxID：28300053

等级: 列兵
举报 只看该作者 板凳   发表于: 2013-10-08 0
ddddddddddddddddd

际遇之神

 惩罚

看见邪恶图，鼻血不止去医院，花费ＤＢ5
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
『‖9o逅

ZxID：28300053

等级: 列兵
举报 只看该作者 地板   发表于: 2013-10-08 0
ddddddddddddddddddddddd
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
『‖9o逅

ZxID：28300053

等级: 列兵
举报 只看该作者 4楼  发表于: 2013-10-08 0
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
『‖9o逅

ZxID：28300053

等级: 列兵
举报 只看该作者 5楼  发表于: 2013-10-08 0
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
『‖9o逅

ZxID：28300053

等级: 列兵
举报 只看该作者 6楼  发表于: 2013-10-08 0
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
『‖9o逅

ZxID：28300053

等级: 列兵
举报 只看该作者 7楼  发表于: 2013-10-08 0
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
尘世那么美

ZxID：18275137

等级: 中尉
配偶: 花落〃亦神
举报 只看该作者 8楼  发表于: 2013-10-08 0
看着不错，定了
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
中国坏大大，嘂

ZxID：24100000

等级: 禁止发言
配偶: 爱锁于菊花里
举报 只看该作者 9楼  发表于: 2013-10-10 0
谢谢分享。
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
指の寞

ZxID：20767523

等级: 列兵
举报 只看该作者 10楼  发表于: 2013-10-11 0
不错！适合我这种记性不好的人！！！
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
稍息ゝ

ZxID：24113438

等级: 上校
配偶: 缘轩
举报 只看该作者 11楼  发表于: 2013-11-24 0
谢谢分享
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
« 返回列表
发帖 回复