Question

用易语言怎么编写自动延时更换IP软件

用易语言怎么编写自动延时更换IP软件，软件可以导入数据包的那种，怎么写啊？

Answer 1

.版本 2
.支持库 internet
.程序集 窗口程序集1
.子程序 获取ip
.局部变量 网页源码, 文本型
.局部变量 分割, 文本型

网页源码 ＝ 到文本 (HTTP读文件 (#常量1))
分割 ＝ 文本_取出中间文本 (网页源码, #常量2, #常量3)
标签1.标题 ＝ 文本_取出中间文本 (分割, “[”, “] ”)
标签2.标题 ＝ 文本_取出中间文本 (分割, “] ”, “<br”)
ip1 ＝ 标签1.标题

.子程序 _标签3_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
获取ip ()
.子程序 _标签4_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
载入 (窗口1, , 假)
.子程序 __启动窗口_创建完毕
获取ip ()
ip2 ＝ 标签1.标题
.子程序 _标签5_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
结束 ()

下面这段代码 可以设置成 直接拨号

.版本 2
.支持库 internet
.支持库 spec

.子程序 链接
编辑框1.内容 ＝ 到文本 (到数值 (编辑框1.内容) × 1000)
挂断 ()
延迟 (到数值 (编辑框1.内容))
.如果 (拨号 (“@0”, 编辑框2.内容, 编辑框3.内容, , 标签5) ≠ 真)
信息框 (“密码是否输入正确？或网络正常！”, 0, )
.否则
_启动窗口.获取ip ()
.如果结束

.子程序 _标签6_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

结束 ()
.子程序 _窗口1_将被销毁

Answer 2

需要 精易模块V3.12 的支持。

.版本 2
.支持库 internet
.支持库 spec

.局部变量 ADSL, ADSL拨号类, , , ' 只适用于ADSL拨号上网的。
.局部变量 用户名, 文本型
.局部变量 密码, 文本型

ADSL.取宽带用户名密码 (, 用户名, 密码) ' 只适用于ADSL拨号上网的。
.判断循环首 (真)
挂断 ()
延迟 (1000)
拨号 (“@0”, 用户名, 密码, , ) ' 如果你不是 ADSL拨号上网 的，请把 用户名 改成你的 宽带用户名 ，把 密码 改成你的 宽带密码。
.判断循环尾 ()

Answer 3

.版本 2
.支持库 spec
.支持库 internet
运行 (“rasphone.exe -h” ＋ “ ” ＋ 你的宽带连接名称, 假, )
延迟 (1000)
.循环判断首 ()
延迟 (9000)
运行 (“rasdial.exe ” ＋ 你的宽带连接名称 ＋ “ ” ＋ 你的宽带连接用户名 ＋ “ ” ＋ 你的宽带连接密码, 假, 1)
延迟 (3000)
处理事件 ()
.循环判断尾 (取反 (是否已在线 ()))

追问

你有源码吗？可以发送QQ邮箱，谢了！

Answer 4

自行百度易语言 设置IE代理源码，第一个就是

Answer 5

可以试试用兔子...IP
可随意选择全国800多个城市IP线路连接
支持单页面，单窗口，单IP
连上之后IP地址自动发生改变，动态IP静态IP都支持
手机电脑模拟器虚拟机都可以用