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

物联网0149

易语言断开本地网络连接源码!,第1张

如果是拨号网络连接的话,就只需要一个代码:

挂断 ()

一旦不需要拨号网络连接的话,就可以使用本命令断开。

----------------------------------------------------------

如果不是的话代码如下:

版本 2

子程序 _将所有网络连接挂断_被单击

局部变量 枚举连接, 文本型, , "0"

局部变量 i, 整数

计次循环首 (枚举所有网络连接__已连接的 (枚举连接), 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}\” + 到文本 (AdapterInfoAdapterName) + “\Connection\Name”, ))

addr = AdapterInfoNext

循环判断尾 (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

置随机数种子(到数值(取秒(取现行时间())))’随机种子,每次种子都不一样

随机数=取随机数(111,666)‘随机数字

如果要把这些内容填到控件中不需取得这3个控件的元素ID(可以下载个起易模块,有网页填表)

网页填表初始化(超文本浏览框取窗口句柄())‘如果是超文本浏览框里操作就这样

网页填表文本框写内容(元素ID,到文本(随机数),)

这是起易模块操作源码,如果其他模块就另当别论了。 如果您有不懂可以留下****或者百度hi我

用超级模块里边的驱动(Drive)双开加载()

超级模块的下载(DownLoad)地址能在baidu搜索“超级模块”

------------------------------

中国蓝客联盟-天空为你解答,想学技术的话能来蓝盟看看,进方法,baidu搜索中国蓝客联盟

我用的网页操作类模块对网页对象进行操作的,模块的话会简单很多不知道你能接受不

组合框经常会出现联动的问题,要执行网页事件,一般都是onchange的事件

如果能接受使用模块,那你随便找个网页操作类的模块,我用的是“wzbc模块”;

如果你不能接受,那你就不用往下看了,我建议你可以找找网页操作类的码元来学习后自己写。

如果用类模块一般都是要求先声明一个全局变量,类型就是模块里的那个大类的名字,wzbc是“网页操作类”,然后就可以用这个形式进行操作

版本 2a初始化 (浏览器窗口句柄)a组合框_选择项目 (“2”, 5)‘第二个组合框的第5项内容a对象操作_执行事件 (a对象_取组合框对象 (2), “onchange”)配合winapi能省去很多麻烦,例如SendMessageA,FindWindow,GetWindow,可以具体到浏览器的控件操作。

下面这个子程序,程序没显示完整,跟上面的代码一个意思,只是多了同步显示到程序内部的组合框里罢了

我这里用的是两个组合框来同步显示网页上的两个联动组合框,不过最后没太大用,代码就写乱了,你大概看看

注:如果打算做状态栏,必须加入延迟

最好的教程是:易语言自带的知识库,视频教学,十天学会易语言

推荐的教程是:易语言组件与实例(可以到官方论坛下载)

专业的教程是:易语言编程系统(65元,与易语言公司联系购买)

例程下载:易语言官方网站的易语言资源网

论坛求助:易语言官方论坛

易语言……

不懂。

不过方法应该是通用的。

第一种,遍历进程表,计数自身进程的数量。这个是最正统,最方便,最安全的。

第二种,利用网络广播来计数。程序启动时,发一个广播信号,收到信号的进程给回复。

第三种,在系统中找一个隐秘的地方设置一个信号量。

重点说说第三种,其关键在于隐秘。可能的方法大概有:

A、在系统固定位置写一个文本文件,里面是一个计数,启动时加一,退出时减一。

B、每个实例都在固定位置创建一个临时文件,退出时删除自己的。

C、在注册表中指定位置增加一条计数项。

D、绑定某端口。比如:从32450开始,寻找未被绑定的端口……

所有上面这些归类于第三种的方法都有不可靠,易于破解的缺陷。

而且实现起来不见得比前两种难度低。

选择最适合自己的吧。

以上就是关于易语言断开本地网络连接源码!全部的内容,包括:易语言断开本地网络连接源码!、易语言网页填表的问题、怎么用易语言做软件多开器。怎么办等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!