用易语言做自动更换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++呢,学会了也没有公司会请你去工作。
易语言延时循环更改IP!!!
批处理更改IP @echo offrem eth \/\/ 设置网卡名称,如"本地连接"set eth="本地连接"rem ip \/\/ 设置IP地址set ip=10.11.12.163rem gw \/\/ 设置网关set gw=10.11.255.254rem netmasks \/\/设置子网掩码set netmasks=255.255.0.0rem dns1 \/\/设置主DNSset dns1=202.96....
易语言如何实现转换字母和数字
.计次循环首 (取数组成员数 (大字母), 临时变量J) .如果真 (取文本中间 (编辑框1.内容, 临时变量I, 1) = 大字母 [临时变量J] 或 取文本中间 (编辑框1.内容, 临时变量I, 1) = 小字母 [临时变量J]) 编辑框2.加入文本 (数字 [临时变量J]) .如果真结束 .计次循环尾 ...
易语言如何在点击键盘键的情况下才会运行程序或组件
按钮1.标题 = “PRESS &I”这个&就表示按下Alt+这个符号的后一个字符就可以执行如下程序:.版本 2 .子程序 _按钮1_被单击 另外一种方法是:.版本 2 .子程序 __启动窗口_字符输入, 整数型 .参数 字符代码, 整数型 .如果 (字符代码 = #I键)‘这个I键可以自由更换 _按钮1_被单击 ()....
易语言自动输入随机账号~
baiduzhidao+到文本(到整数(i+1))最后效果是 baiduzhidao0, baiduzhidao1,baiduzhidao2 一直下去了
易语言自动发言内容10条,每条内容之间间隔30秒钟,每次间隔1小时_百度...
第一种方案 用2个时钟 .版本 2.程序集 窗口程序集1.程序集变量 i, 整数型.子程序 __启动窗口_创建完毕时钟1.时钟周期 = 10000时钟2.时钟周期 = 360000i = 0.子程序 _时钟1_周期事件.如果 (i < 10) i = i + 1 输出调试文本 (取秒 (取现行时间 ())) 输出调试文本 ...
易语言如何读取超级列表两个值进行内容替换或文件替换
任务内容 [i] = 超级列表框1.取标题 (i - 1, 2).计次循环尾 ()' 然后将数组中的值依次写入超级列表2 超级列表框2.全部删除 ().计次循环首 (超级列表框1.取表项数 (), j)N = 超级列表框2.插入表项 (, , , , , )超级列表框2.置标题 (N, 0, 到文本 (j))超级列表框2....
易语言列表框写配置项时自动分配INI
初始a=1 循环体中加入判断,判断(i=6)a=2 判断(i=11)a=3 ...然后下面写配置项:写配置项 (取运行目录 () + "\\"+到文本(a)+".ini", “用户”, “数量”, 到文本 (数量))写配置项 (取运行目录 () + "\\"+到文本(a)+".ini", “用户”, 到文本 (i), 列表框1.取项...
(易语言)将一个十六进制的变量i转换成十进制,怎么做? 十六到十(i) 十...
要自己写 没有调用的 子程序 进制_十六到十, 长整数型, 公开, 将16进制文件转换到10进制数值(返回十进制数).参数 文本, 文本型 .局部变量 i, 整数型 .局部变量 t, 文本型 .局部变量 结果, 长整数型 .局部变量 局_文本, 文本型 t = “0123456789ABCDEF”局_文本 = 到大写 (文本).计...
易语言如何实现数字随机变化、谁给下源码、
.局部变量 q, 整数型 .局部变量 w, 整数型 .局部变量 出球, 整数型 .局部变量 结果, 整数型 .局部变量 次数, 整数型编辑框1.内容 = “”.计次循环首 (33, i)加入成员 (红球, i).计次循环尾 ()置随机数种子 ().计次循环首 (6, w)q = 取数组成员数 (红球)置随机数种子 (取...
易语言5.3程序,计次循环函数,计次变量不自动累加,而且进入函数时初始...
不会产生死循环,计次循环首的变量i只是用来记录循环的次数,你在计次循环首中定义了一个变量i,那么这个i易语言自动将其赋值为1,那么循环两次,即为3,(所以i是不可赋值),即使减去一,但是再次循环就会初始化i的值,所以这个式子到最后i的结果就是3,想要达到死循环可以使用判断循环首(),通过不可能的值...
翁葛羚羊: 有一个命令 就是 如果你的是完整版又没有这些命令的话 就点上面的工具→支持库配置 取本机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 地址,这样客户端在其他电脑就可以登陆客户端了,首先服务...