鱼刺类线程池多线程执行换IP工具

日志输出 (“线程暂停”)
线程池.暂停 () ' 暂停线程，执行拨号操作
运行 (“rasphone -h ” ＋ “宽带连接”, 真, #隐藏窗口) ' 此命令取自精易模块!!! 此命令取自精易模块!!! 此命令取自精易模块!!! 'adsl拨号类里面的拨号_CMD
_处理事件 ()
运行 (“rasdial ” ＋ “宽带连接” ＋ “ ” ＋ “073195223218” ＋ “ ” ＋ “506574”, 真, 1) ' 此命令取自精易模块!!! '此命令取自精易模块!!! '此命令取自精易模块!!! 'adsl拨号类里面的断开_CMD
_处理事件 ()
.如果 (取连接状态 (“宽带连接”) ＝ 假)
' 线程池.继续 ()
日志输出 (“拨号失败”)
返回 (假)
.否则
线程池.继续 () ' ' 拨号成功了，记得恢复
日志输出 (“拨号完毕”)
返回 (真)

.子程序 取连接状态, 逻辑型, 公开, 判断指定的连接是否已连接，如果已连接返回真，否则返回假;
.参数 连接名称, 文本型, , 欲判断的连接名称
.局部变量 连接信息, 文本型
.局部变量 dwFlags, 整数型
.局部变量 sNameBuf, 文本型
.局部变量 lR, 整数型

sNameBuf ＝ 取空白文本 (513)
lR ＝ InternetGetConnectedStateEx (dwFlags, sNameBuf, 512, 0)
.如果真 (lR ≠ 1) ' 无连接 (这个连接并不一定是通外网，可能是连接路由器等设备)
返回 (假)
.如果真结束
.如果真 (连接名称 ≠ 删首尾空 (sNameBuf))
返回 (假)
.如果真结束
返回 (真)