易语言源码网（易语言 打开网址源码）

本文目录

• 易语言 打开网址源码
• 易语言源码工具箱源码
• 易语言断开本地网络连接源码！

易语言 打开网址源码

其实真的很简单，只要你打好易语言基础很容易做出来！

.版本 2

.支持库 eAPI

.程序集 窗口程序集1

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

.局部变量 网页地址文件, 文本型

.局部变量 网页地址, 文本型, , "0"

’ 网址.txt 记事本必须与这个软件程序在同一个文件夹中！

.如果真 (文件是否存在 (取运行目录 () ＋ “\网址.txt”) ＝ 假)

    信息框 (“你的 ” ＋ 取运行目录 () ＋ “ 路径中无【网址.txt】文档文本！”, #确认钮 ＋ #错误图标, “提示”)

    返回 ()

.如果真结束

网页地址文件 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\网址.txt”))

网页地址 ＝ 分割文本 (网页地址文件, 到文本 (#换行符), )

.计次循环首 (取数组成员数 (网页地址), 局部_计次)

    打开指定网址 (网页地址 )

    延迟 (10000)

.计次循环尾 ()

易语言源码工具箱源码

制作方案:
准备一个要载入工具箱的exe
新建个易语言程序，进入易语言-插入-资源-图片或图片组
将图片1改为exe
双击内容
导入新图片
然后载入exe
回到启动窗口，新建个按钮，按钮输入代码:
写到文件("D:\临时调试文件.exe",#exe)
运行("D:\临时调试文件.exe")
删除文件("D:\临时调试文件.exe")
然后调试程序,点击那个按钮,你会发现刚才载入的exe运行了！

易语言断开本地网络连接源码！

如果是拨号网络连接的话，就只需要一个代码：
挂断 ()
一旦不需要拨号网络连接的话，就可以使用本命令断开。
----------------------------------------------------------
如果不是的话代码如下：
.版本 2
.子程序 _将所有网络连接挂断_被单击
.局部变量 枚举连接, 文本型, , "0"
.局部变量 i, 整数型
.计次循环首 (枚举所有网络连接__已连接的 (枚举连接), i)
设置本地连接 (枚举连接 , 假)
.计次循环尾 ()
返回 (假)
.子程序 枚举所有网络连接_已连接的, 整数型, 公开
.参数 网络连接名, 文本型, 参考 可空 数组
.局部变量 size, 整数型
.局部变量 AdapterInfo, IP_ADAPTER_INFO
.局部变量 buf, 字节集
.局部变量 addr, 整数型
.局部变量 i, 整数型
.局部变量 mac, 文本型
.局部变量 tmp, 文本型
.局部变量 Addr_ip, 整数型
.局部变量 buf_ip, IP_ADDR_STRING
.局部变量 size_dns, 整数型
.局部变量 buf_dns, 字节集
.局部变量 dns, IP_PER_ADAPTER_INFO
.局部变量 addr_dns, 整数型
清除数组 (网络连接名)
GetAdaptersInfo ({ 0 }, size)
buf ＝ 取空白字节集 (size)
addr ＝ 取变量地址_字节集 (buf, buf, 0)
.如果真 (GetAdaptersInfo (buf, size) ＝ 0)
.循环判断首 ()
CopyMemory_iai (AdapterInfo, addr, 640)
加入成员 (网络连接名, 取文本注册项 (4, “SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}\” ＋ 到文本 (AdapterInfo.AdapterName) ＋ “\Connection\Name”, ))
addr ＝ AdapterInfo.Next
.循环判断尾 (addr ≠ 0)
.如果真结束
返回 (取数组成员数 (网络连接名))
.版本 2
.DLL命令 GetAdaptersInfo, 整数型, "IPHlpApi"
.参数 IpAdapterInfo, 字节集
.参数 pOutBufLen, 整数型, 传址
.DLL命令 GetPerAdapterInfo, 整数型, "IPHlpApi"
.参数 IfIndex, 整数型
.参数 pPerAdapterInfo, 字节集
.参数 pOutBufLen, 整数型, 传址
.DLL命令 Len_iai, 整数型, "kernel32", "LocalSize"
.参数 hMem, IP_ADAPTER_INFO, 传址
.DLL命令 len_ipai, 整数型, , "LocalSize"
.参数 hMem, IP_PER_ADAPTER_INFO, 传址
.DLL命令 Len_ias, 整数型, "kernel32", "LocalSize"
.参数 hMem, IP_ADDR_STRING, 传址
.DLL命令 取变量地址_字节集, 整数型, , "lstrcpynA"
.参数 变量, 字节集, 传址
.参数 变量, 字节集, 传址
.参数 保留, 整数型, , 0
.DLL命令 CopyMemory_iai, , "kernel32", "RtlMoveMemory"
.参数 Destination, IP_ADAPTER_INFO, 传址
.参数 Source, 整数型
.参数 Length, 整数型
.DLL命令 CopyMemory_ipai, , "kernel32", "RtlMoveMemory"
.参数 Destination, IP_PER_ADAPTER_INFO, 传址
.参数 Source, 整数型
.参数 Length, 整数型
.DLL命令 CopyMemory_ias, , "kernel32", "RtlMoveMemory"
.参数 Destination, IP_ADDR_STRING, 传址
.参数 Source, IP_ADDR_STRING
.参数 Length, 整数型
.版本 2
.数据类型 IP_ADAPTER_INFO
.成员 Next, 整数型
.成员 ComboIndex, 整数型
.成员 AdapterName, 字节型, , "260", 名称
.成员 Description, 字节型, , "132", 描述
.成员 AddressLength, 整数型
.成员 Address, 字节型, , "8"
.成员 Index, 整数型
.成员 Type, 整数型, , , 类型
.成员 DhcpEnabled, 整数型
.成员 CurrentIpAddress, 整数型
.成员 IpAddressList, IP_ADDR_STRING
.成员 GatewayList, IP_ADDR_STRING
.成员 DhcpServer, IP_ADDR_STRING
.成员 HaveWins, 逻辑型
.成员 PrimaryWinsServer, IP_ADDR_STRING
.成员 SecondaryWinsServer, IP_ADDR_STRING
.成员 LeaseObtained, 整数型
.成员 LeaseExpires, 整数型
.数据类型 IP_ADDR_STRING
.成员 Next, 整数型
.成员 IpAddress, 字节型, , "16", IP_ADDRESS_STRING
.成员 IpMask, 字节型, , "16", IP_MASK_STRING=IP_ADDRESS_STRING
.成员 Context, 整数型
.数据类型 IP_PER_ADAPTER_INFO
.成员 tmp, 整数型, , "3"
.成员 CurrentDnsServer, IP_ADDR_STRING
.成员 DnsServerList, IP_ADDR_STRING