ip修改器易语言（如何用易语言编程来修改主机名和ip）

本文目录

• 如何用易语言编程来修改主机名和ip
• 用易语言做自动更换ip软件
• 请问如何用易语言编写修改器
• 用易语言怎么编写自动延时更换IP软件
• 如何使用易语言实现自动更换IP地址，另外可将IP地址显示在编辑框里
• 如何用易语言写一个检测IP的软件，设置下当前的IP，当IP变动后，软件发出提示音乐！
• 易语言修改IP
• 易语言中咋样可以修改本机的ip！
• 易语言延时循环更改IP!!!!

如何用易语言编程来修改主机名和ip

#include《winsock2.h》
#include《stdio.h》
#pragma comment(lib,"WS2_32.lib")
int main()
{
WSADATA data;
WSAStartup(2,&data);
hostent* host = gethostbyname("");

char *IP = inet_ntoa(*(struct in_addr*)*(host-》h_addr_list));
printf("Local IP:%s\n",IP);

WSACleanup();
return 0;

}

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

.版本 2

.支持库 spec

.程序集 窗口程序集1

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

.局部变量 行数, 整数型

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

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

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

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

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

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

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

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

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

    项目文本 ＝ 数组 

    项目数值 ＝ 数组 

    列表框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个时钟

请问如何用易语言编写修改器

ID
＝
进程取ID
(“进程名”)
先取进程ID
地址
＝
读内存整数型
(ID,
十六到十
(“基址”))
然后读基址指针
指向的地址
易语言需要把16进制的地址转到10进制整数一级偏移
＝
十六到十
(“一级偏移”))
偏移也转成10进制整数
写内存整数型
(ID,
地址
＋
一级偏移
,这里是要改的数值)
然后修改

用易语言怎么编写自动延时更换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地址，另外可将IP地址显示在编辑框里

易语言只有(取IP地址（）的命令)没有置IP的命令，所以要借助于批处理来实现。
例如：netsh interface ip set address "本地连接" static 192.168.1.3 255.255.255.0
上面是将本地连接里的IP设置成192.168.1.3 子网掩码为255.255.255.0
可以用易语言运行命令来将批处理命令加进去来实现你要的修改

如何用易语言写一个检测IP的软件，设置下当前的IP，当IP变动后，软件发出提示音乐！

.版本 2
.支持库 sock
.程序集 窗口程序集1
.程序集变量 现ip, 文本型, , "1"
.程序集变量 原ip, 文本型, , "1"
.子程序 __启动窗口_创建完毕
现ip ＝ 取本机IP ()
原ip = 你原本的IP
.如果真 (现ip ≠ 原ip)
信息框（“ip变动！”）
.如果真结束

易语言修改IP

批处理更改IP @echo off
rem eth // 设置网卡名称，如"本地连接"
set eth="本地连接"
rem ip // 设置IP地址
set ip=10.11.12.163
rem gw // 设置网关
set gw=10.11.255.254
rem netmasks //设置子网掩码
set netmasks=255.255.0.0
rem dns1 //设置主DNS
set dns1=202.96.75.68
rem dns2 //设置辅DNS
set dns2=202.96.64.68
echo 正在将本机IP更改到：%ip%
netsh interface ip set address "%eth%" static %ip% %netmasks% %gw% default
echo 正在添加本机主DNS：%dns1%
netsh interface ip set dns "%eth%" static %dns1%
echo 正在添加本机副DNS：%dns2%
netsh interface ip add dns "%eth%" %dns2%
pause
close

易语言中咋样可以修改本机的ip！

批处理更改IP@echooffremeth//设置网卡名称，如"本地连接"seteth="本地连接"remip//设置IP地址setip=10.11.12.163remgw//设置网关setgw=10.11.255.254remnetmasks//设置子网掩码setnetmasks=255.255.0.0remdns1//设置主DNSsetdns1=202.96.75.68remdns2//设置辅DNSsetdns2=202.96.64.68echo正在将本机IP更改到：%ip%netshinterfaceipsetaddress"%eth%"static%ip%%netmasks%%gw%defaultecho正在添加本机主DNS：%dns1%netshinterfaceipsetdns"%eth%"static%dns1%echo正在添加本机副DNS：%dns2%netshinterfaceipadddns"%eth%"%dns2%pauseclose

易语言延时循环更改IP!!!!

简单的原理是通过执行 bat 批处理执行 

代码 

批处理更改IP @echo off
rem eth           // 设置网卡名称，如"本地连接"
set eth="本地连接"
rem ip            // 设置IP地址
set ip=10.11.12.163
rem gw            // 设置网关
set gw=10.11.255.254
rem netmasks     //设置子网掩码
set netmasks=255.255.0.0
rem dns1         //设置主DNS
set dns1=202.96.75.68
rem dns2         //设置辅DNS
set dns2=202.96.64.68 
echo 正在将本机IP更改到：%ip%
netsh interface ip set address "%eth%" static %ip% %netmasks% %gw% default
echo 正在添加本机主DNS：%dns1%
netsh interface ip set dns "%eth%" static %dns1%
echo 正在添加本机副DNS：%dns2%
netsh interface ip add dns "%eth%" %dns2%
pause
close

文本文件ip.txt  一个IP 占用一行 用回车键分行

比如

192.168.1.2
192.168.1.3
192.168.1.4
192.168.1....
192.168.1.250

.版本 2
.支持库 shell
.局部变量 文件号, 整数型
.局部变量 IP, 文本型
.局部变量 返回IP, 文本型, , "0"
.局部变量 I, 整数型
.局部变量 cmd, 文本型
文件号 ＝ 打开文件 (取运行目录 () ＋ “/ip.txt”, , )
读入数据 (文件号, IP)
’ 输出调试文本 (IP)
返回IP ＝ 分割文本 (IP, #换行符, )
.计次循环首 (取数组成员数 (返回IP), I)
    ’ 输出调试文本 (返回IP )
    cmd ＝ “set eth=” ＋ #引号 ＋ “本地连接” ＋ #引号 ＋ “rem ip            // 设置IP地址接” ＋ #换行符 ＋ “set ip=” ＋ 返回IP  ＋ #换行符 ＋ “rem gw            // 设置网关” ＋ #换行符 ＋ “set gw=10.11.255.254” ＋ #换行符 ＋ “rem netmasks     //设置子网掩码” ＋ #换行符 ＋ “set netmasks=255.255.0.0” ＋ #换行符 ＋ “rem dns1         //设置主DNS” ＋ #换行符 ＋ “set dns1=202.96.75.68” ＋ #换行符 ＋ “rem dns2         //设置辅DNS” ＋ #换行符 ＋ “set dns2=202.96.64.68” ＋ #换行符 ＋ “echo 正在将本机IP更改到：%ip%” ＋ #换行符 ＋ “netsh interface ip set address ” ＋ #引号 ＋ “%eth%” ＋ #引号 ＋ “ static %ip% %netmasks% %gw% default” ＋ #换行符 ＋ “echo 正在添加本机主DNS：%dns1” ＋ #换行符 ＋ “%netsh interface ip set dns ” ＋ #引号 ＋ “%eth%” ＋ #引号 ＋ “ static %dns1%” ＋ #换行符 ＋ “echo 正在添加本机副DNS：%dns2%” ＋ #换行符 ＋ “netsh interface ip add dns ” ＋ #引号 ＋ “%eth%” ＋ #引号 ＋ “ %dns2%”
    执行 (“cmd”, , cmd, , )
.计次循环尾 ()

把相关的 dns 子网掩码 和 网关 换成相应的变量即可执行了

在计次循环中 执行 命令 前面加入 延时（） 这个最好使用多线程  不然程序看起来像卡住了一样