用易语言做自动更换ip软件

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

.版本 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_将被销毁

一个 随便的IP 绑定到自己网卡上 然后 本地开 PROXY 代理服务
然后自己连自己 只对一些判断少的程序有效 对于判断多的就无效了

.版本 2

.支持库 spec

.程序集 窗口程序集1

.子程序 _按钮1_被单击

.局部变量 行数, 整数型

.局部变量 当前行, 整数型

.局部变量 当前文本, 文本型

.局部变量 数组, 文本型, , "0"

.局部变量 项目文本, 文本型

.局部变量 项目数值, 文本型

行数 ＝ 文本_取行数 (编辑框1.内容)

.计次循环首 (行数, 当前行)

    当前文本 ＝ 文本_取指定变量文本行 (编辑框1.内容, 当前行)

    数组 ＝ 分割文本 (当前文本, “:”, )

    项目文本 ＝ 数组 [1]

    项目数值 ＝ 数组 [2]

    列表框1.加入项目 (项目文本, 到整数 (项目数值))

.计次循环尾 ()

列表框1.现行选中项 ＝ 0

.子程序 _按钮2_被单击

调试输出 (系统_设置IE代理地址 (列表框1.取项目文本 (列表框1.现行选中项), 到文本 (列表框1.取项目数值 (列表框1.现行选中项))))

调试输出 (列表框1.取项目文本 (列表框1.现行选中项))

调试输出 (列表框1.取项目数值 (列表框1.现行选中项))

.子程序 _按钮3_被单击

.局部变量 间隔时间, 整数型

输入框 (“请输入更换IE代理IP的间隔时间，单位为秒！”, “间隔时间设置：”, “10”, 间隔时间, 2)

时钟1.时钟周期 ＝ 间隔时间 × 1000

.子程序 _时钟1_周期事件

.局部变量 当前要设置的, 整数型

.如果 (系统_设置IE代理地址 (列表框1.取项目文本 (列表框1.现行选中项), 到文本 (列表框1.取项目数值 (列表框1.现行选中项))) ＝ 真)

    _启动窗口.标题 ＝ “当前IE代理是 ” ＋ 列表框1.取项目文本 (列表框1.现行选中项)

    .如果 (列表框1.取项目数 () ＞ 列表框1.现行选中项)

        列表框1.现行选中项 ＝ 列表框1.现行选中项 ＋ 1

    .否则

        列表框1.现行选中项 ＝ 0

    .如果结束

.否则

    提示框 (“设置IE代理地址失败。”, 0 ＋ 16, “错误”, )

    时钟1.时钟周期 ＝ 0

.如果结束

=============================================

1个编辑框

1个列表框

4个按钮

1个时钟

我用的是兔~~子 转换器，线路多，价格也不贵 质量也挺稳定的
主要不是软件哪个好，而是更适合你的工作，
国内动态，5000＋线路，方便

你可以把所有的IP信息保存在一个文件里，然后用程序进行读取

这个要解锁才行啊。。
你搜下兔子》转换器，去官网下载相应版本安装，
然后打开浏览器再看就可以了，好用有效。

这种语言有什么学的，还不如学c++呢，学会了也没有公司会请你去工作。

---

潼南县15137712621： 怎样用易语言编写自动获取本机IP并发到我的邮箱 - ？
翁葛羚羊： 有一个命令 就是 如果你的是完整版又没有这些命令的话 就点上面的工具→支持库配置 取本机IP () 调用格式: 〈文本型数组〉 取本机IP () - 网络通讯支持库->网络通讯 英文名称:get_local_ip 取本机IP,返回IP列表数组.本命令为初级命令.至于 发邮件 就用这两个命令 连接发信服务器 (, , , , ) 发送邮件 (, , , , , , )

潼南县15137712621： 易语言ping ip源码 - ？
翁葛羚羊： 运行 (“cmd /C ” + “ping www.baidu.com” + “ >” + #引号 + 取运行目录 () + “\1.txt”, 真, 1) 编辑框1.内容 = 到文本 (读入文件 (取运行目录 () + “\1.txt”))

潼南县15137712621： 如何用易语言编写查看IP软件!？
翁葛羚羊： 网上有查看ip的软件,或是用命令也可以,在线网页也有

潼南县15137712621： 如何用易语言写一个检测IP的软件,设置下当前的IP,当IP变动后,软件发出提示音乐! - ？
翁葛羚羊： .版本 2.支持库 sock.程序集 窗口程序集1.程序集变量 现ip, 文本型, , ＂1＂.程序集变量 原ip, 文本型, , ＂1＂.子程序 __启动窗口_创建完毕 现ip = 取本机IP () 原ip = 你原本的IP.如果真 (现ip ≠ 原ip) 信息框(“ip变动!”).如果真结束

潼南县15137712621： 怎样用易语言做查询IP的工具? - ？
翁葛羚羊： 先加载彗星HTTP应用模块.假设编辑框1里输入了IP,然后点击了查询,那么: 临时数据=彗星HTTP读文件(“ http://www.123cha.com/ip/?q=”+编辑框1.内容) 然后查找取回数据里,“本站主数据:”后面的地址信息就行了. 请采纳,谢谢!

潼南县15137712621： 易语言编写 ping ip？
翁葛羚羊：需要原件:一个编辑框,一个按钮,一个透明标签.版本 2 .程序集 窗口程序集1 .子程序 _按钮1_被单击 运行 (“ping ” + 编辑框1.内容, 假, )

潼南县15137712621： 易语言怎么制作一个可以自动更新的软件 - ？
翁葛羚羊： 你需要一个服务器 至少是一个虚拟主机来存放你的新版更新信息 每次启动软件的时候(或者是隔一段时间)把本地的软件信息和服务器上的进行对比,相同就是最新版 不同就提示用户更新

潼南县15137712621： 如何用易语言做一个修改ini文件内容的软件 - ？
翁葛羚羊： 下面的 代码就是你想要 的代码 你给的 INI 里面有 三个 节名 可以判断每个节名下的 IpAddr=192.168.1.70 时BootDisk=XP3*0|DPAN*0|GAME*0|NETGAME*0否则 BootDisk=SYS*0|D...

潼南县15137712621： 有关易语言实现自动断开网络连接与自动连接的问题!! - ？
翁葛羚羊： 简单点的直接修改网关就行了.netsh interface ip set address ＂本地连接＂ static 192.168.0.1 255.255.255.0 192.168.0.254 1 运行 (“netsh interface ip set address ” + #引号 + “本地连接” + #引号 + “ static 192.168.0.1 255.255.255.0 192.168.0.254 1”, 假, )

潼南县15137712621： 易语言软件绑定服务器IP - ？
翁葛羚羊： 向 互联网运营商申请一个 网址,包括IP解析地址,然后你服务端要和解析IP地址调试对应,客户端要登陆你指定解析的IP地址或 intelnet 地址,这样客户端在其他电脑就可以登陆客户端了,首先服务...