拨号

zhangeyuyanb

.版本 2
.支持库 internet

集量_许可证.进入 ()
集量_历史IP ＝ 网页_取wai网IP ()
.计次循环首 (99, )
    _处理事件 ()
    更新状态条 (3, “历史IP：” ＋ 集量_历史IP)
    挂断 ()
    程序_延时 (到整数 (编辑框_宽带延迟.内容))
    更新状态条 (0, “网络状态：” ＋ 到文本 (是否已在线 ()))
    更新状态条 (5, “网络已切断*****”)
    拨号 (“@宽带连接”, 编辑框_宽带账号.内容, 编辑框_宽带密码.内容, 真, )
    更新状态条 (5, “正在拨号*******”)
    程序_延时 (到整数 (编辑框_宽带延迟.内容))
    更新状态条 (0, “网络状态：” ＋ 到文本 (是否已在线 ()))
    .如果真 (是否已在线 () ≠ 假)
        程序_延时 (300)
        局部_现行IP ＝ 网页_取wai网IP ()
        更新状态条 (4, “现行IP：” ＋ 局部_现行IP)
        .如果真 (局部_现行IP ≠ “”)
            .如果真 (集量_历史IP ≠ 局部_现行IP)
                跳出循环 ()
            .如果真结束

        .如果真结束

    .如果真结束
    更新状态条 (5, “拨号失败*******”)
    程序_延时 (到整数 (编辑框_宽带等待.内容))
.计次循环尾 ()
更新状态条 (5, “重拨已完成*****”)
程序_延时 (到整数 (编辑框_宽带等待.内容))
集量_许可证.退出 ()


.子程序 _按钮_拨号测试_被单击

宽带重拨 ()


.子程序 _按钮_开始停止_被单击
.局部变量 局部_标题, 文本型

局部_标题 ＝ 按钮_开始停止.标题
.判断开始 (局部_标题 ＝ “启动线程”)
    ' 对必填内容的判断
    .如果真 (删首尾空 (编辑框_宽带账号.内容) ＝ “” 或 删首尾空 (编辑框_宽带密码.内容) ＝ “”)
        信息框 (“请填写宽带账号和密码”, 0, , )
        返回 ()
    .如果真结束
    .如果真 (删首尾空 (编辑框_宽带延迟.内容) ＝ “” 或 删首尾空 (编辑框_宽带等待.内容) ＝ “”)
        信息框 (“请填写宽带延迟和等待时间”, 0, , )
        返回 ()
    .如果真结束
    .如果真 (删首尾空 (编辑框_线程数量.内容) ＝ “” 或 删首尾空 (编辑框_IP工作数.内容) ＝ “”)
        信息框 (“请填写线程数量和IP工作数,如果不换ip请填0”, 0, , )
        返回 ()
    .如果真结束
    .如果真 (到整数 (删首尾空 (编辑框_线程数量.内容)) ＜ 1)
        编辑框_线程数量.内容 ＝ “1”
    .如果真结束
    .如果真 (到整数 (删首尾空 (编辑框_注册数量.内容)) ＜ 1)
        编辑框_注册数量.内容 ＝ “1”
    .如果真结束
    ' 保存配置信息
    写配置文本 ()
    .如果真 (集量_线程.创建 (&工作) ＝ 假)
        返回 ()
    .如果真结束
    按钮_开始停止.禁止 ＝ 真

.判断 (局部_标题 ＝ “停止线程”)
    连续赋值 (真, 按钮_开始停止.禁止, 按钮_暂停继续.禁止)
    按钮_开始停止.标题 ＝ “正在停止”
    按钮_暂停继续.标题 ＝ “暂停线程”
    集量_线程池.销毁 (0)
    集量_线程.等待2 ()
    按钮_开始停止.标题 ＝ “启动线程”
    按钮_开始停止.禁止 ＝ 假

.默认

1957321266

哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈

aifer666

666666666666有源码更好

616153492

什么，有点看不懂