精易论坛

标题: 拨号 [打印本页]

作者: zhangeyuyanb 时间: 2018-3-3 18:56
标题: 拨号
.版本 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 ()
按钮_开始停止.标题＝ “启动线程”
按钮_开始停止.禁止＝假

.默认

作者: 616153492 时间: 2018-3-4 22:47
什么，有点看不懂

作者: aifer666 时间: 2018-3-17 15:58
666666666666有源码更好

作者: 1957321266 时间: 2018-8-1 17:32
哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈

欢迎光临精易论坛 (https://125.confly.eu.org/)