1、申 请 I D：shushengshop
2、个人邮箱：guest88888888@vip.qq.com
3、废话不多说，放个多线程类型，源码直接粘贴，懒得上传了，调用了刺鱼模块，纯源码，手打
.版本 2
.支持库 edroptarget
.支持库 iext
.支持库 internet
.支持库 spec
.支持库 EThread
.程序集 窗口程序集_启动窗口
.程序集变量 线程池, 整数型
.程序集变量 工作线程, 整数型
.程序集变量 可用id, 整数型
.程序集变量 已注册id, 整数型
.程序集变量 异常id, 整数型
.程序集变量 宽带数据, 文本型, , "3"
.程序集变量 线程判断, 整数型
.子程序 __启动窗口_创建完毕
拖放对象1.注册拖放控件 (超级列表框1.取窗口句柄 ())
初始化 ()
.子程序 Adsl, 文本型
.局部变量 Bool, 逻辑型
.局部变量 Adls, ADSL拨号类
.局部变量 外网ip, 文本型
.局部变量 文件号_IP, 整数型
文件号_IP ＝ 打开文件 (取运行目录 () ＋ “\” ＋ 时间_到文本 (, 3, 1) ＋ “ip.txt”, 6, 1)
移到文件尾 (文件号_IP)
.循环判断首 ()
.循环判断首 ()
.如果真 (系统_是否已联网 ())
状态条1.置文本 (0, “断开连接”)
挂断 ()
挂断 ()
.如果真结束
程序_延时 (1000)
状态条1.置文本 (0, “正在拨号”)
拨号 (“@0”, 宽带数据 [2], 宽带数据 [3], 真, )
.判断开始 (取反 (系统_是否已联网 ()))
状态条1.置文本 (0, “拨号失败正在重试”)
Adls.重拨_cmd (宽带数据 [1], 宽带数据 [2], 宽带数据 [3])
.判断开始 (取反 (系统_是否已联网 ()))
状态条1.置文本 (0, “拨号失败正在重试”)
.默认
Bool ＝ 真
状态条1.置文本 (0, “拨号完毕”)
.判断结束
.默认
Bool ＝ 真
状态条1.置文本 (0, “拨号完毕”)
.判断结束
程序_延时 (1000)
.循环判断尾 (取反 (Bool))
外网ip ＝ Adls.取外网IP ()
.如果真 (寻找文本 (编辑框_IP.内容, 外网ip, , 假) ≠ -1)
外网ip ＝ “”
.如果真结束
调试输出 (外网ip)
.循环判断尾 (外网ip ＝ “”)
编辑框_IP.加入文本 (外网ip ＋ #换行符)
写文本行 (文件号_IP, 外网ip)
关闭文件 (文件号_IP)
返回 (外网ip)
.子程序 初始化
adsl账号.内容 ＝ 读配置项 (取运行目录 () ＋ “\宽带配置.ini”, “name”, “user”, adsl账号.内容)
adsl密码.内容 ＝ 读配置项 (取运行目录 () ＋ “\宽带配置.ini”, “name”, “pass”, adsl密码.内容)
宽带数据 [1] ＝ “宽带连接”
宽带数据 [2] ＝ adsl账号.内容
宽带数据 [3] ＝ adsl密码.内容
.如果真 (取反 (文件是否存在 (取运行目录 () ＋ “\可用.txt”)))
写到文件 (取运行目录 () ＋ “\可用.txt”, { })
.如果真结束
.如果真 (取反 (文件是否存在 (取运行目录 () ＋ “\已注册.txt”)))
写到文件 (取运行目录 () ＋ “\已注册.txt”, { })
.如果真结束
.如果真 (取反 (文件是否存在 (取运行目录 () ＋ “\异常.txt”)))
写到文件 (取运行目录 () ＋ “\异常.txt”, { })
.如果真结束
可用id ＝ 打开文件 (取运行目录 () ＋ “\可用.txt”, 3, 3)
已注册id ＝ 打开文件 (取运行目录 () ＋ “\已注册.txt”, 3, 3)
异常id ＝ 打开文件 (取运行目录 () ＋ “\异常.txt”, 3, 3)
.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型
Text ＝ 接收到的文件路径
启动线程 (&导入线程, , )
.子程序 导入线程
.局部变量 data, 文本型
.局部变量 txt, 文本型, , "0"
.局部变量 n, 整数型
.局部变量 分割符, 文本型
.局部变量 账号, 文本型
.局部变量 密码, 文本型
.局部变量 索引, 整数型
data ＝ 到文本 (读入文件 (Text))
txt ＝ 分割文本 (data, #换行符, )
超级列表框1.全部删除 ()
分割符 ＝ 分隔符.内容
.计次循环首 (取数组成员数 (txt), n)
账号 ＝ 文本_取左边 (txt [n], 分割符)
密码 ＝ 文本_取右边 (txt [n], 分割符)
.如果真 (账号 ≠ “”)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 到文本 (索引 ＋ 1))
超级列表框1.置标题 (索引, 1, 账号)
超级列表框1.置标题 (索引, 2, 密码)
.如果真结束
.计次循环尾 ()
.子程序 _按钮1_被单击
.局部变量 l, 整数型
.局部变量 开始位置, 整数型
Adsl ()
工作线程 ＝ 0
线程判断 ＝ 0
线程池 ＝ 线程池Ex_创建 (1, 到整数 (线程数.内容), , 真)
开始位置 ＝ 到整数 (读配置项 (取运行目录 () ＋ “\运行记录.ini”, “账号计数”, “全_账号计数”, “0”))
.计次循环首 (超级列表框1.取表项数 (), l)
线程判断 ＝ 线程判断 ＋ 1
写配置项 (取运行目录 () ＋ “\运行记录.ini”, “账号计数”, “全_账号计数”, 到文本 (l))
线程池Ex_投递任务 (线程池, &工作线程, l － 1 ＋ 开始位置)
工作线程 ＝ 工作线程 ＋ 1
程序_延时 (50)
.如果真 (工作线程 ≥ 50)
.判断循环首 (线程判断 ≠ 0)
程序_延时 (50)
.判断循环尾 ()
Adsl ()
工作线程 ＝ 0
程序_延时 (500)
.如果真结束
.计次循环尾 ()
.子程序 工作线程
.参数 传参, 整数型
.局部变量 user, 文本型
.局部变量 pass, 文本型
.局部变量 ret, 文本型
线程_初始化COM库 ()
user ＝ 超级列表框1.取标题 (传参, 1)
pass ＝ 超级列表框1.取标题 (传参, 2)
超级列表框1.置标题 (传参, 3, “检存”)
ret ＝ 到文本 (网页_访问_对象 (“https://sso.godaddy.com/v1/account/checkusername”, 1, “checkusername=” ＋ user, , , , , , , , , 5))
ret ＝ 文本_取出中间文本 (ret, #引号 ＋ “: ” ＋ #引号, #引号)
.如果真 (ret ＝ “0”)
超级列表框1.置标题 (传参, 3, “可用”)
日志.加入文本 (user ＋ “|” ＋ “可用” ＋ #换行符)
写出文本 (可用id, user ＋ “|” ＋ pass ＋ #换行符)
.如果真结束
.如果真 (ret ＝ “1”)
超级列表框1.置标题 (传参, 3, “被注册”)
日志.加入文本 (user ＋ “|” ＋ “被注册” ＋ #换行符)
写出文本 (已注册id, user ＋ “|” ＋ pass ＋ #换行符)
.如果真结束
.如果真 (ret ＝ “invalid”)
超级列表框1.置标题 (传参, 3, “格式不对”)
日志.加入文本 (user ＋ “|” ＋ “格式不对” ＋ #换行符)
写出文本 (异常id, user ＋ “|” ＋ pass ＋ #换行符)
.如果真结束
.如果真 (ret ＝ “”)
超级列表框1.置标题 (传参, 3, “需要换IP”)
日志.加入文本 (user ＋ “|” ＋ “需要换IP” ＋ #换行符)
写出文本 (异常id, user ＋ “|” ＋ pass ＋ #换行符)
.如果真结束
线程判断 ＝ 线程判断 － 1
线程_取消COM库 ()
.子程序 _按钮6_被单击
宽带数据 [1] ＝ “宽带连接”
宽带数据 [2] ＝ adsl账号.内容
宽带数据 [3] ＝ adsl密码.内容
写配置项 (取运行目录 () ＋ “\宽带配置.ini”, “name”, “user”, adsl账号.内容)
写配置项 (取运行目录 () ＋ “\宽带配置.ini”, “name”, “pass”, adsl密码.内容)
信息框 (“adsl保存成功”, 0, , )
.子程序 _按钮2_被单击
.如果真 (按钮2.标题 ＝ “暂停”)
线程池Ex_暂停 (线程池)
按钮2.标题 ＝ “继续”
返回 ()
.如果真结束
按钮2.标题 ＝ “暂停”
线程池Ex_继续 (线程池)
.子程序 __启动窗口_将被销毁
结束 ()
|
吾爱游客
发表于 2016-9-7 08:43
发表于 2016-9-7 09:50
发表于 2016-9-7 12:10
