使用易语言快速开发IP修改工具

阅读: 评论:0

2021.3
DLl 命令名
返回值类型公开
备注
RegQueryValueExA 整数型
注册表项库文件名:
在库中对应命令名:RegQueryValueExA
参数名类型hKey
整数型lpValueName 文本型lpReserved 整数型lpType 整数型传地
√数组
备注
lpData 字节集√lpcbData
整数型
√易语言是一门以中文作为程序代码编程语言,其以“易”著称,创始人为吴涛。作为中国人自己的语言,易语言方便中国人用自己的思维去编写程序,也大大降低了中国人对编程门槛。利用易语言来开发IP 修改小工具,达到生活中电脑用户因为IP 冲突而不能联网的烦恼,以及方便电脑初学者能快速修改本地IP。
1原理分析
注册表在Windows 操作系统中有着至关重要的作
用,先通过API 遍历注册表内读取网卡的信息,再通过API 对注册表进行修改。从而达到修改的目的。
2编写过程
通过DLL 的API 接口对注册表项进行操作。打开注册表项DLL 命令如表1所示。
取注册表DLL 命令如表2所示。
写注册表DLL 命令如表3所示。
作者简介:冯立彬(1990-),男,初级职称,研究方向:计算机网络。
使用易语言快速开发IP 修改工具
冯立彬
(阳光学院教务处,福州350100)
摘要:IP 地址是IP 协议提供的一种统一的地址格式,它为互联网上的每一个网络和每一台主机分配一个逻辑地址,以此来屏蔽物理地址的差异。随着科技的发展、人类的进步、电脑的普及率日益提高,电脑彻底改变了人们的工作与思考形态,无论现在的个人家庭还是用人单位,电脑几乎是人手一台,但随之而来的问题也会出现,比如,有时由于设置不当会出现IP 地址冲突情况,直接导致被提示IP 地址冲突的计算。
江西省景点十大排名榜关键词:易语言;IP 修改;API 接口
DLl 命令名返回值类型公开
备注
RegOpenKeyExA 整数型
打开注册表项
库文件名:
在库中对应命令名:RegOpenKeyExA
参数名类型hKey
整数型lpSubKey 文本型ulOptions
整数型samDesired 整数型phkResult 整数型
传地
√数组
备注
表1
打开注册表项命令
表2取注册表项命令
DLl
命令名
返回值类型公开
备注
RegSetValueExA 整数型
写注册表项
库文件名:
在库中对应命令名:
RegSetValueExA
参数名类型hKey
整数型lpValueName 文本型Reserved 整数型dwType 整数型传地
数组
备注
lpData 字节集√cbData 整数型
表3写注册表项命令
3
2021.3
DLl 命令名
返回值类型公开
备注
RegCloseKey 整数型
关闭注册项
库文件名:
在库中对应命令名:RegCloseKey
参数名类型hKey
整数型
传地
数组
备注
关闭注册表项DLL 命令如表4所示。
运用RegOpenKeyExA,RegQueryValueExA,RegCl-oseKey 这3个DLL 建立子程序对注册表项进行读取代码。
API_读注册表:
【打开注册表】-【读取注册表】
-【关闭注册表】将该信息用于程序调用,如表5所示。
RegOpenKeyExA (-2147483646,读取位置,0,1,句柄)'打开注册表
.如果真(句柄≠0)'判断时候打开数据=到字节集(取空白文本(255))
RegQueryValueExA (句柄,读取项目,0,类型,数据,长度)'读注册表信息
RegQueryValueExA (句柄,读取项目,0,类型,数据,长度)
数据=子字节集替换(数据,{0},{13,10},,)文本=取文本左边(到文本(数据),长度)RegCloseKey (句柄)'关闭注册表.如果真结束返回(文本)
运用RegOpenKeyExA,RegSetValueExA,RegClose Key 这3个DLL 建立子程序对注册表项进行写入代码。
API_写注册表:
【打开注册表】-【写入注册表】
-【关闭注册表】将该信息用于程序调用,如表6所示。
RegOpenKeyExA (-2147483646,写入位置,0,2,句柄)'打开注册表.如果真(句柄≠0)
临时=子字节集替换(到字节集(写入内容),{13,10},{0},,)'写入内容转换为字节集并替换
RegSetValueExA (句柄,写入项目,0,7,临时+{0,0},取文本长度(写入内容))'写入注册表
RegCloseKey (句柄)'关闭注册表
通过注册表内网卡的固定位址获取到网卡所有信息,如表7所示。
注册地址[1]=“SYSTEM\CurrentControlSet\Con⁃trol\Class\{4D36E972-E325-11CE-BFC 1-08002bE10318}\”
注册地址[2]=“SYSTEM\CurrentControlSet\Con⁃trol\Network\{4D36E972-E325-11CE-BFC 1-08002BE10318}\”
注册地址[3]=“SYSTEM\CurrentControlSet\Ser⁃vices\Tcpip\Parameters\Interfaces\”清除数组(网卡参数)网卡选择框.清空()ID =0
表4关闭注册表项命令
子程序名返回值类型公开
易包
备注
API_读注册表
文本型参数名类型参数
可空
读取位置文本型读取项目文本型变量名类型
静态
数组
备注
句柄类型数据字节集长度文本
文本型数组
欧洲人口排名备注表5API_读注册表定义
子程序名返回值类型公开
易包
印度地图中文版全图备注
API_写注册表
文本型参数名类型参数
可空
写入位置文本型写入项目
文本型写入内容文本型变量名类型静态
数组
备注
临时字节集
句柄数据
文本型
数组
备注表6API_写注册表定义
子程序名返回值类型
公开
易包
备注
取网卡信息变量名类型静态
数组
备注
ID 整数型注册地址文本型3
网卡信息
详细参数
表7取网卡信息定义
4
.判断循环首(注册项是否存在(4,注册地址[1]+取重复文本(4-取文本长度(到文本(ID)),“0”)+到文本(ID)+“\Linkage\UpperBind”))
.如果真(取文本注册项(4,注册地址[1]+取重复文本(4-取文本长度(到文本(ID)),“0”)+到文本(ID)+“\Ndi\Interfaces\LowerRange”,)=“ethernet”)
网卡信息.网卡名称=取文本注册项(4,注册地址[1]+取重复文本(4-取文本长度(到文本(ID)),“0”)+到文本(ID)+“\DriverDesc”,)
网卡信息.适配器名=取文本注册项(4,注册地址[1]+取重复文本(4-取文本长度(到文本(ID)),“0”)+到文本(ID)+“\NetCfgInstanceId”,)
网卡信息.适配器ID=取文本注册项(4,注册地址[1]+取重复文本(4-取文本长度(到文本(ID)),“0”)+到文本(ID)+“\MatchingDeviceId”,)
.如果真(网卡是否存在(网卡信息.适配器名)=真)
网卡信息.本地连接=取文本注册项(4,注册地址[2]+网卡信息.适配器名+“\Connection\Name”,)
网卡信息.物理地址=取物理地址(网卡信息.网卡名称) .如果真(取数值注册项(4,注册地址[3]+网卡信息.适配器名+“\EnableDHCP”,)=0)
网卡信息.网卡地址=API_读注册表(注册地址[3]+网卡信息.适配器名,“IPAddress”)
网卡信息.子网掩码=API_读注册表(注册地址[3]+网卡信息.适配器名,“SubnetMask”)
网卡信息.默认网关=API_读注册表(注册地址[3]+网卡信息.适配器名,“DefaultGateway”)
网卡信息.DNS地址=API_读注册表(4,注册地址[3]+网卡信息.适配器名+“\NameServer”,)网卡信息.跃点数值=API_读注册表(注册地址[3]+网卡信息.适配器名,“DefaultGatewayMet⁃ric”)
网卡信息.网卡状态=“手动配置”
.如果真结束
.如果真(取数值注册项(4,注册地址[3]+网卡信息.适配器名+“\EnableDHCP”,)=1)
网卡信息.网卡地址=取文本注册项(4,注册地址[3]+网卡信息.适配器名+“\DhcpIPAddress”,)
网卡信息.子网掩码=取文本注册项(4,注册地址[3]+网卡信息.适配器名+“\DhcpSubnet⁃Mask”,)
网卡信息.默认网关=API_读注册表(注册地址[3]+网卡信息.适配器名,“DhcpDefaultGate⁃way”)
网卡信息.DNS地址=API_读注册表(4,注册地址[3]+网卡信息.适配器名+“\DhcpName⁃Server”,)
网卡信息.跃点数值=API_读注册表(注册地址[3]+网卡信息.适配器名,“DefaultGatewayMet⁃ric”)
网卡信息.网卡状态=“通过DHCP指派”
济南旅游景点攻略
.如果真结束
处理事件()
网卡选择框.加入项目(网卡信息.网卡名称,)
加入成员(网卡参数,网卡信息)
.如果真结束
.如果真结束
ID=ID+1
.判断循环尾()
.如果真(网卡选择框.取项目数()=0)
网卡选择框.加入项目(“未发现网卡信息”,)
.如果真结束
网卡选择框.现行选中项=0
处理事件()
将要修改的网卡参数信息写入到注册表项内,如表8所示。
连续赋值(“”,临时地址,临时掩码,临时网关,临时跃点,临时DNS)
全局变量参数()
处理事件()
.
计次循环首(取数组成员数(网卡地址),i)
临时地址=临时地址+网卡地址[i].参数一+#换行符
临时掩码=临时掩码+网卡地址[i].参数二+#换行符
.计次循环尾()
处理事件()
.计次循环首(取数组成员数(默认网关),i)
临时网关=临时网关+默认网关[i].参数一+#换行符
子程序名返回值类型公开易包备注
写入参数信息
变量名类型
鼓浪屿旅游攻略自由行最佳线路静态数组备注临时地址文本型
临时掩码文本型
临时网关文本型
临时DNS文本型
I整数型
表8写入参数信息定义
(下转第10页)
5
2021.3
2021.3
临时跃点=临时跃点+默认网关[i].参数二+#换行符
.计次循环尾()处理事件()
.计次循环首(取数组成员数(DNS 地址),i)
临时DNS =临时DNS +DNS 地址[i]+“,”.计次循环尾()处理事件()
临时DNS =取文本左边(临时DNS,取文本长度(临时DNS)-1)处理事件()
.如果(临时地址=“”)
API_写注册表(4,注册地址[3]+网卡参数[网卡索引].适配器名+“\EnableDHCP”,1)
API_写注册表(4,注册地址[3]+网卡参数[网卡索引].适配器名+“\NameServer”,“”).否则
API_写注册表(4,注册地址[3]+网卡参数[网卡索引].适配器名+“\EnableDHCP”,0)
API_写注册表(注册地址[3]+网卡参数[网卡索引].适配器名,“IPAddress”,临时地址)
API_写注册表(注册地址[3]+网卡参数[网卡索引].适配器名,“SubnetMask”,临时掩码).如果结束
.如果(临时网关=“”)
删除注册项(4,注册地址[3]+网卡参数[网卡索引].适配器名+“\DefaultGateway”)
删除注册项(4,注册地址[3]+网卡参数[网卡索引].适配器名+“\DefaultGatewayMetric”).否则
API_写注册表(注册地址[3]+网卡参数[网卡索引].适配器名,“DefaultGateway”,临时网关)
API_写注册表(注册地址[3]+网卡参数[网卡索引].适配器名,“DefaultGatewayMetric”,临时跃点).如果结束
API_写注册表(4,注册地址[3]+网卡参数[网卡索引].适配器名+“\NameServer”,临时DNS)
3结语
借助互联网的高速发展,越来越多像IP 修改这样
的小工具出现在大家视野中。各种各样的小工具将复杂的电脑操作化为简单的操作表现得淋漓尽致,潜移默化地影响着人们的生产和生活。
参考文献
[1]易语言教材编委会.易语言编程系统[M].西安:
西安地图出版社,2005.
鼋头渚太湖仙岛
[2]王军,何烈胜.汉语编程工具易语言即学即用教程
[M].北京:中国宇航出版社,北京希望电子出版
社,2003.
[3]冉林仓.Windows API 编程[M].北京:清华大学
出版社,北京希望电子出版社,2005.
的指令和数据的存储器管理单元;32位或36位地址线;64位数据线;整型数据类型有8、16和32位;浮点数据类型有64和128位;功耗和热管理单元;性能监视可以帮助调试系统设计,提高软件效率,测试接口。
该系列处理器有在线系统测试和调试特性:JTAG 能力。JTAG 接口可以通过相应的硬件工具来测试。
4结语
从机载计算机的高可靠性、高实时性以及高性能的
特点出发,分析先进的计算机的体系结构应该是一种实时的、容错的、并行的体系结构,同时分别对机载计算机的实时系统、容错系统和并行系统作了详细的论述,并对处理器选型给予论证,可以对高性能处理系统的设计提供一定的帮助。
参考文献
[1]沈华.PowerPC 处理器的发展历程[J].计算机光
盘软件与应用,2013,(12):73-74.
[2]Freescale Semiconductor Inc.P2020QorIQ Integrated
Processor Reference Manual [EB/OL].USA:www.freescale,2011.
[3]Freescale Semiconductor Inc.MPC8641D Integrated
Host Processor Family Reference Manual [EB/OL].
USA:www.freescale,2008.
(上接第5页)
10

本文发布于:2023-06-17 11:18:44,感谢您对本站的认可!

本文链接:http://www.035400.com/whly/3/479086.html

版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系,我们将在24小时内删除。

标签:网卡   地址   注册表   信息   文本   注册
留言与评论(共有 0 条评论)
   
验证码:
Copyright ©2024-2030 Comsenz Inc.Powered by © 文化旅游网 滇ICP备2022007236号-403 联系QQ:1103060800网站地图