1. 更换本地IP：如果你的电脑是直接连接互联网（比如拨号上网），或者你希望更换电脑在局域网（LAN）中的IP地址,易语言可以通过调用系统命令来实现。
  2. 使用代理IP：这是更常见、更实用的方法，我们不改变电脑本身的网络设置，而是让浏览器（或我们用易语言模拟的浏览器）通过一个中间服务器（代理服务器）来访问互联网，这样,你的真实IP就被代理服务器的IP代替了。

下面我将分别讲解这两种方法的实现步骤和代码。

易语言做出自动更换IP的浏览网页
（图片来源网络，侵删）

更换本地IP（适用于拨号或局域网）

这种方法直接修改你电脑的网络配置，可能会影响你的网络连接,使用时需谨慎。

实现思路

  1. 获取管理员权限：修改网络设置需要管理员权限。
  2. 调用系统命令：在Windows系统中，我们可以使用 netsh 命令来修改IP地址，易语言可以通过“执行”命令行指令来运行 netsh。
  3. 命令格式：
    • 设置静态IP：netsh interface ip set address "本地连接" static 192.168.1.100 255.255.255.0 192.168.1.1
    • 设置自动获取（DHCP）：netsh interface ip set address "本地连接" dhcp
  4. 浏览网页：使用易语言的“网页浏览框”组件来打开网页。

易语言代码示例

.版本 2
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
.局部变量 adminUser, 文本型
.局部变量 cmd, 文本型
' 检查是否以管理员身份运行
adminUser = 取运行环境信息 (#运行环境_是否管理员)
.(adminUser = 假)
    信息框 ("此程序需要管理员权限才能修改IP地址！", 0, "", )
    结束 ()
.否则
    ' --- 1. 更换IP ---
    ' 注意：请根据你的实际情况修改 "本地连接"、IP、子网掩码、网关
    ' 设置一个静态IP
    cmd = "netsh interface ip set address ""本地连接"" static 192.168.1.150 255.255.255.0 192.168.1.1"
    执行 (cmd, , , , 真) ' 执行命令行，最后一个参数“真”表示隐藏窗口
    ' 或者，设置为自动获取IP (DHCP)
    ' cmd = "netsh interface ip set address ""本地连接"" dhcp"
    ' 执行 (cmd, , , , 真)
    ' 等待网络配置生效
    延时 (3000) ' 延时3秒
    ' --- 2. 浏览网页 ---
    网页浏览框1.地址 = "http://www.ip138.com" 
    ' ip138.com是一个可以显示你当前公网IP的网站，方便验证IP是否更换成功
    网页浏览框1.浏览 ()
.如果结束

代码说明：

  • 取运行环境信息 (#运行环境_是否管理员)：检查程序是否拥有管理员权限。
  • 执行 (...)：这是易语言调用外部命令（如CMD命令）的核心功能。
  • 延时 (3000)：修改IP后需要一点时间才能生效,所以加一个延时。
  • 网页浏览框1：这是易语言的一个标准组件,可以直接显示网页。

使用代理IP（推荐方法）

这种方法更灵活，不会影响你的系统网络设置，是爬虫、自动化任务等场景下的首选。

实现思路

  1. 获取代理IP：你需要有一个代理IP池，可以从购买代理服务的提供商那里获取，或者从免费代理网站爬取（免费代理通常不稳定）。
  2. 设置代理：易语言本身没有直接设置系统代理的组件，最可靠的方法是修改注册表,Windows的代理设置存储在注册表中。
  3. 修改注册表：通过易语言的“注册表操作”命令，将新的代理IP和端口写入到 HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings 的 ProxyServer 和 ProxyEnable 键值中。
  4. 通知系统：修改注册表后，需要通知系统代理设置已更改，可以通过向 Internet_Setting 窗口发送 WM_SETTINGCHANGE 消息来实现。
  5. 浏览网页：使用“网页浏览框”打开网页,此时流量就会通过代理服务器。
  6. 重置代理：使用完毕后，最好将代理设置恢复,以免影响正常上网。

易语言代码示例

.版本 2
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
.局部变量 代理地址, 文本型
.局部变量 代理端口, 整数型
.局部变量 注册表路径, 文本型
.局部变量 句柄, 整数型
' --- 1. 定义你的代理服务器信息 ---
' 这里请替换成你自己的有效代理IP和端口
代理地址 = "123.123.123.123"
代理端口 = 8080
' --- 2. 设置代理 ---
注册表路径 = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings"
' 启用代理
.如果真 (写注册表 (注册表路径, "ProxyEnable", 1) = 1)
    ' 设置代理服务器地址，格式为 "ip:port"
    .如果真 (写注册表 (注册表路径, "ProxyServer", 代理地址 + ":" + 到文本 (代理端口)) = 1)
        信息框 ("代理设置成功！", 0, "成功", )
        ' --- 3. 通知系统代理已更改 ---
        句柄 = 取窗口句柄 (0, "Internet_Setting", 0)
        .(句柄 ≠ 0)
            发送消息 (句柄, #WM_SETTINGCHANGE, 0, 0, , ) 
        .否则
            ' 备用方法，使用命令行刷新
            执行 ("RUNDLL32.EXE shell32.dll,SHChangeNotify 0x8000000, 0x1000, 0, 0", , , , 真)
        .如果结束
        ' --- 4. 通过代理浏览网页 ---
        网页浏览框1.地址 = "http://www.ip138.com"
        网页浏览框1.浏览 ()
    .否则
        信息框 ("设置代理地址失败！", 0, "错误", )
    .如果真结束
.否则
    信息框 ("启用代理失败！", 0, "错误", )
.如果真结束
' --- 使用完毕后，重置代理 ---
' .子程序 按钮1_被单击
'     写注册表 (注册表路径, "ProxyEnable", 0)
'     信息框 ("代理已关闭", 0, "提示", )
'     延时 (1000)
'     句柄 = 取窗口句柄 (0, "Internet_Setting", 0)
'     发送消息 (句柄, #WM_SETTINGCHANGE, 0, 0, , )

代码说明：

易语言做出自动更换IP的浏览网页
（图片来源网络，侵删）
  • 写注册表 (...)：用于向注册表中写入数据。
    • ProxyEnable = 1：启用代理。
    • ProxyEnable = 0：禁用代理。
    • ProxyServer = "ip:port"：设置代理服务器的地址和端口。
  • 取窗口句柄 (...) 和 发送消息 (...)：这是标准的Windows API调用，用于通知系统设置已更改,这是让代理立即生效的关键步骤。
  • RUNDLL32.EXE ...：如果找不到目标窗口,这是一个备用的刷新系统设置的方法。

重要提醒和最佳实践

  1. 稳定性：免费代理IP通常非常不稳定，可能用几次就失效了，对于需要长时间运行的程序，建议使用付费的、高质量的代理服务。
  2. IP池：不要只用一个代理IP，如果你频繁访问同一个网站，同一个IP可能会被屏蔽，你应该维护一个代理IP列表，每次更换IP时,从列表中随机选择一个。
  3. 超时处理：设置代理后，访问网页可能会因为代理服务器响应慢或不可用而超时,在你的代码中应该加入超时判断和重试机制。
  4. 法律与道德：使用代理IP进行爬虫或自动化操作时，请务必遵守目标网站的robots.txt协议和相关法律法规,不要对服务器造成过大压力或进行恶意行为。
  5. 本地IP vs 代理IP：
    • 更换本地IP：适合需要伪装成不同局域网环境的场景,但操作复杂且风险高。
    • 使用代理IP：是行业标准做法，简单、安全、灵活,是绝大多数情况下的首选。

希望这份详细的教程能帮助你在易语言中实现自动更换IP并浏览网页的功能！

易语言做出自动更换IP的浏览网页
（图片来源网络，侵删）